几个获取Windows系统信息的Delphi程序

领测软件测试网

+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); 

文章来源于领测软件测试网 https://www.ltesting.net/