实现程序的主要函数有四个： GetOsVersion() //取得操作系统版本 GetMemInfo() //取得内存信息 GetDriverInfo() //取得驱动器信息 GetCpuInfo() //取得CPU信息，这里只是读取了注册表的ProcessorNameString具体代码见程序！ (procedures to achieve the four main functions : GetOsVersion ()// OS version made GetMemInfo ()//
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: Dri
