كيف يمكن جعل البرنامج يعمل مره واحده فقط

[kachwahed]

السلام عليكم

PHP كود :

var
  Handle: THandle;
...
initialization
  Handle := CreateMutex(nil, True, PChar(Application.Title));
  if GetLastError = ERROR_ALREADY_EXISTS then begin
    MessageBox(GetActiveWindow, 'Program is already running!', 'Info', MB_OK );
    Halt;
  end;

finalization
  if Handle <> INVALID_HANDLE_VALUE then
    CloseHandle(Handle); 


بالتوفيق.