DelphiGetDriveType获取磁盘驱动器信息，获取电脑中的磁盘是否是可移动磁盘，并以列表出来，鼠标双击列表中的任意磁盘，会显示出该磁盘的详细信息，包括：总磁盘空间、有效空间、总簇大孝空簇数目等，可编写以下代码实现部分磁盘信息获取功能：　　c:=chr(i)':\';　　DType:=GetDriveType(Pchar(c));　　caseDTypeof　　0:DriveString:=c'该驱动器类型不能确定。';　　1:DriveString:=c'该驱动器不存在。';　　DRIVE_REMOVABLE:DriveString: