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