Как Программе Скопировать Саму Себя

[Lomanu4]

Ниже пример кода, который позволяет программе на Delphi копировать саму себя.

function SelfCopy(const sPath : string) : boolean;
begin
Result:=True;
if NOT Windows.CopyFile(PChar(ParamStr(0)), PChar(sPath), true) then
begin
RaiseLastWin32Error;
Result:=False;
end;
end;

Выполнение:

procedure TForm1.Button1Click(Sender: TObject);
begin
SelfCopy('c:\Windows\Temp\myappcopy.exe')
end;