Подключение сетевого диска
Добавлено: 2010-11-01 14:01:30
Пытаюсь подключить сетевой диск через Delphi, путем:
Но что-то не подключается . Ресурс "\\server\transfer\" требует имя и пароль.
Через стандартное окно все подключается.
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
NetResource: TNetResource;
begin
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := 'S:';
NetResource.lpRemoteName := '\\server\transfer\';
NetResource.lpProvider := '';
WNetAddConnection2(NetResource,
'password',
'user', CONNECT_UPDATE_PROFILE);
end;
Через стандартное окно все подключается.