Zweiter Aufruf verhindern

[Tommy1988]

Ich mach das immer so:

Delphi-Quellcode:

var
 mHandle: THandle;
// [...]

initialization
   mHandle := CreateMutex(nil, True,
    '(Application.ExeName)'); // Wichtige zeile
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
     Halt;
  { Halt stopt in dem Fall das 2. starten des Programms.
    Man könnte auch eine MessageBox hierhinmachen oder soetwas ..}

finalization
 if mHandle <> 0 then
   CloseHandle(mHandle);
end. // Programmende