Beenden, Delete, rename, Run hintereinander ohne Fehler

[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;