Подключение сетевого диска
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Подключение сетевого диска - 2010-11-01 13:58:21.860000
|
|
|
alex117
Сообщений: 424
Оценки: 0
Присоединился: 2010-02-09 10:54:42.646666
|
Пытаюсь подключить сетевой диск через Delphi, путем 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;
Но что-то не подключается . Ресурс "\\server\transfer\" требует имя и пароль. Через стандартное окно все подключается.
|
|
|
RE: Подключение сетевого диска - 2010-11-01 15:17:47.066666
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
Ну так задай логин и пароль?
|
|
|
RE: Подключение сетевого диска - 2010-11-01 17:54:21.026666
|
|
|
alex117
Сообщений: 424
Оценки: 0
Присоединился: 2010-02-09 10:54:42.646666
|
Так я и задал в скрипте, но все равно не работает. Через js-скрипт все мапится, но мне надо через delphi сделать.
|
|
|
RE: Подключение сетевого диска - 2010-11-01 22:47:00.993333
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
Выложи js-скрипт, для сравнения
|
|
|
RE: Подключение сетевого диска - 2010-11-01 23:23:40.563333
|
|
|
alex117
Сообщений: 424
Оценки: 0
Присоединился: 2010-02-09 10:54:42.646666
|
var WshNetwork = new ActiveXObject("WScript.Network");
WshNetwork.MapNetworkDrive("Z:","\\\\server\\transfer","false","User","password");
|
|
|
|
|