【delphi7】通过查询注册表枚举系统存在的串口名称

tyseffxl

于 2022-10-20 11:04:05 发布

阅读量467

点赞数

分类专栏：笔记文章标签：开发语言

本文链接：https://blog.csdn.net/tyseffxl/article/details/127422785

版权

笔记专栏收录该内容

26 篇文章 0 订阅

订阅专栏

"该博客介绍了一个自用的Delphi函数，用于检查指定的串口（如COM1）是否存在于本地计算机的注册表中。函数通过遍历`HKEY_LOCAL_MACHINEhardwaredevicemapserialcomm`下的串口条目，读取并比较串口名称，最终返回查询结果。"

摘要由CSDN通过智能技术生成

网上搜索相关内容后，自用的一个函数，代码如下：

function CheckComPort(ComPortName: string; var ComPortList: Tstrings): boolean;
var
  reg: TRegistry; //uses 单元文件Registry
  ts: TStrings;   //键名
  i: Integer;
  tl: TStringList; //串口名称
  nIndex: Integer;
begin
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware\devicemap\serialcomm', False);

    ts := TStringList.Create;
    reg.GetValueNames(ts); //获取注册表中串口的 键名

    tl := TStringList.Create;
    for i := 0 to ts.Count - 1 do
    begin
      tl.Add(reg.ReadString(ts.Strings[i])); //根据键名，读取注册表中对应的串口名称（例如COM1）
    end;
    tl.Sort;
    ComPortList := tl;
    Result := tl.Find(ComPortName, nIndex);//查询是否存在
    //ShowMessage(IntToStr((nIndex)));
  finally
   // tl.Free;
    ts.Free;
    reg.CloseKey;
    reg.Free;
  end;
end;