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

领测软件测试网 关键字：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)+’,’ 

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

TAG: delphi Delphi windows Windows 程序 获取 系统