Delphi判断磁盘类型获取驱动器信息,判断磁盘哪些是可移动的,哪些是不可移动的,哪些是CDROM,哪些是RAM,哪些是USB设备,不过程序在Windows7下,不能获取到磁盘的容量和使用情况以及簇信息,当里这个代码是10年的,主要面向XP系统。以下是程序的主要代码: for i := 65 to 90 do begin c := chr(i) ':\'; DType := GetDriveType(Pchar(c)); case DType of 0: DriveString := c '该驱动器类型不能确定。'; 1: DriveStrin