当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

Delphi判断磁盘类型获取驱动器信息

Delphi判断磁盘类型获取驱动器信息,判断磁盘哪些是可移动的,哪些是不可移动的,哪些是CDROM,哪些是RAM,哪些是USB设备,不过程序在Windows7下,不能获取到磁盘的容量和使用情况以及簇信息,当里这个代码是10年的,主要面向XP系统。以下是程序的主要代码:
  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 + '该驱动器为CD-ROM驱动器。';
   DRIVE_RAMDISK: DriveString := c + '该驱动器驱动器为RAM磁盘。';
   end;
   if not ((DType = 0) or (DType = 1)) then
   lbDrives.Items.AddObject(DriveString, Pointer(i));
  end;

  • 相关标签:磁盘信息
  • 调试环境:Delphi7+
  • 文件大小:7.85K
  • 资源评级:
  • 更新时间:2019-01-10
  • 相关链接:暂无演示

源码测试截图:

Delphi判断磁盘类型获取驱动器信息运行截图

相似源码:磁盘信息 Delphi源码下载:Delphi判断磁盘类型获取驱动器信息 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi判断磁盘类型获取驱动器信息”源代码侵犯了您的权益,请尽快告诉我们。