C#中对注册表的操作读写注册表方法

最新推荐文章于 2009-07-18 07:21:00 发布

guopeng_028

最新推荐文章于 2009-07-18 07:21:00 发布

阅读量782

点赞数

分类专栏： VB.NET 文章标签： c# string exception function

本文链接：https://blog.csdn.net/guopeng_028/article/details/570152

版权

VB.NET 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

    '从注册表中读信息;
    ' <param name="p_KeyName">要读取的键值</param>
    ' <returns>读到的键值字符串,如果失败(如注册表尚无信息),则返回""</returns>
    Private Function ReadInfo(ByVal p_KeyName As String)
        Dim SoftwareKey As RegistryKey = Registry.LocalMachine.OpenSubKey("Software", True)
        Dim CompanyKey As RegistryKey = SoftwareKey.OpenSubKey(m_companyname)
        Dim strvalue As String = ""
        If CompanyKey Is Nothing Then
            Return ""
            Dim SoftwareNameKey As RegistryKey = CompanyKey.OpenSubKey(m_softwarename)
            If SoftwareNameKey Is Nothing Then
                Return ""
                Try
                    strvalue = SoftwareNameKey.GetValue(p_KeyName).ToString().Trim()
                Catch ex As Exception

                End Try
                If strvalue Is Nothing Then
                    strvalue = ""
                    Return strvalue
                End If
            End If
        End If
    End Function

    '将信息写入注册表
    '<param name="p_keyname">键名</param>
    '<param name="p_keyvalue">键值</param>
    Private Sub WriteInfo(ByVal p_keyname As String, ByVal p_keyvalue As String)
        Dim SoftwareKey As RegistryKey = Registry.LocalMachine.OpenSubKey("Software", True)
        Dim CompanyKey As RegistryKey = SoftwareKey.CreateSubKey(m_companyname)
        Dim SoftwareNameKey As RegistryKey = CompanyKey.CreateSubKey(m_softwarename)
        SoftwareNameKey.SetValue(p_keyname, p_keyvalue)
    End Sub