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中列出当前固定驱动器和可移动驱动器 

转载于:https://www.cnblogs.com/lanzheking/archive/2008/08/05/1260555.html