判断磁盘类型

需要用到的函数：

判断磁盘类型

UINT GetDriveType(

LPCTSTR lpRootPathName // root directory

);

参数说明

lpRootPathName 包含了根目录路径的字符串指针
返回值Long，如驱动器不能识别，则返回零。如指定的目录不存在，则返回1。

如执行成功，则用下述任何一个常数指定驱动器类型：

返回值	说明
DRIVE_UNKNOWN	未知的磁盘类型
DRIVE_NO_ROOT_DIR	说明lpRootPathName是无效的
DRIVE_REMOVABLE	可移动磁盘
DRIVE_FIXED	固定磁盘
DRIVE_REMOTE	网络磁盘
DRIVE_CDROM	光驱
DRIVE_RAMDISK	RAM

//例子
procedure TForm1.FormCreate(Sender: TObject);
var
drive: Char;
begin
for drive := 'A' to 'Z' do
begin
case GetDriveType(PChar(drive + ':\')) of
DRIVE_UNKNOWN: ShowMessage('未知的磁盘:' + drive);
DRIVE_NO_ROOT_DIR: ShowMessage('无效的磁盘名称' + drive);
DRIVE_REMOVABLE: ShowMessage('可移动磁盘:' + drive);
DRIVE_FIXED: ShowMessage('固定磁盘:' + drive);
DRIVE_REMOTE: ShowMessage('网络磁盘:' + drive);
DRIVE_CDROM: ShowMessage('光驱' + drive);
DRIVE_RAMDISK: ShowMessage('RAM' + drive);
end;
end;
end;