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;