Delphi WMI[3] 获取硬盘ID的方法（无需管理员权限）

Delphi WMI[3] 获取硬盘ID的方法（无需管理员权限）

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function GetWMIHardNo() : String; var   Locator : OleVariant;   WMI     : OleVariant;   RET     : OleVariant;   Enum    : IEnumVariant;   Tmp     : OleVariant;   Value   : Cardinal; begin   Result := '';     try     Locator := CreateOleObject('WbemScripting.SWbemLocator');     WMI     := Locator.ConnectServer('.', '', '', '');     RET     := WMI.ExecQuery('Select * From  Win32_DiskDrive');  //Win32_DiskDrive  Win32_PhysicalMedia     Enum    := IUnknown(RET._NewEnum) as IEnumVariant;       while (Enum.Next(1, Tmp, Value)= S_OK) do     begin       Result := Trim(Tmp.SerialNumber);         if (Length(Result) > 0) then       begin  break; end;     end;         finally     Locator := UnAssigned;   end;     end;

　　

 

 

 

 

创建时间：2021.08.03　　更新时间：