Delphi 获取指定磁盘分区的类型，就是硬盘分区类型，比如，可以判断磁盘某个分区是否是以下类型：
　　case GetDriveType(PChar(Disk+':')) of
　　 DRIVE_UNKNOWN : DType := '未知驱动器';
　　 DRIVE_NO_ROOT_DIR : DType := '不是驱动器';
　　 DRIVE_REMOVABLE : DType := '软驱';
　　 DRIVE_FIXED : DType := '本地硬盘';
　　 DRIVE_REMOTE : DType := '网络硬盘';
　　 DRIVE_CDROM : DType := '光驱';
　　 DRIVE_RAMDISK : DType := '虚拟硬盘';
　　 else DType := '未知驱动器';
　　end;
　　这里主要是定义了DiskType(Disk : String):String;函数来获取各个指定分区的磁盘类型。