[infopol]

Код:

procedure TForm1.Button2Click(Sender: TObject);
Var
  List:TStrings;
  DeviceList : THIDDeviceList;
  I          : Integer;
  HID_GUIid :TGUID;
  begin
 LoadHid();
LoadSetupApi();
  // Abort;
//EnumDevices(list);
 //  HidD_GetHidGuid
 //HidD_GetHidGuid( HID_GUIid);
//Abort;
  ScanForHIDdevices( DeviceList, 0, 0);

  Memo1.Lines.Clear;
  Memo1.Lines.Add(IntToStr(Length(DeviceList)) + ' device(s) found');
  If Length(DeviceList) > 0 then
    For I := 0 to Length(DeviceList)-1 do
      With DeviceList[i] do
      begin
        Memo1.Lines.Add('Device Number : '   + IntToStr(I));
        Memo1.Lines.Add('Symbolic link : '   + SymLink);
        Memo1.Lines.Add('Handle        : 0x' + IntToHex(Handle, 1));
        Memo1.Lines.Add('Buffer size   : '   + IntToStr(BufferSize));
        Memo1.Lines.Add('VID           : 0x' + IntToHex(VID, 4));
        Memo1.Lines.Add('PID           : 0x' + IntToHex(PID, 4));
        Memo1.Lines.Add('Version       : '   + IntToStr(VersionNumber));
        Memo1.Lines.Add('Manufacturer  : '   + ManufacturerString);
        Memo1.Lines.Add('Product name  : '   + ProductString);
        Memo1.Lines.Add('Serial number : '   + SerialNumberString);
        Memo1.Lines.Add(' ');
      end;
  Memo1.SetFocus;



unLoadHid();
unLoadSetupApi();
 end;

0 device(s) found