Главная страница
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.026 c
4-23422
Silver_
2003-03-10 12:37
2003.05.08
Переделка одной клавиши в другую (Hook)


3-23015
vil
2003-04-18 10:32
2003.05.08
переименование полей в таблице БД ACCESS


1-23112
Sour
2003-04-27 13:32
2003.05.08
Почему на канве Tbitmap ничего не рисуется?


1-23067
Andrew_p
2003-04-25 18:38
2003.05.08
Как можно определить, является ли переменная путем к файлу


1-23057
-= Demon =-
2003-04-24 20:10
2003.05.08
Определение, запущена ли программа