Wahlweise mehrfachen Programmstart verhindern

[shmia]

Delphi-Quellcode:

initialization 
  mHandle := CreateMutex(nil, true, 'anwendung.exe'); 
  if (GetLastError = Error_Already_Exists) and not FindCmdLineSwitch('nolimit', ['-','/'], True) then halt; 

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