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