如何得到当前机器中可用的COM端口,
解决方案 »
- 求助关于SQL Server 2005 数据库备份还原用Restore Database不能还原问题
- 为什么同一变量在同一过程中两次showmessage出来的值不一样?
- 没分的问题,怎样使cxSpreadSheet装载数据的速度快一些!
- ●●●●为了自己方便,也为大家方便,建立了一个DELPHI程序员QQ群:8194759●●●●
- WebService菜鸟问题!
- 请问如何把数据库中的简体中文显示到繁体系统里?
- 請高手出手幫忙!!!(高分相送,進者有分)
- FreeOnRelease,Free,Destroy的区别是什么?
- 有谁知道程序员大本营光盘中Delphi5.0 ADOExpress 升级包的注册码?
- installshield developer 和installshield professional有什么区别?
- 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;