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

发布时间:2014-10-25 2:23:16
来源:分享查询网

GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数 0 驱动器类型不确定 1 系统目录不存在 2 DRIVE_REMOVABLE 是可移动驱动器 3 DRIVE_FIXED 是固定驱动器 4 DRIVE_REMOTE 是网络驱动器 5 DRIVE_CDROM 是CD-ROM驱动器 6 DRIVE_RAMDISK 是虚拟驱动器     Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->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中列出当前固定驱动器和可移动驱动器

返回顶部
查看电脑版