delphi获取当前计算机所有盘符

GetDriveType(路径)  判断一个磁盘驱动器的类型 返回一个整数

0 驱动器类型不确定

1 系统目录不存在

2 DRIVE_REMOVABLE   是可移动驱动器   

3 DRIVE_FIXED       是固定驱动器     

4 DRIVE_REMOTE      是网络驱动器     

5 DRIVE_CDROM       是CD-ROM驱动器   

6 DRIVE_RAMDISK     是虚拟驱动器   

  

function getPath : integer;

var

   i:integer;

begin

   for i := 65 to 90 do

    begin

      if (GetDriveType(Pchar(chr(i)+':')) = 2)  or  (GetDriveType(Pchar(chr(i)+':')) = 3) then

        Form1.ListBox1.items.addObject(chr(i)+':',Pointer(i));

    end;

end;

 

程序效果将在Form1.ListBox1中列出当前固定驱动器和可移动驱动器