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/lahcs/archive/2009/03/12/1409561.html