Laufendes Programm sich selbst verschieben/ kopieren

[FAlter]

Hi Elko,

natürlich geht es mit CopyFile. Ich hatte jedenfalls keine Probleme. Nur verschieben kannst du es nicht, dazu muss es vorher beendet werden.

Delphi-Quellcode:

var
  OldName, NewName: String;
  Overwrite: Boolean;
begin
  OldName := ParamStr(0);
  NewName := 'D:\' + ExtractFileName(OldName);
  Overwrite := false;

  CopyFile(PChar(OldName), PChar(NewName), Overwrite);
end;

Mfg
FAlter