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

[chaosben]

Warum muss es zwingend eine GUID sein? Per default würde es imho auch der Pfad zu Programm tun. Und für den Fall, das das nicht eindeutig genug ist, kann man ja noch eine GUID setzen. Denk ich.

[DeddyH]

Verzeiht mir meine Unwissenheit, aber wann ist es eigentlich notwendig, dass sich eine Anwendung selbst neu starten muss?

[EWeiss]

KA was du da machst aber das geht mit 1 Zeile.
ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW)

Noch einfacher geht es eigentlich nicht.
Und das sollte ab D1 funktionieren

Zitat:

aber wann ist es eigentlich notwendig, dass sich eine Anwendung selbst neu starten muss

Zum Beispiel bei mir wenn man seiner Anwendung Skins verpaßt hat.

gruss

[WM_CLOSE]

Zum Beispiel dann, wenn die Anwendung (aus welchem Grund auch immer) Admin-Rechte braucht.
Oder der Einfachheit halber, um die Initialisierung beim Programmstart nochmal zu durchlaufen, ohne große Änderungen am Code.
Oder bei einer unerwarteten Exception, bei der man nicht genau weiß was gerade schiefgelaufen ist (z.B. DB-Verbindung kaputt).
Oder wenn es ein Update der mitgelieferten DLLs gemacht hat und diese dann "sauber" neu laden soll.

Die letzten 3 treten bei einem sauber programmierten Programm so gut wie gar nicht auf, bei bestehendem Code vielleicht schon.

[Björn Ole]

Zitat von chaosben:

Warum muss es zwingend eine GUID sein? Per default würde es imho auch der Pfad zu Programm tun.

Hmpf, hast Recht. Hab den GUID Parameter entfernt und folgenden Namen gegeben:semaphoreName := 'Local\' + StringReplace(ParamStr(0), '\', '/', [rfReplaceAll]); Allerdings ist ein Editieren der .dpr immer noch notwendig, da ja der Programmstart u.U. abgebrochen werden muss. Oder kann ich das irgendwie sauber aus dem initialization Teil der Unit heraus machen?

Zitat von EWeiss:

KA was du da machst aber das geht mit 1 Zeile.
ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW)

Ja, so funktioniert es auch, allerdings kannst du so nicht garantieren, dass nur höchstens eine Instanz deiner Anwendung läuft. Das ist bei mir leider notwendig.

[EWeiss]

Dann noch 3 zeilen dazu

Delphi-Quellcode:

initialization
  hMutex := CreateMutex(nil, True, 'Meine Anwendung);
  if GetLastError = ERROR_ALREADY_EXISTS then
    Halt;

finalization
  if hMutex <> 0 then
    CloseHandle(hMutex)

Soll aber nicht heißen das deine Unit nicht das selbe macht.

gruss

[Björn Ole]

Mit deinen 3 Zeilen mehr geht aber dein ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW); nicht mehr, weil der Mutex noch belegt ist.

[EWeiss]

Zitat von Björn Ole:

Mit deinen 3 Zeilen mehr geht aber dein 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

[Björn Ole]

Zitat von EWeiss:

NÖ geht immer bei mir

Da muss aber bei deinem Betriebssystem was ordentlich schief laufen.

Zitat von CCRDude:

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ß
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