como hacer para que mi aplicacion se auto copie

[dec]

Hola,

Código Delphi [-]
 var
   copia: string;
 begin
   copia := 'C:\'+ ExtractFileName(ParamStr(0));
   CopyFile(PChar(ParamStr(0)), PChar(copia), false);
 end;