デルファイWMIは、オペレーティングシステムの情報を取得します

使用したActiveX、ComObjを。

機能 GetWMIProperty（WMIProperty：文字列）：文字列;
VAR 
WMI、OBJS、OBJの：OleVariant; 
列挙型：IEnumVariant。
C：枢機卿。
開始
WMI： = CreateOleObject（' WbemScripting.SWbemLocator ' ）; 
OBJS： = Wmi.ConnectServer（' '、' ルート/ CIMV2 '）.ExecQuery（' のWin32_OperatingSystem SELECT * FROM ' ）; 
列挙： = IEnumVariant（IUnknownの（Objs._NewEnum））。
Enum.Reset; 
Enum.Next（1 、OBJの、C）。
OBJ： = Obj.Properties_.Item（WMIProperty、0 ）.Valueの。
結果： = のObj。
エンド; 

手順TForm1.FormCreate（送信者：TObjectを）;
開始

Memo1.Text： = GetWMIProperty（' キャプション'）+ GetWMIProperty（' バージョン' ）;
エンド ;