Moin...
ich hab das folgendermassen realisiert :
Delphi-Quellcode:
initialization
mHandle := CreateMutex(nil, true, 'meinprogramm');
if (GetLastError = Error_Already_Exists) then halt;
finalization
if mHandle <> 0 then CloseHandle(mHandle);
und halt oben noch mhandle als thandle deklariert.
Das wars bei mir soweit und geht.
MFG
Carsten