DELPHI利用WMI獲取主板參數

procedure TFrmMain.RzGroup1Items1Click(Sender: TObject); beginMemo1.Clear;Memo1.Lines.Add('【主板參數信息】');Memo1.Lines.Add('');Memo1.Lines.Add('BIOS序列號： '+GetWMIProperty('BIOS','SerialNumber'));Memo1.Lines.Add('BIOS版本號： '+GetWMIProperty('BIOS','SMBIOSMajorVersion'));Memo1.Lines.Add('BIOS制造商： '+GetWMIProperty('BIOS','Manufacturer'));Memo1.Lines.Add('出廠日期： '+GetWMIProperty('Bios','ReleaseDate'));end;

公共函數

function GetWMIProperty(WMIType, WMIProperty:AnsiString):String; varWmi, Objs, Obj: oleVariant;Enum: IEnumVariant;C: Cardinal; beginWmi:= CreateOleObject('WbemScripting.SWbemLocator');Objs := Wmi.ConnectServer('.','root/cimv2').ExecQuery('Select * from Win32_' + WMIType);Enum := IEnumVariant(IUnknown(Objs._NewEnum));Enum.Reset;Enum.Next(1,Obj,C);Obj := Obj.Properties_.Item(WMIProperty, 0).Value;if VarIsNull(obj) thenbeginResult:='Error';end;if VarIsArray(obj) thenbeginResult := Obj[0];end;if VarIsStr(obj) or VarIsCustom(obj) or VarIsFloat(obj) or VarIsNumeric(obj) or VarIsOrdinal(obj) thenbeginResult:= Obj;end;end;

WMI-Win32_baseboard 主板參數
Caption --簡述
ConfigOptions --數組，表示位于在底板上跳線和開關的配置。
CreationClassName --表示類的名稱(就是Win32_baseboard類)
Depth --以英寸為單位的物理封裝。
Description --對象的描述（底板）
Height --用英寸表示的物理包的高度
HostingBoard --如果為TRUE，該卡是一個主板，或在一個機箱中的基板。
HotSwappable --如果為TRUE，就是支持熱插拔（判斷是否支持熱插拔）
InstallDate --日期和時間對象安裝。此屬性不需要的值以表示已安裝的對象。
Manufacturer --表示制造商的名稱
Model --物理元素的名稱是已知。
Name --對象的名稱標簽
OtherIdentifyingInfo --捕獲附加數據，超出資產標簽的信息，可以用來標識物理元件
PartNumber --由負責生產或制造的物理元素的組織分配部件編號。
PoweredOn --如果為真，物理元素處于開機狀態。
Product --產品的型號
Removable --判斷是否可拆卸的
Replaceable --判斷是否可更換的
RequirementsDescription --自由格式字符串描述方式，這張卡是身體不同于其他卡。該屬性才有意義時，相對應的布爾值屬性特殊要求是集真的
RequiresDaughterBoard --如果是TRUE，至少一個子板或輔助卡才能正常工作。
SerialNumber --制造商分配的用于識別所述物理元件數目。
SKU --庫存的物理單元號。
SlotLayout --描述插槽位置
SpecialRequirements --如果為真，此卡是同類型的其他卡物理上唯一的，因此需要一個專門的插槽
Status --對象的當前狀態。
Tag --符系統的基板唯一標識
Version --物理元素的版本
Weight --物理元素的重量英鎊表示
Width --用英寸表示的物理元素的寬度

總結

以上是生活随笔為你收集整理的DELPHI利用WMI获取主板参数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。