Hallo Leute,
ich hab mal wieder eine Denkblockade, die ich nicht auflösen kann. Daher frage ich hier nach Input. Die Situation ist folgendermaßen: Mein Programm startet und erzeugt ein
Mutex zur Begrenzung auf eine einzelne Instanz (Grund dafür ist unter anderem eine Named Pipe).
Nun wollte ich dem Programm noch eine Funktion spendieren, mit der man es als anderer Nutzer ausführen kann. Ich benutze dafür folgende Funktion:
Delphi-Quellcode:
function TMainForm.RunAs: Boolean;
var sei: TShellExecuteInfo;
begin
FillChar(sei, SizeOf(sei), 0);
sei.cbSize:= SizeOf(sei);
sei.Wnd:= Self.Handle;
sei.fMask:= SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
sei.lpVerb:= 'runas';
sei.lpFile:= PChar(Application.ExeName);
sei.nShow:= SW_SHOWNORMAL;
Result:= ShellExecuteEx(@sei);
end;
Nun kommt mir natürlich das
Mutex dazwischen, weil es durch die erste Instanz schon existiert. Beim Erzeugen des
Mutex den Nutzernamen mit zu benutzen, halte ich nicht unbedingt für eine gute Idee, weil die Named Pipe ja (rechner)global existiert. Das
Mutex vor dem Aufruf der Funktion RunAs zu schließen, führt dazu, dass nun eine weitere Instanz gestartet werden kann, obwohl die erste Instanz noch läuft.
Hat jemand eine Idee, wie ich beide Dinge -
Mutex und RunAs - mit möglichst wenig Aufwand vereinen kann?
MfG Dalai