CreateSemaphore

[Unplugged]

Delphi-Quellcode:

var
  Semaphore: THandle;


begin
  ActivationMessage := RegisterWindowMessage(PChar(MyGUID));

  Semaphore := CreateSemaphore(nil, 1, 1, PChar(MyGUID));

  if (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    PostMessage(HWND_BROADCAST, ActivationMessage, 0, 0);
    Exit;
  end;

Diese Variante verwende ich derzeit, um zu verhindern, dass ein Programm doppelt gestartet werden kann. Funktioniert soweit auch sehr problemlos, nur habe ich jetzt unter XP einen Trick gefunden, wie man das umgehen kann. Und zwar gibt es unter XP beim Klick auf eine EXE auch die Option "Ausführen als ..." und wenn ich dort jeweils verschiedene Benutzer wähle, öffnet sich das Programm auch mehrmals.

Kann ich den oberen Code irgendwie so verändern, dass das Programm nicht "nur einmal" unter dem Benutzer, sondern "nur einmal" auf dem ganzen System läuft?