error copiando multiples archivos

[[escafandra]]

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.