µ±Ç°Î»Ö㺱à³ÌÎĵµ >> DELPHI >> 2000/XPÏÂͨ¹ýWMI»ñÈ¡CPUID¡¢Ó²ÅÌÐòÁкš¢BIOSÐòÁкÅ

ËùÊôÀà±ð£ºDELPHI
ÍƼöÖ¸Êý£º¡ï¡ï¡ï¡î
ÎĵµÈËÆø£º1201
±¾ÖÜÈËÆø£º15
·¢²¼ÈÕÆÚ£º2007-5-9

uses ActiveX, ComObj;

//Õâ¸öº¯ÊýʹÓÃÁËWMI£¬¶øÇÒÖ»»ñÈ¡µÚÒ»¸öÓ²¼þ/Èí¼þÉèÖõÄÐÅÏ¢¡£
//Óû§¿ÉÒÔ¸ù¾ÝÐèÒª×ÔÐÐÐ޸ġ£

function GetWMIProperty(WMIType, WMIProperty:String):String;
var
  Wmi, Objs, Obj:OleVariant;
  Enum:IEnumVariant;
  C:Cardinal;
begin
  Wmi:= 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 VarIsArray(Obj) then Result:=Obj[0]
  else Result:=Obj;
end;

º¯ÊýµÄµ÷Óãº
procedure TForm1.btn6Click(Sender: TObject);
begin
  ShowMessage(GetWMIProperty('BIOS','BIOSVersion'));          //»ñµÃBIOS°æ±¾
  ShowMessage(GetWMIProperty('DiskDrive','PNPDeviceID'));     //»ñµÃµÚÒ»¿éÓ²Å̵ÄÉ豸±êʾ
  ShowMessage(GetWMIProperty('Processor','ProcessorId'));     //»ñµÃCPUID¡£
end;