Código Delphi [-]CopyFile(PChar(ParamStr(0)), PChar('C:\' + ExtractFileName(ParamStr(0))), True);
CopyFile(PChar(ParamStr(0)), PChar('C:\' + ExtractFileName(ParamStr(0))), True);