Определение наличия com порта

[yulia]

Подскажите, пожалуйста, как можно программно определить наличие com-порта на машине?

[Stilet]

как можно программно определить наличие com-порта на машине?

Всмысле? СОМ-порт вроде на всех машинах де-факто.

[yulia]

На ноутах, например, нету... И на новых машинах тоже нету....

Ну и еще он может сломаться или быть отключенным...

Но все равно, спасибо и тему можно закрывать.. я нашла решение... кому может понадобится -выкладываю..

var
FHandle:THandle;
i:integer;
begin
for i:=0 to 7 do begin
FHandle:=CreateFile(PChar('COM'+inttostr(i+1)),
GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED,0);
if FHandle<>INVALID_HANDLE_VALUE then
RzComboBox1.Items.Add('COM'+inttostr(i+1));
CloseHandle(FHandle);
end;

[Stilet]

На ноутах, например, нету... И на новых машинах тоже нету....

Странно

я нашла решение

Молоцца. Запишем его в анналы.

[yulia]

Опять встала проблема с этим com-портом...

выше написанная процедура, опеределяющая наличие портов на машине работает отлично на стационарных компах.. Т.е. определяет все порты и если их отключить в диспетчере устройств, то не оперделяет..

Но вот странность - когда я запускаю ее на ноутбуке, на котором нету com-порта (100%), то он находит какой-то com3, причем тестилось на разных ноутах и везде одно и тоже...

Что же он такое находит?

[Juggernaut]

Может быть он так определяет USB.

[yulia]

А почему тогда один? Их на ноуте 4...

[Juggernaut]

А может это и не USB, может это Bluetooth или WiFi... (хотя последнее врядли). Возможно Bluetooth, да.

[yulia]

Вот в том-то и проблема, что Bluetooth тоже нету на нем... на этом ноуте есть только USB и Wi-Fi... даже камеры нету....

[Juggernaut]

Ну тогда девушка, простите, незнаю.