文件名称: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)