RunAs und Begrenzung auf eine einzelne Instanz

[Dalai]

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

[himitsu]

Ich denk es geht um die NamedPipe? Dann bringt das Schließen des Mutex also nichts.

- Programm beenden und erst dann das andere Programm starten.

- Anderes Programm starten, im per Paramter sagen es soll in paar Sekunden warten, und währenddessen das erste Programm beenden.

- Pipe und Mutex schließen und dann das andere Programm starten. (danach eventuell das erste Programm ganz schließen)

[Dalai]

Zitat von himitsu:

Ich denk es geht um die NamedPipe? Dann bringt das Schließen des Mutex also nichts.

Klar bringt das was. Die Named Pipe wird nur unter bestimmten Umständen geöffnet (nicht schon beim Anzeigen der MainForm). Um ganz genau zu sein, ist die Named Pipe nur dann geöffnet, wenn ein weiteres Formular sichtbar ist. Die Funktion zum "Ausführen als" ist aber nur via MainForm zugänglich.

Zitat:

- Programm beenden und erst dann das andere Programm starten.

Äh, ja, und jetzt zeigst du mir noch, wie man von/mit einem beendeten Programm ein anderes startet .

Zitat:

- Anderes Programm starten, im per Paramter sagen es soll in paar Sekunden warten, und währenddessen das erste Programm beenden.

Ja, an eine Verzögerung hab ich auch schon gedacht. Aber so richtig gefallen will mir das nicht.

Zitat:

- Pipe und Mutex schließen und dann das andere Programm starten. (danach eventuell das erste Programm ganz schließen)

Das vorherige Schließen des Mutex bringt mir nichts. Ich erkläre das mal etwas genauer. Die Funktion ShellExecuteEx mit dem Verb "runas" bringt den Dialog "Ausführen als". Schließe ich das Mutex vor dem Aufruf von ShellExecuteEx (bzw. obiger Funktion RunAs), ist es weg und folglich sind weitere Instanzen möglich.

Schließe ich das Mutex nicht vorher: Angenommen, der Anwender bricht den "Ausführen als"-Dialog ab, gibt die Funktion RunAs False zurück. Darauf könnte ich reagieren, und das Mutex schließen. Parallel dazu läuft aber noch der neu gestartete Prozess. Welche Instanz wird nun schneller sein? Die eigene Instanz mit dem Schließen des Mutex oder die neu gestartete Instanz mit dem (vergeblich versuchten) Erzeugen eines Mutex?

MfG Dalai

[Dalai]

Ich hab's momentan erstmal folgendermaßen gelöst, auch wenn dadurch Race Conditions (welche Instanz ist schneller) nicht ausgeschlossen sind: Der Start via "Ausführen als" bekommt den Parameter "runas" mit:

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.lpParameters:= PChar('runas');
    sei.nShow:= SW_SHOWNORMAL;
    Result:= ShellExecuteEx(@sei);
end;

Vor dem Erzeugen des Mutex prüfe ich auf Kommandozeilenparameter und wenn der erste "runas" ist, wird um eine halbe Sekunde verzögert via Sleep(500). Nicht besonders schön, aber das tut soweit. Dennoch bin ich für bessere Varianten offen .

MfG Dalai