Verhindern eine Anwendung mehrfach zu starten

[SubData]

Eine Alternative:

Delphi-Quellcode:

initialization
  hApp := CreateMutex(nil, True, 'APPNAME');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    MessageDlg('Das Programm kann nur einmal gestart werden!', mtError, [mbOK],0);
    Halt;
  end;

finalization
  if hApp <> 0 then CloseHandle(hApp);

Edit: Hab gerade gesehen, dass Luckie einen fast identischen Code bereits verlinkt hat.