Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как создать ярлык
   Категория: Приложение
  Фреймы
   Категория: Компоненты
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система
  Как соединить несколько файлов в один
   Категория: Файловая система
  Дата изменения файла
   Категория: Файловая система
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Прочитать содержимое папки
   Категория: Файловая система
  Корректное колесико мыши
   Категория: Приложение

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;
  << Вернуться к Содержанию