[Unit für Delphi >= 2010] Eigene Anwendung neu starten

[Björn Ole]

Mit deinen 3 Zeilen mehr geht aber dein

Delphi-Quellcode:

ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW);

nicht mehr, weil der Mutex noch belegt ist. ;)

[EWeiss]

Zitat:

Zitat von Björn Ole (Beitrag 1115534)

Mit deinen 3 Zeilen mehr geht aber dein

Delphi-Quellcode:

ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW);

nicht mehr, weil der Mutex noch belegt ist. ;)

NÖ geht immer bei mir ;)

Aber egal..

gruss

[CCRDude]

Zitat:

Zitat von Björn Ole (Beitrag 1115393)

Zitat:

Zitat von CCRDude (Beitrag 1115064)

2. Wenn bereits eine Instanz läuft, solltest Du die Parameter an diese weitergeben. Z.B. per Named Pipe.

Gute Idee, allerdings kommen mir Named Pipes dafür etwas zu umfangreich vor. Ich hab sie noch nie benutzt, von dem was ich lese scheint es mir aber etwas Overkill zu sein. Warum übergebe ich an ShellExecute nicht einfach

Delphi-Quellcode:

CmdLine + ' restart'

. Einwände?

Vielleicht habe ich auch die Funktionalität deines Codes falsch interpretiert :)
Das wäre notwendig, wenn es darum gehen würde, daß nur eine Instanz des Programmes laufen soll. Dann müssen spätere Instanzen das an die erste weiterreichen. Wie EWeiss später vorschlägt (allerdings auch ohne dieses Weiterreichen).

Zitat:

Zitat von Björn Ole (Beitrag 1115393)

Zitat:

Zitat von CCRDude (Beitrag 1115064)

3. Für Vista und später solltest Du eine Elevate-Möglichkeit einbauen (verb "runas" statt "open").

Verstehe nicht genau, was du meinst. open reicht doch alle Rechte weiter. Mit runas springt bei mir z.B. beim Neustart die UAC an, was ja nicht immer von Nöten ist.

Als Option - Programme laufen erstmal mit geringen Rechten, stelle aber evtl. möglich Administrationoptionen nach Elevation zur Verfügung (siehe WM_CLOSE).

[Björn Ole]

Zitat:

Zitat von EWeiss (Beitrag 1115544)

NÖ geht immer bei mir ;)

Da muss aber bei deinem Betriebssystem was ordentlich schief laufen. :shock:

Zitat:

Zitat von CCRDude (Beitrag 1115553)

Als Option - Programme laufen erstmal mit geringen Rechten, stelle aber evtl. möglich Administrationoptionen nach Elevation zur Verfügung (siehe WM_CLOSE).

Ah ok, ich glaub jetzt hab ich es verstanden. Im Anhang die neue Version, hat sich alles um einiges vereinfacht. Warum ich da vorher den Umweg über einen Thread gegangen bin... wer weiß :stupid:
Es besteht die Möglichkeit, dem Restart() einen Boolean mitzugeben, ob mit erhöhten Rechten gestartet werden soll. Programmparameter werden der neuen Instanz weitergegeben.

Folgendes hat sich bzgl. Benutzung geändert:

.dpr

Delphi-Quellcode:

if not Application.InitializeRestarter then
  Exit;

Code zum Neustarten

Delphi-Quellcode:

Application.Restart;
// oder
if not Application.Restart(bElevated) then
  ShowMessage('Fehler beim Neustarten: ' + SysErrorMessage(GetLastError));

Schade, dass ich den Eingangsposting nicht mehr ändern kann... :? Vor allem, da man die Unit jetzt auch mit älteren Versionen vor 2010 benutzen kann.

[Florian Hämmerle]

Schreib einen Moderator an, damit er es in die Projekte-Sparte schiebt, dann kannst du dein erstes Posting immer updaten :)

Viele Grüße,
Florian