Einzelnen Beitrag anzeigen

thomas2009
(Gast)

n/a Beiträge
 
#1

Beenden, Delete, rename, Run hintereinander ohne Fehler

  Alt 4. Mär 2009, 11:09
Hallo

nachdem Download von Update muss ich folgendes machen :

1- Die Anwendung schießen (Die Anwendung schließt sich selbst, wenn die Datei neu.exe gefunden wird)
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FileExists(ExtractFilePath(Application.ExeName)+'neu.exe') then Mainform.Close;
2- Die Anwendung löschen (durch eine andere Anwendung heisst Liveupdate.exe)
3- die herunterladende Datei (neu.exe) umbenennen
4- Die Anwendung ausführen

das mache ich fast alle zusamen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile('programm.exe');
sleep(1000);
RenameFile('neu.exe', 'programm.exe');
sleep(1000);
shellexecute(1,'open','"programm.exe"','','',SW_show);
Form1.Close;
end;
Es geht aber vielleicht gibt was alternativ, da könnte es sein dass das nicht klappt und besonderes, wenn die
Anwendung nicht rechtzeitig geschlossen wird
  Mit Zitat antworten Zitat