摘要: 1 //从注册表中读出tnsnames.ora路径并调用解析函数 2 procedure TfmLogin.GetServer; 3 var 4 reg : Tregistry; 5 regValue : TStrings; 6 values : string; 7 begin 8 reg := TRegistry.Create; 9 regValue := TStrings.Create;10 try11 reg.RootKey := HKEY_LOCAL_MACHINE;12 reg.OpenKeyReadOnly('SOFTWARE\ORACLE... 阅读全文
posted @ 2013-04-08 11:39 bizhu 阅读(1914) 评论(0) 推荐(1) 编辑