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

时间:2022-07-30 06:23:40
【文件属性】:

文件名称:Delphi判断磁盘类型获取驱动器信息.rar

文件大小:8KB

文件格式:RAR

更新时间:2022-07-30 06:23:40

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;


【文件预览】:
srcfans.com
----驱动器信息()
--------GetDrive.ddp(51B)
--------Drive.cfg(434B)
--------Drive.res(876B)
--------Drive.dof(2KB)
--------GetDrive.dcu(7KB)
--------GetDrive.dfm(2KB)
--------GetDrive.pas(3KB)
--------Drive.dpr(191B)

网友评论