Определить буквы дисков !!!

[Noor]

Подскажите как определить буквы дисков которые еще не используются системой ??

Пример:В системе флоп(а),винт(С,Д) DVD(E) Как теперь определить остальные буквы (F..Z) еще доступные для присвоения их Дискам.

[Stilet]

GetLogicalDrives даст тебе строку с подключенными логикдисками.

[Noor]

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

GetLogicalDrives даст тебе строку с подключенными логикдисками.

Какие Диски (и буквы им присвоенные) я уже определил. Как остальные отобрать в отдельный список ?

[Stilet]

Как это как?
В цикле пройди
типа так:

for i:=ord('а') to ord('z') do if chr(i) не в списке то ...

[Noor]

Что то я уже не соображаю под конец дня ..
Делал определение и вывод так

 function DriveExists(Drive: Byte): Boolean;
var
     LogDrives: set of 0..25;
begin
     Integer (LogDrives):=GetLogicalDrives;
     Result:=Drive in LogDrives;
end;



procedure TForm1.FormActivate(Sender: TObject); 
  var
   D:Byte;
   i:Integer;
   masDE:array[0..25]of Char;
  begin
  For D:=0 to 25 do
  For i:=1 to 1 do
    begin
    masDE[i]:=(Chr(D+$41));
    If DriveExists(D) Then
    ListBox1.Items.Add((masDE[i]));
   end;
  end;
end.

мас1 - полученный мною массив
мас2 - алфавит A..Z
мас3 - отсортированные буквы

Пытался заполнить еще один массив Латинским алфавитом и потом сверить значения массивов и если мас1<>мас2 то мас3=мас1

[Stilet]

Вот смотри:

var p:pchar;i:byte;
begin
getmem(p,100);
GetLogicalDriveStrings(100,p);
for i:=ord('A') to ord('Z') do
 if pos(chr(i),p)=0 then ListBox1.Items.Add(chr(i)+':\');
end;

[Noor]

СПС - попробую, а то на мой код отладчик ругается !