如何监测机器配置有多少Modem?

[gbxiao]

并如何监测每个Modem的属性（如名称、连接端口）？
如何调用该Modem的属性？

[coolblue]

use Registry;
//判断平台共有几个通讯口，并加到DBComboxBox1的ITEMS中
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm',false);
ts := TStringList.Create;
reg.GetValueNames(ts);
TotalComNum := ts.Count - 2; //一般Com1和Com2不用
ts.Free;
reg.CloseKey;
reg.free;