Einzelnen Beitrag anzeigen

thomas2009
(Gast)

n/a Beiträge
 
#8

Re: Beenden, Delete, rename, Run hintereinander ohne Fehler

  Alt 4. Mär 2009, 11:30
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;
  Mit Zitat antworten Zitat