利用Windows API函数和注册表获取系统信息

利用Windows API函数和注册表获取系统信息

作者：	评价：	上站日期: 2004-04-18
内容说明：
来源：
在开发应用程序时，增加一项显示计算机系统信息的功能，例如已安装的软盘、硬盘、光驱、网络驱动器，硬盘的容量和剩余空间，显示器分辨率、键盘类型、鼠标的键数，内存大小、CPU类型，Windows的版本号、产品标识、注册用户单位名和用户名、当前操作用户名等(见运行图示)，当然还有更多的信息，这样会使你的程序更友好。其实，有很多应用程序就是这样做的。 　　通过调用Windows的API函数和访问Windows注册表，可以获取大量的系统信息。Delphi为绝大多数WindowsAPI函数提供了调用接口(可参见DELPHI3/SOURCE/RTL/WIN/windows.pas文件)，并提供了一个功能全面的TRegistry类，使我们可以方便的调用WindowsAPI函数和访问注册表，例如： 　　1、function GetDriveType(lpRootPathName: PChar): UINT; 返 回 指 定 驱 动 器 的 类 型。  　　2、function GetDiskFreeSpace(lpRootPathName: PChar; var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; 返 回 指 定 驱 动 器 的 总 簇 数、 剩 余 簇 数 及 每 簇 扇 区 数、 每 扇 区 字 节 数， 从 而 可 以 计 算 出 总 容 量 和 剩 余 空 间。  　　3、function GetSystemMetrics(SM_CXSCREEN或 SM_CYSCREEN): Integer; 返 回 显 示 器 分 辨 率。  　　4、function GetSystemMetrics(SM_CMOUSEBUTTONS): Integer; 返 回 鼠 标 的 按 键 数 目。  　　5、 在windows 注 册 表 的HKEY_LOCAL_MACHINE/ software/microsoft/windows/currentversion /RegisteredOwner 主 键 下 存 放 着Windows 安 装 时 输 入 的 用 户 名, 可 用 以 下 语 句 读 取。  myreg:=Tregistry.Create;  file://必须在程序单元的uses部分加入Registry myreg.RootKey:=HKEY_LOCAL_MACHINE; if myreg.openkey(注释：software/microsoft /windows/currentversion注释：,false) then 　memo1.lines.add(注释： 注册用户名: 注释：+myreg.readstring(注释：RegisteredOwner注释：)); 　myreg.closekey;  　　以 上 仅 举 几 例， 获 取 其 他 一 些 信 息 的 方 法 与 此 类 似， 详 见 源 程 序。  　　本 程 序 在Pwin95、Delphi3 下 调 试 通 过。  　　附: 源 程 序 清 单。  unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var  i,x,y:integer; ch:char; file://驱动器字符注释：A注释：~注释：Z注释： buffer:string; cpuinfo:TSYSTEMINFO; file://存放系统信息的记录类型,在Windows.pas中查到详细内容。 meminfo:TMemoryStatus; file://存放系统内存信息的记录类型。 computername,username:pchar; file://计算机名称、用户名 spc,bps,nofc,tnoc:longint; file://用于存放磁盘容量的变量 myreg:Tregistry; file://用于访问注册表的TRegistry变量 begin memo1.Lines.Clear; for ch:=注释：A注释： to 注释：Z注释： do begin i:=getdrivetype(pchar(ch+注释：:/注释：)); buffer:=注释： 注释：+ch+注释：: 注释：; case i of DRIVE_UNKNOWN : buffer:=buffer+注释：未知类型注释：; DRIVE_REMOVABLE: buffer:=buffer+注释：软盘注释：; DRIVE_FIXED : begin buffer:=buffer+注释：硬盘注释：; if getdiskfreespace(pchar(ch+注释：:/注释：),spc,bps,nofc,tnoc) then  begin buffer:=buffer+注释：总容量: 注释：+inttostr((spc*bps*tnoc) div (1024*1024))+注释：MB注释：; buffer:=buffer+注释：剩余: 注释：+inttostr((spc*bps*nofc) div (1024*1024))+注释：MB注释：; end; end; DRIVE_REMOTE : buffer:=buffer+注释：网络驱动器注释：; DRIVE_CDROM :buffer:=buffer+注释：CD-ROM驱动器注释：; DRIVE_RAMDISK:buffer:=buffer+注释：RAM虚拟驱动器注释：; end; if (ch > 注释：D注释：) and (i=1) then break; if i<  > 1 then memo1.Lines.Add(buffer); end; case getkeyboardtype(0) of file://获取键盘类型 1: buffer:=注释： 键盘: IBM PC/XT或兼容类型(83键)注释：; 2: buffer:=注释： 键盘: Olivetti "ICO"(102键)注释：; 3: buffer:=注释： 键盘: IBM PC/AT(84键)注释：; 4: buffer:=注释： 键盘: IBM增强型(101或102键)注释：; 5: buffer:=注释： 键盘: Nokia 1050注释：; 6: buffer:=注释： 键盘: Nokia 9140注释：; 7: buffer:=注释： 键盘: Japanese注释：; end; memo1.lines.add(buffer); file://获取键盘功能键数目 memo1.lines.add(注释： 功能键数目: 注释：+inttostr(getkeyboardtype(2))); memo1.Lines.add(注释：显示器分辨率: 注释：+inttostr(getsystemmetrics(SM_CXSCREEN)) +注释：x注释：+ inttostr(getsystemmetrics(SM_CYSCREEN))); file://获取鼠标按键数目 memo1.Lines.add(注释： 鼠标: 注释：+inttostr(getsystemmetrics(SM_CMOUSEBUTTONS))+注释：键注释：); globalmemorystatus(meminfo); file://获取系统内存数量 memo1.lines.add(注释： 物理内存: 注释：+inttostr(meminfo.dwTotalPhys div 1024)+注释： KB注释：); i:=getsystemmetrics(SM_CLEANBOOT); case i of 0:buffer:=注释：系统启动模式:正常模式注释：; 1:buffer:=注释：系统启动模式:保护模式注释：; 2:buffer:=注释：系统启动模式:网络保护模式注释：; end; memo1.lines.add(buffer); x:=getsystemmetrics(SM_ARRANGE);  file://获取系统最小化窗口的起始位置和排列方式 y:=x; x:=x and 3; y:=y and 12; case x of ARW_BOTTOMLEFT : buffer:=注释： 最小化窗口:自左下角注释：; ARW_BOTTOMRIGHT : buffer:=注释： 最小化窗口:自右下角注释：; ARW_TOPLEFT : buffer:=注释： 最小化窗口:自左上角注释：; ARW_TOPRIGHT : buffer:=注释： 最小化窗口:自右上角注释：; end; case y of ARW_LEFT : buffer:=buffer+注释：横向排列注释：; ARW_UP : buffer:=buffer+注释：纵向排列注释：; ARW_HIDE : buffer:=buffer+注释：隐藏注释：; end; memo1.lines.add(buffer); getmem(computername,255); file://获取计算机名称和用户名 getmem(username,255); i:=255; getcomputername(computername,i); memo1.lines.add(注释： 计算机名称: 注释：+computername); getusername(username,i); memo1.lines.add(注释： 用户名: 注释：+username); freemem(computername); freemem(username); getsysteminfo(cpuinfo); file://获取CPU类型 case cpuinfo.dwProcessorType of 386 : buffer:=注释： CPU类型: 386注释：; 486 : buffer:=注释： CPU类型: 486注释：; 586 : buffer:=注释： CPU类型: Pentium注释：; end; memo1.Lines.add(buffer); file://从注册表中获取CPU标识，Windows版本， 产品标识，注册单位名称及用户名 myreg:=Tregistry.Create; myreg.RootKey:=HKEY_LOCAL_MACHINE; if myreg.OpenKey(注释：hardware/description/ system/centralprocessor/0注释：,false) then memo1.lines.add(注释： CPU标识: 注释：+myreg.ReadString(注释：VendorIdentifier注释：)); myreg.closekey; if myreg.openkey(注释：software/microsoft/ windows/currentversion注释：,false) then  begin memo1.lines.add(注释： windows版本: 注释：+myreg.ReadString(注释：Version注释：)); memo1.lines.add(注释： 版本号: 注释：+myreg.ReadString(注释：VersionNumber注释：)+注释： 注释：+myreg.ReadString(注释：Subversionnumber注释：)); memo1.lines.add(注释： 产品标识: 注释：+myreg.Readstring(注释：ProductID注释：)); memo1.lines.add(注释：注册单位名称: 注释：+myreg.readstring(注释：RegisteredOrganization注释：)); memo1.lines.add(注释： 注册用户名: 注释：+myreg.readstring(注释：RegisteredOwner注释：)); end; myreg.CloseKey; myreg.Free; end; end