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