Prüfen, ob eine Anwendung läuft

[DelphiFreund]

Dann bin ich dran:

Delphi-Quellcode:

const
  MyGUID = 'hex-Zahl';
var 
  Semaphore: THandle; 

begin 
  ActivationMessage := RegisterWindowMessage(PChar(MyGUID)); 

  Semaphore := CreateSemaphore(nil, 1, 1, PChar(MyGUID)); 

  if (GetLastError = ERROR_ALREADY_EXISTS) then 
  begin 
    ShowMessage('Das Programm läuft schon');
    Exit;
  end;
end;

Die MyGuid sollte eine GUID sein, muss es gaub ich aber nicht


Gruß und gute Nacht DelphiFreund