实现程序的主要函数有四个： GetOsVersion() //取得操作系统版本 GetMemInfo() //取得内存信息 GetDriverInfo() //取得驱动器信息 GetCpuInfo() //取得CPU信息，这里只是读取了注册表的ProcessorNameString具体代码见程序！ (procedures to achieve the four main functions : GetOsVersion ()// OS version made GetMemInfo ()//
Delphi GetDriveType获取磁盘驱动器信息，获取电脑中的磁盘是否是可移动磁盘，并以列表出来，鼠标双击列表中的任意磁盘，会显示出该磁盘的详细信息，包括：总磁盘空间、有效空间、总簇大孝空簇数目等，可编写以下代码实现部分磁盘信息获取功能： c := chr(i) :\; DType := GetDriveType(Pchar(c)); case DType of 0: DriveString := c 该驱动器类型不能确定。; 1: DriveString
