Delphi GetDriveTypeA() 查看驱动器类型

本文整理自网络，侵删。

 
{GetDriveType} 
//调用 GetDriveTypeA(Memo1); 
procedure  GetDriveTypeA(Memo:TMemo); 
var  
            i: Integer; 
            C:String;  
        DType: Integer; 
  DriveString:String;  
begin 
  //通过循环依次判断各盘符的类型 
  Memo.Clear; 
  for i:=65 to 90 do 
  begin 
    C:=chr(i)+':\'; 
    DType:=GetDriveType(PChar(C)); 
    case DType of 
      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; 
 

相关阅读 >>

Delphi xe android]获取屏幕的物理分辨率

Delphi xe6新增特性及功能

Delphi 内存流方式获取页面验证码图片

Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove

Delphi 中拖动无边框窗口的5种方法

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi编程之显示桌面分辨率

Delphi 附加数据读取

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi下idhttp配合cookiemanager获取cookie

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi GetDriveTypeA() 查看驱动器类型