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 如何判断某一窗口最大化

Delphi 关于 class helper for ... 语法

Delphi getfilehashmd5

Delphi http json 验证token

Delphi Delphi写的一个上位机

Delphi鼠标移过放大镜效果

Delphi 2010 unicode

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

Delphi windows 编程[7] - wm_create 消息

Delphi 获取打开的记事本中的内容

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

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