Eigenes Programm elegant ersetzen

[smallsmoker]

also ich lade die neue datei in das verzeichnis der alten, diese datei hatt den namen meines programmes + '_update'

den rest mache ich mit ner batch datei

Delphi-Quellcode:

procedure UpdateClient(MainForm: TForm);
begin
  with TStringList.Create do try 
    Add(':Label1'); 
    Add('del "' + Paramstr(0) + '"'); 
    Add('if Exist "' + Paramstr(0) + '" goto Label1');

    Add('move "' + Paramstr(0) + '_update" "' + paramstr(0)+'"');
    Add('start ' + ExtractFilename(Paramstr(0)));

    Add('del "' + ExtractFilePath(Paramstr(0)) + 'name.bat"');
    SavetoFile(ExtractFilePath(Paramstr(0)) + 'name.bat');
  finally Free end; 
  //Ausführen 
  ShellExecute(MainForm.Handle, 'open', PChar(ExtractFilePath(Paramstr(0)) + 
    'name.bat'), nil, nil, SW_HIDE); 
  //Beenden
  MainForm.Close;
end;