Получить список дисков

Пpиходит сантехник(С) к пpогpаммисту(П) pемонтиpовать засоpившуюся pаковину.
C. начинает ковыpяться в отстойнике...
С.- А у вас тут из сети все на винт падает...вот и забило..
П.- Hадо винт больше ставить?
С.- Hет, винт надо вообще спилить к #$%^&й матеpи.

Компонент, выводящий список дисков уже существует – TDriveComboBox, но он не всегда удобен. Я привожу пример программы, выводящей список дисков в двух разных видах.

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  buf: array [0..499] of char;
  DrvStr: array [0..9] of char;
  LogDrives: set of 0..25;
begin
  integer(LogDrives) := GetLogicalDrives;
  for i := 0 to 25 do
    if (i in LogDrives) then
      ListBox1.Items.Add(chr(i + 65));

  GetLogicalDriveStrings(1000, buf);
  i := 0;
  repeat
    FillChar(DrvStr, SizeOf(DrvStr), #0);
    j := 0;
    repeat
      DrvStr[j] := buf[i];
      inc(j);
      inc(i);
    until
      (buf[i] = #0) or (j > 9);
    inc(i);
    ListBox2.Items.Add(DrvStr);
  until
    ((buf[i-1] = #0) and (buf[i] = #0)) or (i > 499);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 364 • TDictionary Custom Sort 6 400 • Fast Watermark Sources 6 190 • 3D Designer 9 143 • Sik Screen Capture 6 517 • Patch Maker 6 927 • Айболит (remote control) 6 907 • ListBox Drag & Drop 5 789 • Доска для игры Реверси 96 796 • Графические эффекты 7 122 • Рисование по маске 6 438 • Перетаскивание изображений 5 297 • Canvas Drawing 5 662 • Рисование Луны 5 370 • Поворот изображения 4 913 • Рисование стержней 3 497 • Paint on Shape 2 757 • Генератор кроссвордов 3 629 • Головоломка Paletto 2 925 • Теорема Монжа об окружностях 3 733 • Пазл Numbrix 2 465 • Заборы и коммивояжеры 3 144 • Игра HIP 2 106 • Игра Go (Го) 2 035 • Симулятор лифта 2 392 • Программа укладки плитки 2 092 • Генератор лабиринта 2 549 • Проверка числового ввода 2 236 • HEX View 2 561 • Физический маятник 2 177

Получить список дисков

Похожие по теме исходники