Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=287298&view=findpost&p=2423800 Tue, 17 Nov 2009 12:46:48 +0000 Использование функции WNetAddConnection2 https://forum.sources.ru/index.php?showtopic=287298&view=findpost&p=2423800 Gesha Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=287298&view=findpost&p=2423512 Tue, 17 Nov 2009 06:06:40 +0000 Использование функции WNetAddConnection2 https://forum.sources.ru/index.php?showtopic=287298&view=findpost&p=2423512
Когда я делаю так :
    begin
      WNetConnectionDialog(Handle,RESOURCETYPE_DISK)
    end;

Тогда все получается. Только такой вариант меня не устраивает

А если делаю вот так :
    begin
       NetResource.dwType       := RESOURCETYPE_DISK;
       NetResource.lpLocalName  := 'Z:';
       NetResource.lpRemoteName := '\10.57.112.5\c';
       NetResource.lpProvider   := '';
     
       IF (WNetAddConnection2(NetResource,'','',CONNECT_UPDATE_PROFILE))<> NO_ERROR then
       showmessage(IntToStr(GetLastError()));
    end;


Функция GetLastError возвращает код ошибки 53 - Сетевой путь не найден !
Комп подключен в корпоративный домен Corp.организация.loc Доступ к диску С "Полный". IP пингуется.
По команде "Пуск " - "Выполнить" \\10.57.112.5\С содержимое диска С открывается. Пробовал копировать файлы
досовской командой Copy тоже не получается.Команда выполняется, ошибок не возникает , но файлы не копируются.
Может есть какая то проблема в "Групповой политике безопасности" ? Я то могу подключить статически диск С: Но все таки интересно, почему так происходит.]]> Gesha Delphi: Сетевое программирование