Понедельник, 10.12.2018, 14:49
Главная Регистрация RSS
Приветствую Вас, Гость
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: vavilov8  
Форум » Delphi » Уроки » Как получить список логических дисков?
Как получить список логических дисков?
vavilov8Дата: Четверг, 05.01.2012, 18:50 | Сообщение # 1
Титул: Генералиссимус
Сообщений: 10
Репутация: [ 0 ]
Как получить список логических дисков?

Code
procedure TForm1.Button1Click(Sender: TObject);
var
ld : DWORD;
i : integer;
begin
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then
Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;
Форум » Delphi » Уроки » Как получить список логических дисков?
  • Страница 1 из 1
  • 1
Поиск: