delphi判断驱动器类型

检查驱动器的类型，在文件来源的判断中是比较重要的信息，这里主要用API函数GetDriveType来实现该功能，它使这样定义的：


UINT GetDriveType(
    LPCTSTR lpRootPathName //根目录路径的地址
);
它的返回值见下表：

GetDriveType的返回值及说明
值 说明
0 找不到驱动器类型
1 根目录不存在
DRIVE_REMOVABLE 可移动盘
DRIVE_FIXED 固定盘
DRIVE_REMOTE 远程网络盘
DRIVE_CDROM CD_ROM光驱
DRIVE_RAMDISK RAM盘
利用该函数返回值，就能确定驱动器的类型。本例用一个Edit控件输入根目录，再用一个Button控件测试所输入根目录的驱动器类型。控件Button的OnClick事件响应代码如下：


procedure TForm1.Button1Click(Sender: TObject);
var
  root:string;
  nn:Integer;
begin
  root:=Edit1.Text;
  nn:=GetDriveType(PChar(root));
  case nn of
  0:  ShowMessage('无法检测到该驱动器');
  1:  showmessage('根目录不存在');
  DRIVE_REMOVABLE: ShowMessage('可移动盘');
  DRIVE_FIXED:ShowMessage('固定盘');
  DRIVE_REMOTE: ShowMessage('远程网络盘');
  DRIVE_CDROM: ShowMessage('cd_rom');
  DRIVE_RAMDISK: ShowMessage('RAM盘');
  end;
end;
这个函数首先调用GetDriveType函数，得到返回值，然后对返回值用case进行分支判断，并用ShowMessage函数显示出来。