ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 描述电脑的外围USB设备

描述电脑的外围USB设备

原创 Linux操作系统 作者:niuchao 时间:2019-06-01 17:30:04 0 删除 编辑
uses ExtCtrls,ActiveX, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
Locator: 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为检测项,详见MSDN
    Enum:= IUnknown(RET._NewEnum) as IEnumVariant;
    while (Enum.Next(1, Tmp, Value) = S_OK) do
    begin
      //if Tmp.Name='USB Mass Storage Device' then
        ShowMessage('这个u盘的硬件特征码是'+Tmp.PNPDeviceID);//Tmp为检测到返回的数据集合,其中PNPDeviceID为集合中的对象,包含了PID和VID码
    end;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-773347/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2004-11-04

  • 博文量
    139
  • 访问量
    108197