同上
解决方案 »
- 怎么制作QQ宠物似的 桌面精灵
- 菜鸟提问~~~关于progressbar问题。。。。
- 请大家帮我修改一下这段SQL代码!
- 如何判断一个字符串的内容是否为另外一个字符串的一部分?
- 关于网络编程(冰河的屏幕控制怎么实现)
- 救救我把:( PANEL的问题
- 代码实现当前目录的备份,比如:d:\aa下执行程序bk.exe,则建目录d:\aa\backup,将d:\aa目录下所有内容copy 至d:\aa\backup下(包括程序bk.exe
- 熟悉Treeview(.data属性)的高手请进!!!!
- 数组数组数组数组数组数组数组数组
- 字符串的疑问
- 急问一个关于字符串的小问题
- 开发类似outlook界面风格的程序,有何控件或开放源码
sUser:=getInis(aIniFile,'Database Connection','User','sa');
sPassword:=getInis(aIniFile,'Database Connection','Password','sa');
sDbServer:=getInis(aIniFile,'Database Connection','DatabaseServer','');
//=====修改注册表
if ifIp(sDbServer) then sKeyValue:='DBMSSOCN,'+sDbServer+',1433'
else sKeyValue:='DBMSSOCN,'+sDbServer+',1433'; //管道加密,设定天数
RegInfo := TRegistry.Create;
RegInfo.RootKey:=HKEY_LOCAL_MACHINE; //存放在此根下
if not regInfo.KeyExists(HKEY) then//键值不存在
Begin
regInfo.OpenKey(HKEY,true);
regInfo.WriteString(sDbServer,sKeyValue);
End else
Begin
regInfo.OpenKey(HKEY,false);
if not regInfo.ValueExists(sDbServer) then regInfo.WriteString(sDbServer,sKeyValue);
End;
regInfo.Free;