代码:
Public Function RegValue(ByVal Hive As RegistryHive, _ ByVal Key As String, ByVal ValueName As String, _ OptionalByRef ErrInfo As String = "") As String 'DEMO USAGE 'Dim sAns As String 'Dim sErr As String = "" 'sAns = RegValue(RegistryHive.LocalMachine, _ ' "SOFTWARE\Microsoft\Windows\CurrentVersion", _ ' "ProgramFilesDir", sErr) 'If sAns <> "" Then ' Debug.WriteLine("Value = " & sAns) 'Else ' Debug.WriteLine("This error occurred: " & sErr) 'End If Dim objParent As RegistryKey Dim objSubkey As RegistryKey Dim sAns As String Select Case Hive Case RegistryHive.ClassesRoot objParent = Registry.ClassesRoot Case RegistryHive.CurrentConfig objParent = Registry.CurrentConfig Case RegistryHive.CurrentUser objParent = Registry.CurrentUser Case RegistryHive.DynData objParent = Registry.DynData Case RegistryHive.LocalMachine objParent = Registry.LocalMachine Case RegistryHive.PerformanceData objParent = Registry.PerformanceData Case RegistryHive.Users objParent = Registry.Users End Select Try objSubkey = objParent.OpenSubKey(Key) 'if can't be found, object is not initialized If Not objSubkey Is Nothing Then sAns = (objSubkey.GetValue(ValueName)) End If Catch ex As Exception ErrInfo = ex.Message Finally 'if no error but value is empty, populate errinfo If ErrInfo = "" And sAns = "" Then ErrInfo = _ "No value found for requested registry key" End If End Try Return sAns End Function