如何获取串口？ ( 积分: 50 )

请问高手，程序自动获取使用了串口几，应该怎么写？

罗列你电脑上的的串口,被占用的端口不能再被激活.这样就可以判断当前那个串口使用

function GetCommList: TStrings;
const
Key_Comm = 'HARDWARE/DEVICEMAP/SERIALCOMM';
var
reg: TRegistry;
ls: TStrings;
i: Integer;
s: string;
begin
Result := TStringList.Create;
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey(Key_Comm, False) then
begin
ls := TStringList.Create;
reg.GetValueNames(ls);
for i := 0 to ls.Count - 1do
begin
s := reg.ReadString(ls);
if (s<>'') and (Result.IndexOf(s)=-1) then
Result.Add(s);
end;
ls.Free;
end;
reg.CloseKey;
end;

谢谢

腾云驾雾超级服务器正式免费推出！无须任何维护，可让您在1分钟之内建立属于自己的网站！
腾云驾雾超级服务器程序既是一个 webserver 又是一个网站。超级服务器的主要目的是让运行这个程序的人，立即拥有一个属于自己
的网站，理论上 腾云驾雾超级服务器 可以将世界上任何一个网站变成运行本服务器程序的那台电脑的网站！
同时您只要拥有一个全世界唯一的IP地址，那么你就可以让全世界的人来访问你的网站了！当然您要是有一个域名绑定您的IP，那就更
爽了！
腾云驾雾超级服务器程的最大优点是：
1、可以让你在一分钟之内完全拥有一个属于您自己的网站。（快速）
2、您拥有的这个网站将无需要任何维护！（省事）
3、您只要申请 google 的 在线广告 AdSense 就可以开始挣钱了。（挣钱）
4、只要在 参数配置文件 tengyunjiawuserver.ini 中填写 您 google AdSense 的代码编码就可以开始挣钱了。
5、腾云驾雾超级服务器属于纯绿色软件，无需安装注册！(绿色环保)
6、腾云驾雾超级服务器即是一个 webserver 又是一个网站，所以只占用大约 1.5MB大小的空间！（不占地）
理论上 腾云驾雾超级服务器 可以将世界上任何一个网站变成运行本服务器程序的那台电脑的网站！
超级服务器 奥运版
下载地址1：http://www.tengyunjaiwu.com/download/tyjw_aoyun.rar
下载地址2：http://www.600bbs.com/t.rar
超级服务器 baidu 版
下载地址1：http://www.tengyunjaiwu.com/download/tyjw_baidu.rar
下载地址2：http://www.600bbs.com/chao.rar
腾云驾雾超级服务器即是一个 webserver 又是一个网站，如果您的电脑正在运行 Apache 或 IIS 或 Tomcat 请先关掉！
有任何问题请联系我： http://www.tengyunjiawu.com
可以定制啊,你看上哪个网站了,告诉我,我帮你做那个网站的版本啊!
腾云驾雾超级服务器推出 google 版本,端口,广告可完全自定义
超级服务器 google 版
下载地址1：http://www.tengyunjiawu.com/download/tyjw_google.rar
你可以看看 google 版本的 DEMO (本人带宽只有 1MB,速度可能慢了点,大家多谅解啊!)
http://www.tengyunjiawu.com:8080
这个版本也叫气死 google 不偿命
做的还不是很完善,请大家多批评指教!