nonVCL Programm nur einmal starten

[WeTec]

lange Rede, kurzer Sinn.

ich habs jetzt so gelöst:

Delphi-Quellcode:

var
  mHandle: THandle;    // Mutexhandle

function dlgfunc(hwnd...
begin
...
end;

begin
  mHandle := CreateMutex(nil, True, 'XYZ');
  if GetLastError = ERROR_ALREADY_EXISTS then halt;
  if mHandle <> 0 then ReleaseMutex(mHandle);
...
end.

trotz dem danke an alle beteiligten!