摘要：
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... 阅读全文
