怎样用delphi获得计算机设备管理器中的COM号
发布网友
发布时间：2022-05-05 16:46
共1个回答
热心网友
时间：2022-06-27 19:08
如果是获取计算机设备中的 COM 端口列表，可以通过 windows 系统的注册表中相关信息来完成，有关计算机设备中的 COM 端口列表数据，保存在注册表的 HKEY_LOCAL_MACHINE
\Hardware\Devicemap\SerialComm 节点。
以下是示例代码：
uses System.Win.Registry;{$R *.dfm}
procere TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
ts: TStrings;
i: Integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Hardware\Devicemap\SerialComm',False);
ts := TStringList.Create;
reg.GetValueNames(ts);
reg.CloseKey;
reg.Free;
ts.Free;
end;
