Как скопировать свой собственный exe

← →
banderas © (2004-07-18 17:19) [0]

Как скопировать "самого себя"

← →
Dolt © (2004-07-18 17:58) [1]

procedure TForm1.CopyMyExe(dir:String);
begin
if dir[Length(dir)]<>"\" then dir:=dir+"\";
CopyFile(PChar(Application.Exename),PChar(dir+ExtractFileName(Application.exe name)),False);
end;

← →
banderas © (2004-07-18 18:58) [2]

За Application.Exename большое спасибо!

А ещё здесь посмотри
http://delphimaster.net/view/15-1089766612/&web=1
;)

---
...Death Is Only The Begining...

Как скопировать свой собственный exe Найти похожие ветки