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

Вниз

Доступность сетевых ресурсов   Найти похожие ветки 

 
teapot   (2004-09-14 16:11) [0]

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

Вариант
function DriveExists(Drive: Byte): boolean;
begin
 Result := Boolean(GetLogicalDrives and (1 shl Drive));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Drive: byte;
begin
 for Drive := 0 to 25 do
   if DriveExists(Drive) then
     ListBox1.Items.Add(Chr(Drive + $41));
end;

показывает только локальные драйвера.


 
Jeer ©   (2004-09-14 18:10) [1]

Попробуй записать и узнаешь.


 
teapot   (2004-09-14 22:08) [2]

Собственно говоря, для того и нужно знать о доступности ресурса, чиобы записать туда (или прочесть).
Все же логичнее было бы сначала убедиться, что есть КУДА писать. А то телега, вроде, впереди лошади получается.



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1100091483
Ditrix
2004-11-10 15:58
2004.11.21
хранение GUI в BLOB полях


1-1099260966
Кто---то
2004-11-01 01:16
2004.11.21
Как преобразовать картинку в шрифт ?


6-1094923533
Луарвик
2004-09-11 21:25
2004.11.21
idHTTP: ускорение работы?


1-1099390639
Влад
2004-11-02 13:17
2004.11.21
Кто-нибудь пользуется компонентом Async32 для Delphi


14-1099645672
Nick-From
2004-11-05 12:07
2004.11.21
Пятничная задачка :) Продажа машины ОКА :)