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 winexec 执行cmd

Delphi getwebbrowserhtml 获取网页源代码

Delphi 安卓app在线升级

Delphi ioutils单元查找文件夹高级功能

Delphi msxml 获取 api接口

Delphi 关于字符串, 之前没这样用过

Delphi中三种延时方法

Delphi中获取guid的函数

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi crc32算法

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

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