📄 查看驱动器的类型.txt
字号:
查看驱动器的类型(也可以用来得到哪一个驱动器是光驱)
编写button的单击事件
var
i:integer;
c:string;
dtype:integer;
drivestring:string;
begin
//通过循环依次判断各盘符的类型
for i:=65 to 90 do
begin
c:=chr(i)+':\';
dtype:=getdrivetype(pchar(c));
case dtype of
0:drivestring:=C+'不能判断的驱动器类型';
1:drivestring:=c+'根目录不存在';
DRIVER_REMOVABLE:drivestring:=C+'这是一个可移动的驱动器';//必须大写
DRIVE_FIXED:drivestring:=c+'这是一个硬盘驱动器';
DRIVE_REMOTE:=C+'这是一个网络驱动器';
DRIVE_CDROM:=C+'这是光驱';
DRIVE_RAMDISK:=C+'这是一个虚拟硬盘';
end;
showmessage(drivestring);
end;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -