Delphi调用WMI读取USB设备的PID和VID

               

以下代码出自http://blog.youkuaiyun.com/hellogv/,引用请注明出处！

---

 WMI(Windows®Management Instrumentation ) 非常强大，它可以以数据库的形式查询你的电脑的软件和硬件，在它的数据库里面，时刻保存着最新的软件信息和硬件信息，因此你可以用WMI来检测CUP主频、温度，读取WINDOWS的进程.........

  本文就介绍如何使用WMI读取USB设备的PID和VID码

 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls,ActiveX, ComObj;procedure TForm1.Button2Click(Sender: TObject);varLocator: OleVariant;WMI: OleVariant;RET: OleVariant;Enum: IEnumVariant;Tmp: OleVariant;Value: Cardinal;begin;Locator := CreateOleObject('WbemScripting.SWbemLocator');WMI := Locator.ConnectServer('.', '', '', '');Ret := WMI.ExecQuery('SELECT * FROM Win32_USBHub');//这里Win32_USBHub为检测项，详见下表Enum:= IUnknown(RET._NewEnum) as IEnumVariant;