GetDriveType(路径)  判断一个磁盘驱动器的类型 返回一个整数
0 驱动器类型不确定
1 系统目录不存在
2 DRIVE_REMOVABLE   是可移动驱动器   
3 DRIVE_FIXED       是固定驱动器     
4 DRIVE_REMOTE      是网络驱动器     
5 DRIVE_CDROM       是CD-ROM驱动器   
6 DRIVE_RAMDISK     是虚拟驱动器  

代码：
var
 i:integer;

begin
   for i:=65 to 90 do  //从A盘到Z盘检测
   begin
          if GetDriveType(Pchar(char(i)+':\')) = 3 then //如果是固定驱动器
              listbox1.Items.Add(char(i));
   end;
end;