Delphi 查看所有的串口设备

最新推荐文章于 2020-03-02 23:05:42 发布

weixin_30949361

最新推荐文章于 2020-03-02 23:05:42 发布

阅读量734

点赞数

原文链接：http://www.cnblogs.com/wangmingshuo/p/3365209.html

版权

本文介绍如何通过注册表获取HKEY_LOCAL_MACHINE下hardwaredevicemapserialcomm路径的值，进而从字符串列表中读取并清空下拉框选项。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
  reg : TRegistry;
  sComm : TStrings;
  i : integer;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('hardware\devicemap\serialcomm',false);
  sComm := TStringList.Create;
  reg.GetValueNames(sComm);

  cbb1.Items.Clear;

  for i := 0 to sComm.Count -1 do
  begin
    cbb1.Items.Add(reg.ReadString(sComm.Strings[i]));
  end;

  sComm.Free;
  reg.CloseKey;
  reg.free;
end;