【Delphi】获取硬盘ID

最新推荐文章于 2024-05-14 15:46:47 发布

原创最新推荐文章于 2024-05-14 15:46:47 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了如何使用WMI（Windows Management Instrumentation）通过VBScript脚本来获取本地计算机上物理硬盘的序列号，重点在于利用`Win32_PhysicalMedia` WQL查询实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses SysUtils, Variants, ActiveX, ComObj;

function GetHardDiskID: String;
const
  wbemFlagForwardOnly = $00000020;
var
  iValue: LongWord;
  oEnum : IEnumvariant;
  FWbemObject   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWMIService   : OLEVariant;
  FSWbemLocator : OLEVariant;
begin;
  Result := '';
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService := FSWbemLocator.ConnectServer('LocalHost', 'Root\CIMV2', '', '');
  FWbemObjectSet:= FWMIService.ExecQuery(
            'Select * From Win32_PhysicalMedia', 'WQL', wbemFlagForwardOnly);
  oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  While oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    if (not VarIsNull(FWbemObject.Properties_.Item('SerialNumber').Value)) then
    begin
      if (FWbemObject.Properties_.Item('Tag').Value = '\\.\PHYSICALDRIVE0') then
      begin
        Result := Trim(FWbemObject.Properties_.Item('SerialNumber').Value);
        Exit;
      end;
    end;
    FWbemObject := UnAssigned;
  end;
end;