幾個獲取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.kjueaiud.com/

TAG: delphi Delphi windows Windows 程序 獲取 系統