Beenden, Delete, rename, Run hintereinander ohne Fehler

[thomas2009]

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

[DeddyH]

Was Du da aufrufst, sind Funktionen mit Rückgabewert, den muss man nur auswerten.

[himitsu]

programm.exe ist die anwendung selbst?

wenn ja, dann wird programm.exe nie beendet sein, bevor diese Befehle ausgeführt sind.

[thomas2009]

Zitat von DeddyH:

Was Du da aufrufst, sind Funktionen mit Rückgabewert, den muss man nur auswerten.

was willst Du damit sagen ?

[DeddyH]

Zitat von thomas2009:

2- Die Anwendung löschen (durch eine andere Anwendung heisst Liveupdate.exe)

[edit] @Thomas: DeleteFile gibt Dir z.B. zurück, ob die datei gelöscht werden konnte, d.h. bei einem Fehler könntest Du hier die weitere Verarbeitung abbrechen. [/edit]

[thomas2009]

Zitat von himitsu:

programm.exe ist die anwendung selbst?

wenn ja, dann wird programm.exe nie beendet sein, bevor diese Befehle ausgeführt sind.

Ja natürlich

[himitsu]

Zitat von thomas2009:

was willst Du damit sagen ?

DeleteFile und RenameFile sagen dir, ob sie erfolgreich waren
und das Sleep ist sinnlos, da sie solange nicht zurückkehren, bis sie fertig sind (egal ob gelösch/umbenannt oder nicht)


[add]

Delphi-Quellcode:

var exit: Boolean = false;  // auf true setzen um schleife abzubrechen

procedure TForm1.Button1Click(Sender: TObject);
begin
  while not DeleteFile('programm.exe') and not Exit do
    sleep(50);
  it not RenameFile('neu.exe', 'programm.exe') then
    Fehler('Datei nicht umbenannt');
  if shellexecute(1,'open','"programm.exe"','','',SW_show) < 32 then
    Fehler('programm nicht gestartet');
  Form1.Close;
end;

[thomas2009]

d.h. solang die Schritt 1 noch nicht fertig ist, machr das Programm die 2. Schritt nicht
Wenn so, dann ist kein Problem mehr
Ich muss dann nur auspassen, dass die Anwendung geschlossen werden muss, sonst gehen alle 4 Schritte in die Hose

Delphi-Quellcode:

var
hWordWindow: HWND;
begin
hWordWindow := FindWindow (nil,'Programm-Titel');
SendMessage (hWordWindow, WM_CLOSE, 0, 0);// schritt 1 (gibt mir auch was zurück oder nicht ? ?

DeleteFile('programm.exe'); //Schritt 2
RenameFile('neu.exe', 'programm.exe');  //Schritt 3
shellexecute(1,'open','"programm.exe"','','',SW_show);  //Schritt 4
Form1.Close;
end;

[DeddyH]

Ich würde die Variable aber nicht gerade Exit nennen.

[edit] @Thomas: Und wo wertest Du jetzt die Funktionen aus? [/edit]

[thomas2009]

Zitat von DeddyH:

Ich würde die Variable aber nicht gerade Exit nennen.

[edit] @Thomas: Und wo wertest Du jetzt die Funktionen aus? [/edit]

Es ist nicht nötig oder
Ich meine, es gibt keiner dass das Programm verhindert die Datei zu löschen oder zu umbenennen
Firewall kann nicht als Täter sein oder ?
Welcher Probleme könnten auftauchen