Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.08;
Скачать: CL | DM;

Вниз

Мапирование сетевого диска   Найти похожие ветки 

 
tiam   (2003-03-14 09:00) [0]

Как программно мапировать сетевой диск, а в случае обрыва связи с удаленным компом, проверить подключение, если восстановлено, то снова подключить сетевой диск.
Спасибо


 
Lord Warlock ©   (2003-03-14 09:19) [1]

Мапировать можно примерно так:

const DiskT: array [0..MAX_PATH] of Char="\\Server\Path";

var NetRes: NETRESOURCE;

begin
NetRes.dwType:=RESOURCETYPE_DISK;
NetRes.lpRemoteName:=DiskT;
NetRes.lpLocalName:="T:";
if WNetAddConnection2(NetRes,nil,nil,CONNECT_UPDATE_PROFILE) in [NO_ERROR,ERROR_ALREADY_ASSIGNED] then
Writeln("Net Drive "T" Assigned")
else
Writeln("ERROR! Can`t assign network drive "T"");
{У меня консольный вывод, отсюди и writeln}
end

а при обрыве связи сетевой диск не отключается, он просто недоступен :)



Страницы: 1 вся ветка

Текущий архив: 2003.05.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
14-23393
Saietor
2003-04-19 21:04
2003.05.08
Написание расчетных программ на Delphi


6-23270
Григорий Ситнин
2003-03-04 16:17
2003.05.08
Мониторинг сети


14-23297
Донна Флор
2003-04-22 11:57
2003.05.08
Windows XP и замена системного диска


3-23018
wHammer
2003-04-17 15:09
2003.05.08
Подскажите что предпочтительней использовать?


14-23301
AVR
2003-04-21 20:14
2003.05.08
Delphi60 CLX. На вкладке Internet нет TXMLDocument.