Delphi GetDriveType获取是否是移动磁盘驱动器.rar

时间:2022-07-30 06:25:50
【文件属性】:

文件名称:Delphi GetDriveType获取是否是移动磁盘驱动器.rar

文件大小:8KB

文件格式:RAR

更新时间:2022-07-30 06:25:50

Delphi源码-系统相关

Delphi GetDriveType获取磁盘驱动器信息,获取电脑中的磁盘是否是可移动磁盘,并以列表出来,鼠标双击列表中的任意磁盘,会显示出该磁盘的详细信息,包括:总磁盘空间、有效空间、总簇大孝空簇数目等,可编写以下代码实现部分磁盘信息获取功能:   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;


【文件预览】:
codesc.net
----GetDrive()
--------Drive.dof(2KB)
--------GetDrive.ddp(51B)
--------GetDrive.pas(3KB)
--------Drive.dpr(191B)
--------Drive.cfg(434B)
--------GetDrive.dcu(7KB)
--------Drive.res(876B)
--------GetDrive.dfm(2KB)

网友评论