Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.038 c
14-1099549296
ИМХО
2004-11-04 09:21
2004.11.21
Болеро.РУ лежит трупиком


3-1098296531
ввх
2004-10-20 22:22
2004.11.21
Ошибка при закрытии программы


1-1099475266
ssmaxx
2004-11-03 12:47
2004.11.21
Шестнадцатиричная система исчисления


1-1099857220
Turbid
2004-11-07 22:53
2004.11.21
Убиение ряда в 2-мерном динамическом массиве


14-1099522689
Сашок
2004-11-04 01:58
2004.11.21
Железо





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский