| 結局以下でいきました。
Private Function mFunGetOracle_Home() As String
Dim KeyName As String = "SOFTWARE\ORACLE"
Dim Name As String = "ORACLE_HOME"
Try
Dim wkReg As Microsoft.Win32.RegistryKey
'HKEY_LOCAL_MACHINE配下のキーを操作する
wkReg = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(KeyName)
' <<< ***** For Debug ****
Console.WriteLine("{0}={1}", Name, wkReg.GetValue(Name))
' >>> ***** For Debug ****
mFunGetOracle_Home = wkReg.GetValue(Name)
wkReg.Close()
Catch ex As NullReferenceException
Console.WriteLine("エラー:{0}", ex.Message)
Catch ex As Exception
Console.WriteLine("エラー:{0}", ex.Message)
End Try
End Function |