本文整理自网络，侵删。
delphi判断驱动器类型
检查驱动器的类型，在文件来源的判断中是比较重要的信息，这里主要用API函数GetDriveType来实现该功能，它使这样定义的：
UINT GetDriveType(
LPCTSTR lpRootPathName //根目录路径的地址
);
它的返回值见下表：
GetDriveType的返回值及说明
值说明
0找不到驱动器类型
1根目录不存在
DRIVE_REMOVABLE可移动盘
DRIVE_FIXED固定盘
DRIVE_REMOTE远程网络盘
DRIVE_CDROMCD_ROM光驱
DRIVE_RAMDISKRAM盘
利用该函数返回值，就能确定驱动器的类型。本例用一个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函数显示出来。
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
