Eigenes Programm elegant ersetzen

[Oreaden]

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