[ecfisa]

Empezado por gdlrinfo

Hola muchísimas gracias por responder en primer lugar te cuento ecfisa que el código que me pasaste me da error de compatibilidad de tipos en las líneas que contienen

Código Delphi [-]
 if (GetFileAttributesA(PChar(Source)) = INVALID_FILE_ATTRIBUTES) then

el error es [dcc32 Error] Pagos.pas(85): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar' ////

Hola gdIrinfo.

No puedo afirmarlo por que veo que usas una versión de Delphi mas avanzada que la mía, pero intenta de este modo:

Código Delphi [-]
   if GetFileAttributesA(PAnsiChar(Source)) = INVALID_FILE_ATTRIBUTES then
   //...
   if GetFileAttributesA(PAnsiChar(Target)) = INVALID_FILE_ATTRIBUTES then

Saludos