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 get_hd_serial() 获得磁盘驱动器序列号

Delphi xe android下让tmemo不自动弹出键盘

Delphi 检测文件数字签名

Delphi 匿名管道

Delphi post登陆Delphi盒子论坛源码

Delphi 10.3 处理csv tstreamreader 自带split用法

Delphi 10.3 开发app 在android手机上获取imei

Delphi 获取网卡物理地址之内存获取方式函数源码

Delphi中url的汉字编码

Delphi 怎样判断spinedit在微调时值是增加还是减少了

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

转载请注明出处：木庄网络博客 » Delphi 获取计算机串口列表