请问用什么可以较方便地编辑注册表? 听说有个TRegEdit,不知从哪里可以下载?有没其它代替品?谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses Registry;varmsg:string; RegF:TRegistry;begin RegF:=TRegistry.Create;RegF.RootKey:=HKEY_LOCAL_MACHINE;try RegF.OpenKey('SOFTWARE\NHII\RSGL',true); edit1.Text:= RegF.ReadString('server'); data.database.Caption:= RegF.ReadString('database'); data.path.Caption:=regf.ReadString('path'); edit2.Text:=regf.ReadString('uid'); edit3.Text:=regf.ReadString('password');finally RegF.CloseKey; RegF.Free;End; 很简单的控件编写问题 求realround函数的实现代码 求最高效旋转图片90度和270度的方法!!! 送分了 delphi如何不通过ODBC\ADO连上PB 数据库? 如何取得系统的颜色位数,我用SystemPalette16可以取得16位以上的 请问,有没有把显示操作数据的GIRD做得类似EXCEL模样的控件或者方法? yansea(思宏) 请进!还有问题要问! 应用API 请教Delphi 如何编程方法实现设置跳格的长度 Windows中有没有用于加密和解密的API函数? 非典型“问题”就是"SARQ"
var
msg:string;
RegF:TRegistry;
begin RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\NHII\RSGL',true);
edit1.Text:= RegF.ReadString('server');
data.database.Caption:= RegF.ReadString('database');
data.path.Caption:=regf.ReadString('path');
edit2.Text:=regf.ReadString('uid');
edit3.Text:=regf.ReadString('password');
finally
RegF.CloseKey;
RegF.Free;
End;