Mhhhh, Schreibrechte? Kann man denn prüfen ob man die Rechte (falls ja, wie) hat, in ein Verzeichnis zu schreiben? Denke, dann wäre der Fall klar,
Delphi-Quellcode:
if Schreibrecht_im_Verzeichnis(paramstr(0)) then
Update_Programm
else
Offer_User_Download_Option;
Denn in diesem Falle weiss der User am besten, wie man das Programm zum laufen bekommt, und da wäre es doch sehr aufwendig
alle Optionen abzufangen, oder?
Habe den Vorschlag von SmallSmoker kurz geprüft, und es scheint ganz gut zu funktionieren
Delphi-Quellcode:
procedure Restart_Programm;
var
s: string;
begin
s := ChangeFileExt(paramstr(0), '_old.exe');
RenameFile(s, paramstr(0));
ShellExecute(0, 'Open', pWideChar(paramstr(0)), NIL, NIL, SW_NORMAL);
close;
end;
Danke für Euere Tipps
Oreaden