Gracias nuevamente por responder.
Este es el resultado que me genera:
Cita:
vRuta := PChar('\\132.147.160.51\RIS')
NetResource.dwType := RESOURCETYPE_DISK
NetResource.lpLocalName := 'X:'
NetResource.lpRemoteName := vRuta
NetResource.lpProvider := ''
WNetAddConnection2(NetResource, PChar(Radiologia1), PChar(UPC), CONNECT_UPDATE_PROFILE)
ErrCode: 0
DESCONOCIDO
CopyFile(PChar(C:\Origen.txt), PChar(X:\Destino.txt), True)
ErrCode: False
WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True)'
ErrCode: 0
|
Adjunto, archivo zip con imagen del explorador de Windows
...
Saludos!