توضیح

به راحتی و با این تابع میتوان فهمید که آیا یک کپی از برنامه در حال اجرا است یا نه

کد دلفی

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;