Sich selbst neu starten?

[PeterPanino]

Was ist die beste Methode, mit der ein Programm sich selbst neu starten kann?

Es sollen aber nicht zwei Instanzen zur gleichen Zeit laufen, d.h. das neu zu startende Programm soll erst dann (besser: im gleichen Augenblick) gestartet werden, wenn das alte beendet ist.

Es ist mir klar, dass das nur über ein anderes Programm geht, aber vielleicht gibt es jemanden, der da besondere Tricks kennt oder Erfahrungen damit gemacht hat.

[Nicodius]

für was barauchst du das denn :shock:


sonst gibts heir in der codelib nen code dass nie 2 instanzen des programms gleichzeitig offen sind.
Und dann könntest du einfach das neue öffnen und das alte schliessen?


grüße Nico

[mirage228]

Hi,

Ich habe das mal so gemacht, dass ich ein Mini-Programm als Resource in das neu zustartende Programm integriert habe.
Muss selbiges neugestartet werden, dann wird das Mini-Programm entpackt (nach TEMP) und wartet solange bis sich das Hauptprogramm beendet hat (bzw. beendet dieses ggf. selbst) und startet dieses dann neu (das Mini-Programm beendet sich selbst und wird vom Hauptprogramm beim Start gelöscht).

mfG
mirage228

[3_of_8]

Du könntest auch die MainForm schließen und in die beim Projektquellcode eine bedingt terminierte Schleife drumrum machen.

[PeterPanino]

Zitat:

Zitat von 3_of_8

Du könntest auch die MainForm schließen und in die beim Projektquellcode eine bedingt terminierte Schleife drumrum machen.

Könntest du das bitte mal an einem konkreten Beispiel zeigen? Danke!

[3_of_8]

Du gehst auf Projekt/Quellcode anzeigen.

Dann steht da irgendwo

Delphi-Quellcode:

begin
Application.Initialize;
...
Application.Run;
end.

Ersetzen durch:

Delphi-Quellcode:

var Terminate: Boolean;
begin
repeat
Teminate:=True;
Application.Initialize;
...
Application.Run;
until Terminate;
end.

Wenn du das Programm neustarten musst, ruf einfach an der betreffenden Stelle auf:

Delphi-Quellcode:

Terminate:=false;
Close;

(Ungetestet)

[PeterPanino]

Danke, funktioniert aber leider nicht! S. angehängtes Projekt.

Zitat:

Zitat von 3_of_8

Du gehst auf Projekt/Quellcode anzeigen.

Dann steht da irgendwo

Delphi-Quellcode:

begin
Application.Initialize;
...
Application.Run;
end.

Ersetzen durch:

Delphi-Quellcode:

var Terminate: Boolean;
begin
repeat
Teminate:=True;
Application.Initialize;
...
Application.Run;
until Terminate;
end.

Wenn du das Programm neustarten musst, ruf einfach an der betreffenden Stelle auf:

Delphi-Quellcode:

Terminate:=false;
Close;

(Ungetestet)

[3_of_8]

Hmm, keine Ahnung. Der Code nach Application.Run wird irgendwie gar nicht ausgeführt. Du könntest es natürlich noch eleganter machen, indem du alle relevanten Variablen am Anfang in ein Array oder in eine Datei speicherst und sie dann wieder einliest.

[Nicodius]

Morgen

jetzt erklär mir nochmal wieso du das brauchst ;)


grüße Nico

[Sascha L]

Das ist doch völlig irrelevant für die Lösung, wieso er das braucht?! Es gibt 1000ende Anwendungsmöglichkeiten, wieso ein Programm neugestartet werden soll und da ist es für den User ein Komfort-Feature, wenn es das selber kann.

Ich würde einfach ein Mini-Programm schreiben welches das Programm beendet und danach neustartet. Dieses Programm in das Hauptprogramm zu packen, wie hier schon jmd. schrieb, finde ich aber unnötig. Das Programm kann ja ganz normal als zweite Exe im Hauptverzeichnis liegen. Das Programm schadet ja nicht. D.h. selbst wenn jmd. das Programm selber über den Explorer ausführt, wird ja nur das Programm - sofern es geöffnet ist - beendet und danach neugestartet.

[Jasocul]

Ganz unwichtig ist die Frage nicht. Auch Viren, Trojaner, etc. sorgen oft dafür, dass sie beim Beenden automatisch neu gestartet werden.
Üblicherweise läuft dafür ein zweites Programm (oder ein Dienst) im Hintergrund mit, das überwacht, ob das Programm noch läuft.

[PeterPanino]

Zitat:

Zitat von Nicodius

Morgen
jetzt erklär mir nochmal wieso du das brauchst ;)
grüße Nico

Das ist etwas kompliziert zu erklären, ist aber DEFINITIV nichts Illegales.

[mbamler]

Zitat:

Zitat von PeterPanino

Zitat:

Zitat von Nicodius

Morgen
jetzt erklär mir nochmal wieso du das brauchst ;)
grüße Nico

Das ist etwas kompliziert zu erklären, ist aber DEFINITIV nichts Illegales.

Mach doch einfach sowas wie:

...
Shellexecute('Programmname.exe', true); //mit warten bis das Programm läuft
Terminate; //diese Instanz beenden
...

Gruß
Matthias

[r2c2]

Oder du schreibtst ne 2-Zeilen-Batch...

mfg

Christian

[marabu]

Eine Zeile mehr und man hat auch eine Ausstiegsmöglichkeit:

Code:

@echo off
rem this is demo.cmd
demo.exe
if %errorlevel% GTR 0 exit
demo.cmd

Übrigens ein Trick aus der Zeit, als man noch nicht wusste, was ein Watchdog Service ist bzw. wie man ihn implementieren könnte. Das letzte mal habe ich das unter MS-DOS 2.10 bei Magee AutoMenu gesehen...

Grüße vom marabu

[H4ndy]

Also ich habe mir für dieses "Feature" einfach ein kleines Kommandozeilen-Programm geschrieben,
welches wartet bis mein Hauptprogramm beendet wurde und es dann neustartet.

Ist leicht umzusetzten, klein (44KB), resourcenschonend und sieht professioneller aus als ne Batch-Datei ;)
(Außerdem denke ich, dass das die "sauberste" Methode, da so dem Hauptprogramm genug Zeit eingeräumt wird,
damit es sich selbst sauber beenden kann)

[PeterPanino]

Das wichtigste Ziel der Methode "Sich selbst neu starten" ist, sicherzustellen, dass nicht beide Programme zur gleichen Zeit auf die selben Daten zugreifen können. Deshalb habe ich mir folgende Vorgehensweise ausgedacht (ProgrammA und ProgrammB sind verschiedene Instanzen *desselben* EXE-Programms):

- ProgrammA startet ProgrammB

- ProgrammB überprüft in einer Zeitschleife von X Sekunden im OnCreate-Event des Hauptfensters, ob ProgrammA läuft (etwa mittels Prozessliste):
- Wenn nein: Zeitschleife abbrechen und normal starten
- Wenn ja: Überprüfung in der Zeitschleife weiter ausführen:
- Wenn Zeitschleife X Sekunden abgelaufen: Sich selbst beenden.

- ProgrammA beendet sich selbst

Damit hätte man mehrere Vorteile:
- Starten einer zweiten Instanz wird verhindert.
- Programm kann sich selbst neu starten. Durch Ausführung der Instanzprüfung am Beginn des ersten Form.OnCreate-Events wird garantiert, dass nicht Programmcode in mehr als einer Instanz zur gleichen Zeit ausgeführt wird.

Wie könnte man die Zeitschleife am besten programmieren?

[marabu]

Hallo Peter,

vergiss die Zeitschleife, das Starten einer zweiten Instanz deines Programms verhinderst du so oder so nicht - warum auch. Verhindern musst du ja nur die gleichzeitige Benutzung bestimmter Ressourcen. Die zweite Instanz wird immer regulär gestartet, prüft dann eine Integritätsbedingung (CreateMutex) und tritt dann entweder in die Phase der Ressourcenbeschaffung ein oder beendet sich, mitunter nach Übergabe der Aufrufparameter an die existierende Instanz. Wichtig ist nur, dass du den Ein- und Austritt in bzw. aus dem kritischen Teil deines Programmes korrekt signalisierst. Eine überlappende Ausführung außerhalb dieses Blockes ist kein Problem.

Grüße vom marabu

[Aike]

Hm, ich hätte auch gerne die Möglichkeit, mein Programm neu zu starten, aber hier ist keine Lösung zu funden. Der Gund des Neustarts: Einstellungen übernehmen.

[dataspider]

Hi,

ich benutze folgende Routine, um z.B. nach kritischen Fehlern mein Programm wieder zu starten.

Delphi-Quellcode:

procedure ForceKillApplication(ARestart: boolean = False);
var
  AStartInfo: TStartupInfo;
  AProcInfo: TProcessInformation;
begin
  if ARestart then
  begin
    GetStartupInfo(AStartInfo);
    FillChar(AProcInfo, SizeOf(TProcessInformation), #0);
    CreateProcess(nil, GetCommandLine, nil, nil, False,
      CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil,
      PChar(GetCurrentDir), AStartInfo, AProcInfo);
  end;
  TerminateProcess(GetCurrentProcess, 1);
end;

Frank

[paritycheck]

Hab es nicht weiter getestet aber vielleicht funktioniert folgendes:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Windows, Sysutils, Messages,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var hMutex: Cardinal;
    aHWND: THandle;

begin
  hMutex:= CreateMutex(nil, True, PChar(ExtractFilename(ParamStr(0))));
  if GetLastError() = ERROR_ALREADY_EXISTS then begin
     aHWND:= FindWindow(nil, PChar('Form1')); 
     if ParamStr(1) = '-r' then begin //vielleicht doch erst überprüfen ob das Programm neu getartet werden darf.
                                      //könnte sonst unerwünschte Nebenwirkungen geben....
        if aHWND <> 0 then begin
           SendMessage(aHWND, WM_CLOSE, 0, 0);
           Sleep(1000);
        end;
     end else begin
        MessageBox(0, PChar('Programm läuft bereits.'), PChar(ExtractFilename(ParamStr(0))), mb_OK);
        Halt;
     end;   
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  if hMutex <> 0 then begin
     ReleaseMutex(hMutex);
     CloseHandle(hMutex);
  end;
end.

Dann einfach via CreateProcess oder auch ShellExecute das Programm neu starten.

[MuTzE]

Eine weitere Möglichkeit wäre diese:

Delphi-Quellcode:

procedure RestartApplication;

 function GetTmpDir: String;
 var
  PC: PChar;
 begin
  PC := StrAlloc(MAX_PATH + 1);
  GetTempPath(MAX_PATH, PC);
  Result := String(PC);
  StrDispose(PC);
 end;

 function GetTmpFileName(Ext: String): String;
 var
  PC: PChar;
 begin
  PC := StrAlloc(MAX_PATH + 1);
  GetTempFileName(PChar(GetTmpDir), 'uis', 0, PC);
  Result := string(PC);
  Result := ChangeFileExt(Result, Ext);
  StrDispose(PC);
 end;

var
 BatchFile: TStringList;
 BatchName: String;
begin
 batchname := GetTmpFileName('.bat');
 FileSetAttr(ParamStr(0), 0);
 BatchFile := TStringList.Create;
 with BatchFile do
  begin
   try
    Add(':Label1');
    Add(Copy(ParamStr(0), 0, 2));
    Add('cd ' + Copy(ExtractFilePath(ParamStr(0)), 4, Length(ExtractFilePath(ParamStr(0))) -1));
    Add('start ' + ExtractFileName(ParamStr(0)));
    Add('del ' + BatchName);
    SaveToFile(BatchName);
    ChDir(GetTmpDir);
    WinExec(PChar(BatchName), SW_HIDE);
   finally
    BatchFile.Free;
   end;
   Halt;
  end;
 Application.Terminate;
end;

[Mackhack]

Wie marabu schon andeutete mit dem Link, n Mutex und Ruhe ist im Laden :mrgreen:

[Pichel]

Zitat:

Zitat von MuTzE (Beitrag 529145)

Eine weitere Möglichkeit wäre diese:

Mittlerweile meldet unter anderem Antivir sobald dieser Code verwendet wird einen "TR/Dldr.Delphi.Gen" Virus und man kann ihn nicht mehr wirklich verwenden.

[franktron]

Zitat:

Zitat von Pichel (Beitrag 1038394)

Zitat:

Zitat von MuTzE (Beitrag 529145)

Eine weitere Möglichkeit wäre diese:

Mittlerweile meldet unter anderem Antivir sobald dieser Code verwendet wird einen "TR/Dldr.Delphi.Gen" Virus und man kann ihn nicht mehr wirklich verwenden.

Das ist nicht der Code sonder ein Virus den es in Delphi gibt such mal hier im Forum das steht das.