Dann noch 3 zeilen dazu
Delphi-Quellcode:
initialization
hMutex := CreateMutex(nil, True, 'Meine Anwendung);
if GetLastError = ERROR_ALREADY_EXISTS then
Halt;
finalization
if hMutex <> 0 then
CloseHandle(hMutex)
Soll aber nicht heißen das deine
Unit nicht das selbe macht.
gruss