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;
 

相关阅读 >>

Delphi idhttp访问百度

Delphi文件无法拖拽功能失效

Delphi 程序嵌入桌面效果的实现

Delphi 两个非常有用的进程函数

Delphi 检查输入的ip地址串是否合法

Delphi 编写activex控件（ocx控件）的知识和样例

Delphi如何判断系统是否安装了flash插件

Delphi判断字符是否是汉字

Delphi webbrowser多次执行documentcomplete

Delphi 编译发布安卓的app名字问题

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

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