本文整理自网络，侵删。
如果PC端串口x存在且没有被占用，我们用TMScomm控件可以顺利打开并且关闭串口x，如果该端口x被占用或者不存在则会出现错误。利用这个原理，通过try强行打开串口x获取可用串口。具体代码如下：
i:integer;
combobox1.items.clear;for i := 1 to 32 do //一般PC端串口都小于32 begin try MSComm1.CommPort := i; if MSComm1.PortOpen = false then begin MSComm1.PortOpen := true; end; MSComm1.PortOpen := false; ComboBox1.Items.Add(inttostr(i)); except end; end;――――――――――――――――
原文链接：https://blog.csdn.net/Nevermore_anger/article/details/79012875 相关阅读 >>
Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie
Delphi webbrowser设置自己定义user-agent
Delphi 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber
Delphi 判断字符是否是汉字,bytetype字符串中判断是否英文
更多相关阅读请进入《Delphi》频道 >>
