如何得到当前机器中可用的COM端口 如何得到当前机器中可用的COM端口, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure 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); for i := 0 to ts.Count -1 do begin Memo1.Lines.Add(reg.ReadString(ts.Strings[i])); end; ts.Free; reg.CloseKey; reg.free;end; 将DBgrid中某字段的值 求和后 没显示 ....求助 如何通过datetimepicker中获得的日期来计算,详情请进 网络高手请帮忙!如何实现即插即用功能? 怎么编辑Listview选定的行的Subitem值? indy 10问题 简单问题 请问如何获得打印机状态?比如是否联机 关于将一个字符串录入数据库的问题 谁能告诉我Delphi6.0中文版的下载地址,300分赠送 三层结构中的主子表关系! 50分求问一个简单问题!!! 总是提示说FROM 字句出错请问为什么?
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);
for i := 0 to ts.Count -1 do begin
Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
end;
ts.Free;
reg.CloseKey;
reg.free;end;