parhizkar2000
شنبه 20 خرداد 1385, 10:31 صبح
سلام
من تابع زیر رو دوتا از برنامه هام بکار بردم . کار این تابع هم اینه که چک می کنه که آیا نسخه ای از برنامه در حال حاضر در حافظه در حال اجراست یا خیر. ولی وقت برنامهئ اول رو اجرا می کنم و بعد می خواهم برنامه دوم رو که کاملا از این مستقله اجرا کنم پیغام میده که برنامه در حال حاضر در حافظه در حال اجراست .
Function IsRunningApp:Boolean;
var
Hwnd:Thandle;
begin
hwnd:=CreateMutex(nil,False,'OneCopyMutex');
Result:=false;
If not(WaitForSingleObject(Hwnd,0)<>Wait_TimeOut) then
Result:=true;
end;
من تابع زیر رو دوتا از برنامه هام بکار بردم . کار این تابع هم اینه که چک می کنه که آیا نسخه ای از برنامه در حال حاضر در حافظه در حال اجراست یا خیر. ولی وقت برنامهئ اول رو اجرا می کنم و بعد می خواهم برنامه دوم رو که کاملا از این مستقله اجرا کنم پیغام میده که برنامه در حال حاضر در حافظه در حال اجراست .
Function IsRunningApp:Boolean;
var
Hwnd:Thandle;
begin
hwnd:=CreateMutex(nil,False,'OneCopyMutex');
Result:=false;
If not(WaitForSingleObject(Hwnd,0)<>Wait_TimeOut) then
Result:=true;
end;