GLibWMI_2.1b and USB

[dec]

Hola,

El código puede resumirse poco más o menos así:

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  // Activamos el componente
  USBControllerInfo.Active := True;

  // Recorremos los objetos obtenidos
  for I := 1 to USBControllerInfo.ObjectsCount do
  begin
    // Iremos seleccionando uno de los objetos
    USBControllerInfo.ObjectIndex := I;

    // Una vez seleccionado, podemos acceder a sus propiedades
    USBListBox.Items.Add(USBControllerInfo.USBControllerProperties.Caption);
  end;
end;

procedure TMainForm.USBListBoxClick(Sender: TObject);
var
  I: Integer;
begin
  I := USBListBox.ItemIndex;

  if I <> -1 then
  begin
    // El componente "indiza" comenzando con 1, pero el ListBox lo hace con 0
    USBControllerInfo.ObjectIndex := I + 1;

    USBSerialLabel.Caption :=
     USBControllerInfo.USBControllerProperties.DeviceID;
  end;
end;

En todo caso adjunto el ejemplo escrito en Delphi XE2: