VB里如何使用RegOpenKey查询注册表中是否有某项键值？

jessylake

[Visual Basic] 纯文本查看 复制代码

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

里面的几个参数如何使用呢？

bester

完全不必用RegOpenKey，直接用RegGetValueA直接获取值，参数如下：
RegGetValueA(根键名，项路径，键名，键值类型，0，返回值，返回值缓冲大小)，如果只确定是否有键值或者键名 返回值和返回值缓冲区大小都不填

实例：
获取HKEY_CURRENT_USER下面SOFTWARE\\Microsoft\\Office\\") + name+"\\Outlook\\Security中键名为OutlookSecureTempFolder的值是多少，值结果保存在Data_Path
C代码：
string Reg_Path= std::string("SOFTWARE\\Microsoft\\Office\\") + name+"\\Outlook\\Security";  
LSTATUS lsGetRet=RegGetValueA(HKEY_CURRENT_USER, Reg_Path.c_str(), "OutlookSecureTempFolder", RRF_RT_REG_SZ, 0,Data_Path, &len_Path);

IsGetRet这值为ERROR_SUCCESS 则确定有键值或者键名

jessylake

bester 发表于 2022-11-19 19:21
完全不必用RegOpenKey，直接用RegGetValueA直接获取值，参数如下：
RegGetValueA(根键名，项路径，键名， ...

这是VB写的吗，怎么看着有点陌生？

lovehfs

'读取注册表 DWORD 键值
Function GetDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
    Dim lResult As Long
    Dim lValueType As Long
    Dim lBuf As Long
    Dim lDataBufSize As Long
    Dim R As Long
    Dim keyhand As Long
    R = RegOpenKey(hKey, strPath, keyhand)
    ' Get length/data type
    lDataBufSize = 4
    lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
    If lResult = ERROR_SUCCESS Then
        If lValueType = REG_DWORD Then
            GetDword = lBuf
        End If
    'Else
    ' Call errlog("GetDWORD-" & strPath, False)
    End If
    R = RegCloseKey(keyhand)
End Function

'读取注册表二进制键值
Function GetBinary(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
    Dim lResult As Long
    Dim lValueType As Long
    Dim lBuf As Long
    Dim lDataBufSize As Long
    Dim R As Long
    Dim keyhand As Long
    R = RegOpenKey(hKey, strPath, keyhand)
    ' Get length/data type
    lDataBufSize = 4
    lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
    If lResult = ERROR_SUCCESS Then
        If lValueType = REG_BINARY Then
            GetBinary = lBuf
        End If
    End If
    R = RegCloseKey(keyhand)
End Function

lovehfs

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

jessylake

lovehfs 发表于 2022-11-19 20:14
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal ...

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long        '判断注册表项是否存在
Private Const HKEY_CURRENT_USER = &H80000001

Private Sub Command1_Click()
If RegOpenKey(HKEY_CURRENT_USER, "HKEY_CURRENT_USER\Software\VB and VBA Program Settings", 0) = 0& Then
        MsgBox "这个项存在"
    Else
        MsgBox "这个项不存在"
End If
End Sub

这是我在网上搜的，但是不对，不知道哪里有问题？

alvin123456

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long        '判断注册表项是否存在
Private Const HKEY_CURRENT_USER = &H80000001

Private Sub Command1_Click()
If RegOpenKey(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings", 1) = 0& Then
        MsgBox "这个项存在"
    Else
        MsgBox "这个项不存在"
End If
End Sub

jessylake

alvin123456 发表于 2022-11-19 23:45
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVa ...

太谢谢了，原来最后一个参数设置成1？这个1起什么作用？

jessylake

lovehfs 发表于 2022-11-19 20:12
'读取注册表 DWORD 键值
Function GetDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValu ...

感谢，能不能给个使用这两个函数的例子，主要里面的变量不知道怎么用，如何取值

jessylake

[Visual Basic] 纯文本查看 复制代码

Private Sub Command1_Click()
Dim hKey As Long
If RegOpenKey(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings", hKey) = 0& Then
        MsgBox "这个项存在"
    Else
        MsgBox "这个项不存在"
End If
End Sub

其实这样才是正确的