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 结构化文件存取

Delphi 调用dos nbtstat 并获得结果

Delphi tms web core messagedlg对话框 yes no

Delphi 掌控pagecontrol中的右上方的左右箭头事件

Delphi使用xmlhttp获取时间

Delphi中设置条件断点

Delphi 动态注册卸载ocx

Delphi 关于位图的像素格式

Delphi 取bmp图片宽高

Delphi tidhttp+tidssliohandlersocket+ssl

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

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