Как сделать так что бы прога копировала сама себя?

[нью]

Как ссделать так что бы прога копировала сама сибя?
вот мой пример:

procedure TForm4.FormCreate(Sender: TObject);
var file1:string;
begin
file1:=Application.ExeName;
CopyFile(File1,'D:\1.exe',true);
end;
end.

Но дэльфи отказываетсяя компилировать =/

Пробовал вот так:

procedure TForm4.FormCreate(Sender: TObject);
begin
CopyFile(Application.ExeName,'D:\1.exe',true);
end;
end.

То же самое

[Utkin]

Обмани, создай еще одну копию, например 1.dat и копируй его. Тогда порга будет копировать не саму себя, а свое тело, это немного проще.

[нью]

не так...
имеется ехе фаил и к нему больше ничего, при запуске он должен копировать сам себя в например D:\1.exe
надо что б копировался именно ехеник

[uberchel]

Нормально все копирует:

CopyFile(PChar(paramStr(0)),'C:\rrr.exe',true)