Delphi读取串口设备信息代码
此博客展示了一段Delphi代码，用于读取本地机器硬件设备映射中的串口信息。代码通过创建注册表对象，打开指定注册表键，获取键下的值名称，并将对应的值读取到备忘录中，最后释放相关资源。
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;
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;
扫一扫
1118
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
