CheckRegistryKey

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
Private Declare Function RegCloseKey Lib "advapi32.dll" _
   (ByVal hKey As Long) As Long

Const KEY_READ = &H20019  

' Vracφ  True pokud klφΦ v registru existuje

Function CheckRegistryKey(ByVal hKey As Long, _
   ByVal KeyName As String) As Boolean

    Dim handle As Long

    If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) = 0 Then
        CheckRegistryKey = True
        RegCloseKey handle
    End If
End Function

Zp∞t

Autor: The Bozena