как средствами Delphi опросить USB порты?

[beegl]

Задача! Если ни в одом из USB портов не будет подключённых устройств, то вывело сообщение. что нет подключённых устройств, в противном случае программа молча продолжала свою роботу :-)
Буду рад любой информации, по данному вопросу.
Нашол хороший компонент BComPort, там есть procedure EnumComPorts(Ports: TStrings);
которая формирует список последовательных портов, установленных на данном компьютере (Приложение может использовать полученный список для выбора имени порта, через который необходимо установить связь с внешним устройством.)
Думаю, я близок к тому, что мне надо, вот код, получения списка активных портов:

begin
EnumComPorts(ComboBox1.Items);
BComPort1.Port := ComboBox1.Text;
end;

Я пытался сделать так:

begin
if BComPort1.Port = '' then
showmessage('нет активных портов');
end;

код запустился, но ничего не сообщал, потом вернулся к процедуре EnumComPorts, но не пойму как реализовать, помогите пожалуйста
_________________
Вот как я обхитрил немножко:

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Visible := false;
EnumComPorts(ComboBox1.Items);
BComPort1.Port := ComboBox1.Text;
if ComboBox1.Items.Text = '' then
showmessage('Net aktivnih portov')
else
//////////
end;
end.

Мне подходит этот вариант. Прошу прощения за беспокойство, если будут свои предложения, обезательно прочитаю

[rpy3uH]

Сообщение от beegl

Задача! Если ни в одом из USB портов не будет подключённых устройств, то вывело сообщение. что нет подключённых устройств, в противном случае программа молча продолжала свою роботу :-)

в windows нет портов есть только то, что подключено к ним. Это ярко выражено в случае с USB портами. Случай с портами COM и LPT это чисто совместимость со старыми программами и подгон под стандарт.

[mihali4]

Почитайте статью СуперМодератора "Работа с устройствами в Windows" в блогах на сайте клуба. Там как раз речь идет о просмотре USB-устройств.

[beegl]

почитал статью "Работа с устройствами в Windows", познавательная, спасибо.