Delphi 获取计算机串口列表


本文整理自网络,侵删。

 
 
procedure GetSysSerialComm(CommLst: TStrings);
var
  reg: TRegistry;
  ComList: TStringList;
  i: Integer;
begin
  ComList:= TStringList.Create;
  reg:= TRegistry.Create;
  CommLst.Clear;
  try
    reg.RootKey:= HKEY_LOCAL_MACHINE;
    if reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false) then
    begin
      reg.GetValueNames(ComList);
      for i:= 0 to ComList.Count -1 do
        CommLst.Add(reg.ReadString(ComList[i]));
    end;
  finally
    ComList.Free;
    reg.Free;
  end;
end;
 
//调用示例
procedure TForm1.btn1Click(Sender: TObject);
begin
  GetSysSerialComm(cbb1.Items);
end;

来源:https://blog.csdn.net/liang08114/article/details/86712626

相关阅读 >>

Delphi 流分割与合并文件的函数

Delphi 优盘背景生成器源码

Delphi 实现窗体倒计时进度条显示

Delphi使用hough变换查找直线

Delphi case选择语句练习代码简化

Delphi实现解析百度搜索结果link?url=

Delphi idhttp控件:get/post 请求

Delphi 过滤开头 结尾 全部 空格的函数

Delphi 字符串查找替换函数

Delphi 动态数组传递数据示例

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...