Namespace zaack

  Public Class RegistryApplication

#Region " Speichern/Lesen in der Registry mit _
     Application.UserAppDataRegistry "

  ''' <summary>
  ''' WriteToRegistry(name, value)
  ''' name und value schreiben
  ''' Pfad in der Registry:
  ''' HKEY_CURRENT_USER\Software\[Firma]\[Anwendung]\[Version]
  ''' </summary>
  ''' <param name="name"></param>
  ''' <param name="value"></param>
  ''' <remarks></remarks>

  Public Sub WriteToRegistry(ByVal name As String, _
      ByVal value As String)
    Try
      Application.UserAppDataRegistry.SetValue(name, value)
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
  End Sub

  ''' <summary>
  ''' value von name auslesen
  ''' value = ReadFromRegistry(name)
  ''' </summary>
  ''' <param name="name"></param>
  ''' <returns>value as string</returns>
  ''' <remarks></remarks>

  Public Function ReadFromRegistry(ByVal name As String) _
      As String
    Try
      If Not Application.UserAppDataRegistry.GetValue(name) _
        Is Nothing Then
        Return _
           CType(Application.UserAppDataRegistry.GetValue(name), _
           String)
      Else
        Return String.Empty
      End If

    Catch ex As Exception
      MessageBox.Show(ex.Message)
      Return String.Empty
    End Try
  End Function

#End Region

  End Class

End Namespace