几个获取Windows系统信息的Delphi程序
本文所有的窗体界面略去,读者可根据程序自行添加各窗口组件。
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; b |