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

П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 (Тетрис) 3 990 • TDictionary Custom Sort 6 099 • Fast Watermark Sources 5 898 • 3D Designer 8 726 • Sik Screen Capture 6 220 • Patch Maker 6 651 • Айболит (remote control) 6 643 • ListBox Drag & Drop 5 501 • Доска для игры Реверси 95 549 • Графические эффекты 6 859 • Рисование по маске 6 056 • Перетаскивание изображений 5 035 • Canvas Drawing 5 404 • Рисование Луны 5 124 • Поворот изображения 4 669 • Рисование стержней 3 285 • Paint on Shape 2 530 • Генератор кроссвордов 3 419 • Головоломка Paletto 2 735 • Теорема Монжа об окружностях 3 519 • Пазл Numbrix 2 316 • Заборы и коммивояжеры 3 005 • Игра HIP 1 959 • Игра Go (Го) 1 879 • Симулятор лифта 2 229 • Программа укладки плитки 1 945 • Генератор лабиринта 2 380 • Проверка числового ввода 2 070 • HEX View 2 393 • Физический маятник 2 023

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

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