如何用C++获取电脑硬件的信息

其实如果你只要读CPU温度或者GPU温度或硬盘参数这种就直接调用WMI接口API就可以，

但其实像“鲁大师”这种程序是自己重写ring0接口程序来获得所有硬件接口信息的，所以需要对底层驱动有很深的了解。

我用了一个开源的Lib实现了对所有硬件信息的读取，全部用Ring0完成，C++要用的话需要用Managed C++

1、获取windows版本信息

可以通过Windows API函数GetVersionEx来获得。

具体程序如下：

Procedure Tform1.Button1Click(sender:TObject)

Var

OSVI:OSVERSIONINFO

begin

OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO)；

GetVersionEx(OSVI)

label1.Caption:=IntToStr(OSVI.dwMinorVersion)+','

+IntToStr(OSVI.dwMinorVersion)+','

+IntToStr(OSVI.dwBuildNumber)+','

+IntToStr(OSVI.dwPlatformId)+','

+OSVI.szCSDVersion

end

end.

2、获取CPU信息

可以通过Windows API函数GetSystemInfo来获得有关信息。

具体程序如下：

procedure TForm1.Button1Click(Sender: TObject)

Var

SysInfo:SYSTEM_INFO

begin

GetSystemInfo(Sysinfo)

Edit1.Text:='系统中有'+IntToStr(Sysinfo.dwNumberOfProcessors)+'个CPU'

+',类型为'+IntToStr(Sysinfo.dwProcessorType)

end

end.

3、获取内存信息

可以通过Windows API函数GlobalMemoryStatus来获得内存信息。

具体程序如下：

procedure TForm1.Button1Click(Sender: TObject)

Var

MemInfo:MEMORYSTATUS

begin

MemInfo.dwLength:=sizeof(MEMORYSTATUS)

GlobalMemoryStatus(MemInfo)

memo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad)+'%的内存正在使用')

memo1.Lines.Add('物理内存共有'+IntToStr(MemInfo.dwTotalPhys)+'字节')

memo1.Lines.Add('可使用的物理内存有'+IntToStr(MemInfo.dwAvailPhys)+'字节')

memo1.Lines.Add('交换文件总大小为'+IntToStr(MemInfo.dwTotalPageFile)+'字节')

memo1.Lines.Add('尚可交换文件大小为'+IntToStr(MemInfo.dwAvailPageFile)+'字节')

memo1.Lines.Add('总虚拟内存有'+IntToStr(MemInfo.dwTotalVirtual)+'字节')

memo1.Lines.Add('未用虚拟内存有'+IntToStr(MemInfo.dwAvailVirtual)+'字节')

end

end.

或用以下代码：

memo1.Text:=IntToStr(MemInfo.dwMemoryLoad)+'%的内存正在使用'+#13#10

+'可使用的物理内存有'+IntToStr(MemInfo.dwAvailPhys)+'字节'+#13#10

+'交换文件总大小为'+IntToStr(MemInfo.dwTotalPageFile)+'字节'+#13#10

+'尚可交换文件大小为'+IntToStr(MemInfo.dwAvailPageFile)+'字节'+#13#10

+'总虚拟内存有'+IntToStr(MemInfo.dwTotalVirtual)+'字节'+#13#10

+'未用虚拟内存有'+IntToStr(MemInfo.dwAvailVirtual)+'字节'

来替代memo1.line.add(…)部分。

4、获取Windows和系统路径

可以通过Windows API函数来获得

具体程序如下：

procedure TForm1.Button1Click(Sender: TObject)

Var

SysDir:array[0..128] of char

begin

GetWindowsDirectory(SysDir,128)

Edit1.Text:='Windows 路径：'+SysDir

GetSystemDirectory(SysDir,128)

Edit1.Text:=Edit1.Text+'系统路径：'+SysDir

end

end.

其中，笔者通过更改数列的值：发现其中的128可更改为人以不小于16的的数值，若小于或等于16均出现异常（笔者的 *** 作系统为Windows2000）。读者朋友不妨试试。

5、获取用户注册信息

我们都知道，一般在软件安装过程中，它都会提示用户，要求输入系列号或产品号和用户的一些注册信息（用户的公司名称、用户名等）以及安装的目录和路径等。

通过以下代码可查看用户注册信息：

procedure TForm1.Button1Click(Sender: TObject)

Var

Reg:TRegistry

begin

Reg:=TRegistry.Create

Reg.RootKey:=HKEY_LOCAL_MACHINE

Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion',False)

Edit1.Text:='当前路径：'+Reg.CurrentPath

Edit2.Text:='产品系列号：'+Reg.ReadString('ProductId')

Edit3.Text:='产品名：'+Reg.ReadString('ProductName')

Edit4.Text:='注册公司名称：'+Reg.ReadString('RegisteredOrganization')

Edit5.Text:='用户名：'+Reg.ReadString('RegisteredOwner')

Edit6.Text:='软件类型：'+Reg.ReadString('SoftwareType')

Reg.CloseKey

Reg.Free

end

end.

注意：在程序编译之前，必须在USES语句下添加registry单元。

6、关闭Widows

可以通过Windows API函数ExitWindowsEx来关闭Widows。

procedure TForm1.Button1Click(Sender: TObject)

begin

if RadioButton1.Checked=true then

ExitWindowsEx(EWX_LOGOFF,0) //以其他用户身份登录

else if RadioButton2.Checked=true then

ExitWindowsEx(EWX_SHUTDOWN,1) //安全关机

else if RadioButton3.Checked=true then

ExitWindowsEx(EWX_REBOOT,2) //重新启动计算机

else if RadioButton4.Checked=true then

ExitWindowsEx(EWX_FORCE,4) //强行关机

else if RadioButton5.Checked=true then

ExitWindowsEx(EWX_POWEROFF,8)//关闭系统并关闭电源

end

end.

VB可以使用Windows管理设备(WMI)进行读取计算机硬件信息。

Dim s, System, item

Dim i As Integer

Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")

For Each item In System

‘List1.AddItem item.cputype

s = "Computer Info" &vbCrLf

s = s &"***********************" &vbCrLf

s = s &"计算机名称: " &item.name &vbCrLf

s = s &"状态: " &item.Status &vbCrLf

s = s &"类型: " &item.SystemType &vbCrLf

s = s &"生产厂家: " &item.Manufacturer &vbCrLf

s = s &"型号: " &item.Model &vbCrLf

s = s &"内存: ~" &item.totalPhysicalMemory \ 1024000 &"mb" &vbCrLf

s = s &"域: " &item.domain &vbCrLf

‘s = s &"工作组" &item.Workgroup &vbCrLf ‘获得工作组和域的选项不能同时用

s = s &"当前用户: " &item.username &vbCrLf

s = s &"启动状态" &item.BootupState &vbCrLf

s = s &"该计算机属于" &item.PrimaryOwnerName &vbCrLf

s = s &"系统类型" &item.CreationClassName &vbCrLf

s = s &"计算机类类型" &item.Description &vbCrLf

For i = 0 To 1 ‘这里假设安装了两个系统

s = s &Chr(5) &"启动选项" &i &" :" &item.SystemStartupOptions(i) _

&vbCrLf

Next i

Next

Text1.Text = s

运行上面的代码后，在textBox中就可以显示计算机的信息。

在上面的代码中，程序通过GetObject("winmgmts:")获得WMI对象，然后获得下面的

Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。

*需要说明的是，并不是所有的系统都支持WMI，在有些系统中无法显示生产厂家等信息。

---