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

П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 669 • TDictionary Custom Sort 5 800 • Fast Watermark Sources 5 603 • 3D Designer 8 215 • Sik Screen Capture 5 913 • Patch Maker 6 388 • Айболит (remote control) 6 378 • ListBox Drag & Drop 5 237 • Доска для игры Реверси 94 551 • Графические эффекты 6 570 • Рисование по маске 5 643 • Перетаскивание изображений 4 759 • Canvas Drawing 5 135 • Рисование Луны 4 863 • Поворот изображения 4 411 • Рисование стержней 3 116 • Paint on Shape 2 360 • Генератор кроссвордов 3 228 • Головоломка Paletto 2 551 • Теорема Монжа об окружностях 3 328 • Пазл Numbrix 2 200 • Заборы и коммивояжеры 2 849 • Игра HIP 1 820 • Игра Go (Го) 1 740 • Симулятор лифта 2 072 • Программа укладки плитки 1 798 • Генератор лабиринта 2 240 • Проверка числового ввода 1 925 • HEX View 2 225 • Физический маятник 1 911

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

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