nonVCL Programm nur einmal starten

[WeTec]

klar! stimmt ja!
mit
CloseHandle(mHandle); funktioniert es nicht.

so klappt es aber:

Delphi-Quellcode:

begin
  mHandle := CreateMutex(nil, True, 'XYZ');
  if GetLastError = ERROR_ALREADY_EXISTS then halt
  else
  begin
    // Fenster erzeugen
    ...
  end;
  if mHandle <> 0 then CloseHandle(mHandle);
end.

danke für den Hinweis