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 ioutils 单元(5): tdirectory.tdirectory 的其他功能

Delphi研究之驱动开发篇（七）--利用共享内存与用户模式

Delphi获取本地全部盘符并存如combobox1

Delphi获取本机的ip地址

Delphi在64位系统下写注册表注意事项

Delphi 如何识别应用程序没有响应

Delphi 下载一个jpg图片保存为bmp图片

Delphi debug和release区别

Delphi 得到指定文件夹内文件名

Delphi 获取用户当前的windows临时文件夹

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

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