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;