Главная страница
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.018 c
1-23196
FZ*XupypG
2003-04-25 03:17
2003.05.08
Вторичные потоки, выполнение кода в фоновом режиме


14-23387
Mel26
2003-02-25 22:24
2003.05.08
Форматы TIFF JPEG GIF и др.


1-23071
1111а
2003-04-24 23:09
2003.05.08
Возможно ли сделать прозрачным (Transparent) фон TEdit?


14-23375
Scorpx
2003-04-20 18:37
2003.05.08
Программирование и геометрия!


1-23209
Viktor1
2003-04-24 15:37
2003.05.08
Как в Edit1 выровнять текст по центру относительно верх-низ.