本文整理自网络,侵删。
GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数
0 驱动器类型不确定1 系统目录不存在2 DRIVE_REMOVABLE 是可移动驱动器 3 DRIVE_FIXED 是固定驱动器 4 DRIVE_REMOTE 是网络驱动器 5 DRIVE_CDROM 是CD-ROM驱动器 6 DRIVE_RAMDISK 是虚拟驱动器
function getPath : integer;vari:integer;beginfor i := 65 to 90 dobeginif (GetDriveType(Pchar(chr(i)+':\')) = 2) or (GetDriveType(Pchar(chr(i)+':\')) = 3) thenForm1.ListBox1.items.addObject(chr(i)+':\',Pointer(i));end;end;
相关阅读 >>
Delphi windows 编程[4] - 学习窗体生成的过程四
Delphi webservice 中采用 tsoapattachment 传输文件
更多相关阅读请进入《Delphi》频道 >>