Erstmal:
Willkommen in der DP!!
Das, was dir helfen könnte, sieht so aus:
Delphi-Quellcode:
initialization
mHandle := CreateMutex(nil, True, 'MSCQ');
if GetLastError = ERROR_ALREADY_EXISTS then begin // application is already running
messagebox(application.handle, PChar(alreadyrunning), PChar(errorcaption), MB_ICONERROR);
halt;
end;
finalization
if mHandle <> 0 then CloseHandle(mHandle);
Schreibe es am Besten ans Ende deines Programms.
Übrigens: Bevor du eine Frage stellst, solltest du erstmal auf "Suchen" klicken. Sowas hatten wir nämlich schon ein paar Mal.
Happy coding
kernel32.dll