Anwendung nur einmal starten

[Luckie]

Delphi-Quellcode:

var 
  mHandle: THandle; 

implementation 
{$R *.dfm} 

//Code, Code, Code... 
//Prozeduren, Funktionen... 

Initialization //Verhindern, dass das Programm mehrmals gestartet wird 
   mHandle := CreateMutex(nil, True, 'NameDerExe'); 
     if GetLastError = ERROR_ALREADY_EXISTS then 
     begin 
       Halt; 
end; 
finalization 
   if mHandle <> 0 then 
     CloseHandle(mHandle); 
end. //Programmende

Gefunden in einem Beitrag von Daniel B.