var hMutex: Hwnd;
Ret: integer;
begin
Application.Initialize;
Application.Title:='Program Run Once Test':
hMutex:=CreateMutex(nil,false,'Program Run Once Test');
Ret:=GetLastError;
if Ret<>Error_Already_Exists then
begin
Application.Create(TForm1,Form1);
Application.Run;
end
else
Application.MessageBox('This Program is running','Warning',MB_OK);
ReleaseMutex(hMutex);
end;
Ret: integer;
begin
Application.Initialize;
Application.Title:='Program Run Once Test':
hMutex:=CreateMutex(nil,false,'Program Run Once Test');
Ret:=GetLastError;
if Ret<>Error_Already_Exists then
begin
Application.Create(TForm1,Form1);
Application.Run;
end
else
Application.MessageBox('This Program is running','Warning',MB_OK);
ReleaseMutex(hMutex);
end;