几个获取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)+’,’ 

原文转自：http://www.ltesting.net