{GetDriveType}
//调用GetDriveTypeA(Memo1);
procedureGetDriveTypeA(Memo:TMemo);
var
i:Integer;
C:String;
DType:Integer;
DriveString:String;
begin
//通过循环依次判断各盘符的类型
Memo.Clear;
fori:=65to90do
begin
C:=chr(i)+':\';
DType:=GetDriveType(PChar(C));
caseDTypeof
0:DriveString:=C+'不能判断的驱动器类型.';
1:
DriveString:=C+'根目录不存在.';
DRIVE_REMOVABLE:DriveString:=C+'可移动驱动器';
DRIVE_FIXED:DriveString:=C+'硬盘驱动器.';
DRIVE_REMOTE:DriveString:=C+'网络驱动器.';
DRIVE_CDROM:DriveString:=C+'光盘驱动器.';
DRIVE_RAMDISK:DriveString:=C+'虚拟硬盘.';
end;
Memo.Lines.Add(DriveString);
end;
end;

通过 为知笔记 发布

附件列表

• flash.png

优质内容筛选与推荐>>
1、构造代码块执行顺序
2、第16周作业
3、Java 中的四种引用
4、预编译&作用域链
5、个人介绍

赞赏

长按二维码向我转账

受苹果公司新规定影响，微信 iOS 版的赞赏功能被关闭，可通过二维码转账支持公众号。

阅读

已发送

发送中