Programm neustarten

[_frank_]

Hi,
evtl. hilft eine Bat-Datei:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sl:Tstringlist;
begin
  sl:=TStringlist.create;
  //evtl. wird hier eine verzögerung benötigt (kann mittels ping realisiert werden)
  sl.Add('start '+paramstr(0));
  sl.add('del %0');
  sl.savetofile(extractfilepath(paramstr(0))+'test.bat');
  sl.free;
  application.terminate;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  winexec(PCHAR(extractfilepath(paramstr(0))+'test.bat'),sw_hide);
end;

in meinem Test hat es so funktioniert... (muss evtl. noch verfeinert werden)

Gruß Frank