Порты, определить их число Опции

[Catty]

Надо написать прогу на паскале которая бы определяла число
подключенных последовательных портов. :flowers:

[volvo]

Catty, насколько я помню, это делается вот так:
Байт по адресу 0000:0411h в первом, втором и третьем битах содержит общее количество установленных COM-портов, а в шестом и седьмом - количество LPT-портов. Отсюда -

Код

var
 counter: byte absolute $0000:$0411;
begin
 writeln('Число установленных COM портов: ',(counter shr 1) and $07);
 writeln('Число установленных LPT портов: ', counter shr 6)
end.