Как получить список СВОБОДНЫХ букв дисков

[calypso]

В Гугле есть варианты кода для простого перебора дисков,а как вывести список свободных букв? Т.е. те буквы, которые доступны в меню "Назначить букву диска" из оснастки Управления дисками Windows
Есть конечно маразматическая идея сделать массив из 26 букв, и методом исключения отсортировать из него те буквы,которые не попадутся при переборе логических дисков

[Аватар]

Есть конечно маразматическая идея сделать массив из 26 букв

Нормальная идея

[саша40]

Кажись тут только перебор. Цыклом for to do переберай буквы от A до Z. И если GetDrive не дала результат на букву, то такого диска нет и получается можно её в список

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[grominfo]

procedure readdrive(list:tstrings);
var
 s: string;
 c: char;
 DriveType: integer;
begin
 for c:='A' to 'Z' do
  begin
   s:=c+':';
   DriveType:=GetDriveType(PChar(s));
   if DriveType<>1 then continue;
   list.Add(s);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 readdrive(listbox1.Items);
end;