Prüfen, ob das Programm schon mal läuft

[Harry M.]

Binde diese Unit ein und das Programm wird sofort wieder beendet wenn es mehrmals gestart wird

Delphi-Quellcode:

unit Doppelstart;

interface

implementation
uses windows,Dialogs,sysutils;

var mHandle: THandle;    // Mutexhandle


Initialization
  mHandle := CreateMutex(nil,True,'Programmname');
  if GetLastError = ERROR_ALREADY_EXISTS then begin   // Anwendung läuft bereits
     showMessage('Anwendung läuft bereits!!!!!');
     halt;
  end;

finalization   // ... und Schluß
  if mHandle <> 0 then CloseHandle(mHandle)
end.