【结】平台有没有函数获得CPU的ID、硬盘ID或网卡Mac地址？**

Hexc

如题

Hexc

我在网上找到一段delphi函数可以做到，如下：

Hexc

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;
请问，这段函数在平台上该怎么写？

lixy

最简单的，包装进来就可以了。在论坛里面搜索第三方控件关键词

Hexc

包装起来太麻烦，还得导入bpl和dll，直接改写不行吗？

lixy

里面有很多接口枚举的，不一定可以。

Hexc

只好导入包了，结贴了