如何区分驱动器属性(200分)

同上

用TDriveComboBox中的命令吧

var
NewDrive:string;
begin
case GetDriveType(PChar(NewDrive)) of
1: FDriveType := dNonExisting;
DRIVE_REMOVABLE: FDriveType := dRemoveable;
DRIVE_REMOTE: FDriveType := dRemote;
DRIVE_FIXED: FDriveType := dFixed;
DRIVE_CDROM: FDriveType := dCDRom;
DRIVE_RAMDISK: FDriveType := dRamDisk;
else
FDriveType := dUnknown;
end;

UINT GetDriveType(
LPCTSTR lpRootPathName // root directory
);

DiskName 例如'c:/'
例如:
case GetDriveType(PChar(DiskName)) of
DRIVE_UNKNOWN : DiskType := '未知驱动器';
DRIVE_NO_ROOT_DIR : DiskType := '不是驱动器';
DRIVE_REMOVABLE : DiskType := '软驱';
DRIVE_FIXED : DiskType := '本地硬盘';
DRIVE_REMOTE : DiskType := '网络硬盘';
DRIVE_CDROM : DiskType := '光驱';
DRIVE_RAMDISK : DiskType := '虚拟硬盘';
else DiskType := '未知驱动器';
end;

接受答案了.