Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Получение списка всех сетевых дисков из Delphi
Пример на DELPHI
function GetNetworkDrives: string;
var
I: char;
Path: string;
MaxPath: dword;
begin
Result := '';
MaxPath := MAX_PATH;
SetLength(Path, MAX_PATH);
for I := 'A' to 'Z' do
if WNetGetConnection(PChar(''+I+':'),
PChar(Path), MaxPath)=
NO_ERROR then Result := Result + (I+': ' + Path)
+ '; ';
end;
