![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Доступность сетевых ресурсов [D5, Win2k]
teapot © (2004-09-14 16:11:00)Сетевой 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;
показывает только локальные драйвера.
teapot (2004-09-14 22:08:00) [1]Собственно говоря, для того и нужно знать о доступности ресурса, чиобы записать туда (или прочесть).
Все же логичнее было бы сначала убедиться, что есть КУДА писать. А то телега, вроде, впереди лошади получается.
Jeer (2004-09-14 18:10:00) [2]Попробуй записать и узнаешь.