您的位置:首页 > 编程语言 > Delphi

Delphi读取本机存在的串口

2020-02-18 00:20 351 查看
uses
  Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
  sl: TStrings;
  i: integer;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware/devicemap/serialcomm', false);
    sl := TStringList.Create;
    try
      reg.GetValueNames(sl);
      for i := 0 to sl.Count -1 do
        Memo1.Lines.Add(reg.ReadString(sl.Strings[i]));
    finally
      sl.Free;
    end;
  finally
    reg.CloseKey;
    reg.free;
  end;
end;
  • 点赞
  • 收藏
  • 分享
  • 文章举报
anykey_1 发布了4 篇原创文章 · 获赞 0 · 访问量 2万+ 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: