Поиск дисков!

[Altera]

Привет всем!
у меня вопрос! Как мне (с помощью цикла) узнать, какие диски (А:\, C:\, F:\, и т.д.) существуют и добавить их в список, скажем в листБокс?
-------------------------------------------------------

var
d: char;
begin
   for d := 'a' to 'z' do
   begin
      if DirectoryExists(d+':\') then
      begin
         listBox1.Items.Add(d+':\');
      end;
   end;
end;

Но из [a, c, d, e, f, g, h, i, j, y, z] дисков прога выдаёт только [c, d, e, f, g, h, j] j - диковот Alcohol-а и в него смонтирован образ! Как мне сделать так, чтоб отображались бы и те дисководы, в которых нет диска?
-------------------------------------------------------
Спасибо заранее!!!

[dimonbest]

  Integer(DriveBits) := GetLogicalDrives;
  for DriveNum := 0 to 25 do
  begin
    if not (DriveNum in DriveBits) then  Continue;
    DriveChar := Char(DriveNum + Ord('A'));
    if TDriveType(GetDriveType(PChar(DriveChar + ':\'))) = dtFixed then
          begin
          combobox1.items.add('Диск   '+ DriveChar+':');
          end;
  end;

Этот код добавит в комбобокс жесткие диски...

[mihali4]

Ну, или вот несколько видоизмененный вариант:

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
ListBox1.Items.Add(Char(Ord('A') + i) + ':\');
end;
end;

[hacknet]

Сообщение от mihali4

Ну, или вот несколько видоизмененный вариант:

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
ListBox1.Items.Add(Char(Ord('A') + i) + ':\');
end;
end;

ребят подскажите, а как можно развернуть все диски, вообщем вывести все папки, подпапки на всех дисках? если такое возможно)) зарание благодарю!

[p51x]

FindFirst, FindNext сто раз было

[hacknet]

а не могли бы Вы скинуть полный код? спасибо

[Stilet]

Пожалуйста:
http://yandex.ua/yandsearch?date=&te...=9953&lr=20554