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

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

Модератор: trubb

Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
alex117
ст. сержант
Сообщения: 342
Зарегистрирован: 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\" требует имя и пароль.
Через стандартное окно все подключается.

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2460 рублей (8 CPU, 8Gb RAM, 2x500Gb HDD, RAID 3ware 9750):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

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

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

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

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

Аватара пользователя
alex117
ст. сержант
Сообщения: 342
Зарегистрирован: 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" не работает.