Queste righe mi restituiscono, i Drive fisici presenti nel Pc.
ma vale per Windows, infatti devo usare Windows nelle uses.
E per linux, si puo' fare qualcosa di simile alla funzione GetDriveType(PChar(DriveLetter)).
procedure TForm1.Button4Click(Sender: TObject);
var
Drive: Char;
DriveLetter: string;
begin
ListBox2.Clear;
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
case GetDriveType(PChar(DriveLetter)) of
DRIVE_REMOVABLE: ListBox2.Items.Add(DriveLetter + ' Mobile Drive');
DRIVE_FIXED: ListBox2.Items.Add(DriveLetter + ' Fixed Drive');
DRIVE_REMOTE: ListBox2.Items.Add(DriveLetter + ' Network Drive');
DRIVE_CDROM: ListBox2.Items.Add(DriveLetter + ' CD-ROM Drive');
DRIVE_RAMDISK: ListBox2.Items.Add(DriveLetter + ' RAM Disk');
end;
end;
end;