Cita:
Empezado por jonydread
en fin solo tenia que mirar la funcion
no me percate y la linea debia ser asi
Código Delphi [-]function XCopy(Handle: HWND; From,Dest: String): integer;
y otro detalle que no se en que andaba pero no lo veia era que puse doble " \\"
quedo asi funcionando perfecto
Código Delphi [-]XCopy(Handle, openDialog1.Files[i], 'C:\nuevo');
|
Pues la función que yo escribí no es como tu dices sino así:
Código Delphi
[-]function XCopy(Handle: HWND; From: TStrings; Dest: String): integer;
Y por tanto su uso:
Código Delphi
[-]XCopy(Handle, OpenDialog1.Files, 'D:\prueba');
Saludos.