Beenden, Delete, rename, Run hintereinander ohne Fehler

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