Mehrfachaufrufe verhindern...

[Kernel32.DLL]

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