win api to see if a reg key exsists

[mcd2424]

Hi all,

All I want to do is check to see if a key exsists and if so just return a boolean value. for example.

HKey_LOCAL_MACHINE
software\microsoft\visualbasic\6.0\

if this is there return true.

I think I have to use RegOpenKeyEx in api but not sure on how to do it. If some one can provide an example I would apprecaite it.

thanks for you help

[Nucleus]

Public Enum RegBaseKey
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_CURRENT_CONFIG = &H80000005
    HKEY_DYN_DATA = &H80000006
End Enum
 
Private Const SYNCHRONIZE = &H100000
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
 
Private Const KEY_READ = ((READ_CONTROL Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
 
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
 
Public Function RegKeyExists(ByVal hKey As RegBaseKey, ByVal sKeyPath As String) As Boolean
    
    Dim hCurKey&
    RegKeyExists = (RegOpenKeyEx(hKey, sKeyPath, 0, KEY_READ, hCurKey) = 0)
    
End Function

Usage:
Make sure you don't include trailing "\"

Private Sub Command1_Click()
MsgBox RegKeyExists(HKEY_LOCAL_MACHINE, "software\NuWare")
End Sub