Как получить список доступных носителей

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

      Memo1.Lines.Add(Char(Ord('A') + i) + ':');
  end
;
end
;

Другое по теме:

• Как расшарить диск
• Как проверить находится ли файл на локальном диске
• Как проверить готовность диска А