Delphi读取本机存在的串口
2020-02-18 00:20
351 查看
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;
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- delphi6+winxp的DLL断点调试
- DELPHI 控制EXCEL
- Delphi 2007 安装程序不能放在中文目录下安装.
- DELPHI国外经典站
- delphi中PE文件结构
- delphi中使用ADOQuery时的中文参数问题
- 通过delphi将秒数转换成日期格式
- 通过delphi将秒数转换成日期格式
- VC调用Delphi制作的动态链接库如何互相传递字符串
- Delphi 中用 GetEnvironmentVariable 获取常用系统变量
- Speed up the display of Delphi list components
- 用Delphi写ActiveX的经验
- Delphi6利用WebService 编写 SendEMail程序
- delphi 中分隔符分隔的字符串
- Delphi快速从文件流读取数据存入本地txt
- Delphi Opendialog用法
- Delphi选择指定路径作为操作路径
- [转]Delphi 12种大小写转换的方法
- 如何给ActiveX数字签名(Step by Step, Delphi)
- Delphi还是那个Delphi,变化了的只是世界