查看驱动器的类型.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 26 行

查看驱动器的类型(也可以用来得到哪一个驱动器是光驱)
编写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;