Подключение сетевого диска

Программирование на Pascal

Модератор: trubb

Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
alex117
ст. сержант
Сообщения: 323
Зарегистрирован: 2010-07-30 13:25:13

Подключение сетевого диска

Непрочитанное сообщение alex117 » 2010-11-01 14:01:30

Пытаюсь подключить сетевой диск через 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\" требует имя и пароль.
Через стандартное окно все подключается.

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 34924
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: Подключение сетевого диска

Непрочитанное сообщение Alex Keda » 2010-12-02 20:04:25

это всё кривые виндовсы
Убей их всех! Бог потом рассортирует...

Аватара пользователя
alex117
ст. сержант
Сообщения: 323
Зарегистрирован: 2010-07-30 13:25:13

Re: Подключение сетевого диска

Непрочитанное сообщение alex117 » 2011-03-24 16:31:58

Решил другим способом, при помощи js-скрипта

Код: Выделить всё

Set objNetwork = CreateObject("WScript.Network")

Set oDrives=objNetwork.EnumNetworkDrives

mydrv = "M:"                              // назначаем букву диска
mapped = false

myshare = "\\server\users\data"    // путь к папке, которую надо размапить как сетевой диск
For i = 0 to oDrives.Count - 1 Step 2

'      WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)

      If oDrives.Item(i)=mydrv Then mapped = true

Next

'WScript.echo "mapped = " & mapped

If Not mapped Then objNetwork.MapNetworkDrive mydrv, myshare

Уже не помню, давно делал, но по-моему с ip-адресом в переменной "myshare" не работает.


Вернуться в «Delphi, Lazarus, Free Pascal»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость