Hola,
El código puede resumirse poco más o menos así:
Código Delphi
[-]
procedure TMainForm.FormCreate(Sender: TObject);
var
I: Integer;
begin
USBControllerInfo.Active := True;
for I := 1 to USBControllerInfo.ObjectsCount do
begin
USBControllerInfo.ObjectIndex := I;
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
USBControllerInfo.ObjectIndex := I + 1;
USBSerialLabel.Caption :=
USBControllerInfo.USBControllerProperties.DeviceID;
end;
end;
En todo caso adjunto el ejemplo escrito en Delphi XE2: