логин и пароль

[All517]

мне надо скопировать файл с другого компа.
хотела обойтись CopyFile или SHFileOperation, но проблема в том что при коннекте к другому компу запрашивается логин и пароль! я знаю и логин и пароль, но надо их задать в коде.

[Stilet]

/**************************************************************************
{Подключение сет диска}
 function ConnectNetDrive(DriveName,Machine,User,Pass:string):variant;
  var

NRW: TNetResource;v:variant;
begin

with NRW do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := pchar(DriveName); // подключаемся к диску с этой буквой
lpRemoteName := pchar(machine);
// Необходимо заполнить. В случае пустой строки
// используется значение lpRemoteName.
lpProvider := '';
end;
v:=WNetAddConnection2(NRW, pchar(pass), pchar(user),CONNECT_UPDATE_PROFILE);
//****** CASE ******
case v of
  ERROR_ACCESS_DENIED	:result:='ERROR_ACCESS_DENIED';
  ERROR_ALREADY_ASSIGNED:result:='ERROR_ALREADY_ASSIGNED';
  ERROR_BAD_DEV_TYPE	:result:='ERROR_BAD_DEV_TYPE';
  ERROR_BAD_DEVICE      :result:='ERROR_BAD_DEVICE';
  ERROR_BAD_NET_NAME	:result:='ERROR_BAD_NET_NAME';
  ERROR_BAD_PROFILE	:result:='ERROR_BAD_PROFILE';
  ERROR_BUSY            :result:='ERROR_BUSY';
  ERROR_CANCELLED       :result:='ERROR_CANCELLED';
  ERROR_CANNOT_OPEN_PROFILE:result:='ERROR_CANNOT_OPEN_PROFILE';
  ERROR_DEVICE_ALREADY_REMEMBERED:result:='ERROR_DEVICE_ALREADY_REMEMBERED';
  ERROR_EXTENDED_ERROR		:result:='ERROR_EXTENDED_ERROR';
  ERROR_INVALID_PASSWORD	:result:='ERROR_INVALID_PASSWORD';

  ERROR_NO_NET_OR_BAD_PATH	:result:='ERROR_NO_NET_OR_BAD_PATH';
  ERROR_NO_NETWORK	:result:='ERROR_NO_NETWORK';
else result:='';//machine+' ('+DriveName+')' ;
end;
//****** END CASE ******
end;
//**************************************************************************
.................
ConnectNetDrive('Z:','\\Computer\<Диск>$',<Юзер>,'<Пароль>);

После этого копируйся на Диск Z:

[All517]

спасиб :-*

[za4ot]

процедура не работает для компьютеров вне моей рабочей группы и для ип адресов в виде 192.168.0.0, т.е. с цифрами как быть?