Hallo,
mit Asynchpro:
Delphi-Quellcode:
comport.ShowPortsInUse := False; //nur die freien Schnittstellen werden angezeigt. Evtl. auf true setzen.
LB1.Clear;
for I := 1 to 100 do If comport.IsPortAvailable(I) then
LB1.Items.Add(comport.ComName(I));
LB1 ist eine Tstringlist.
Grüsse
Rainer