Delphi 查看所有的串口设备

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

android : assets与res/raw资源目录的区别

Delphi 根据快捷方式路径取源文件地址

Delphi 10.3版本获取windows系统版本和cpu信息

pascal 语言中的关键字及保留字

Delphi 格式化输出函数(2): formatdatetime

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi 检测cpu内核数

Delphi systemparametersinfo 用法

Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件

Delphi tmemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现

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

转载请注明出处：木庄网络博客 » Delphi 查看所有的串口设备