Option Explicit

Public Const MAX_VALUE_NAME = 16383

'Registry Constants
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006

'masks for the predefined standard access types
Public Const ADS_RIGHT_DELETE = &H10000
Public Const ADS_RIGHT_READ_CONTROL = &H20000
Public Const ADS_RIGHT_WRITE_DAC = &H40000
Public Const ADS_RIGHT_WRITE_OWNER = &H80000

Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const SPECIFIC_RIGHTS_ALL = &HFFFF
Public Const STANDARD_RIGHTS_READ = ADS_RIGHT_READ_CONTROL
Public Const STANDARD_RIGHTS_WRITE = ADS_RIGHT_READ_CONTROL
Public Const STANDARD_RIGHTS_REQUIRED = _
 ADS_RIGHT_DELETE Or ADS_RIGHT_READ_CONTROL Or ADS_RIGHT_WRITE_DAC Or ADS_RIGHT_WRITE_OWNER

'Registry Specific Access Rights
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_READ = &H20019
'(использовалось в модуле от AsProtect, значение совпадает)
'Public Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + ADS_RIGHT_READ_CONTROL
'(msdn, значение совпадает)
'Public Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
'(было использовано в preinstall.exe, значение совпадает)
'Public Const SYNCHRONIZE = &H100000
'Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
'                  KEY_QUERY_VALUE Or _
'                  KEY_ENUMERATE_SUB_KEYS Or _
'                  KEY_NOTIFY) And _
'                  (Not SYNCHRONIZE))
Public Const KEY_WRITE = &H20006
'(msdn, значение совпадает)
'Public Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Public Const KEY_EXECUTE = KEY_READ
'(использовалось во всех моих модулях реестра)
Public Const KEY_ALL_ACCESS = &H3F
'(msdn, значение не совпадает)
'Public Const KEY_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or KEY_QUERY_VALUE Or _
'                              KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or _
'                              KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK

'новые ключи для доступа к 64-х битному реестру!
Public Const KEY_WOW64_64KEY = &H100
Public Const KEY_WOW64_32KEY = &H200

'Open/Create Options
Public Const REG_OPTION_NON_VOLATILE = 0& ' Key is preserved when system is rebooted
Public Const REG_OPTION_VOLATILE = &H1
Public Const REG_OPTION_BACKUP_RESTORE = 4

'Key creation/open disposition
Public Const REG_CREATED_NEW_KEY = &H1
Public Const REG_OPENED_EXISTING_KEY = &H2

'Define severity codes
Public Const ERROR_SUCCESS = 0&
Public Const ERROR_FILE_NOT_FOUND = 2
Public Const ERROR_ACCESS_DENIED = 5
Public Const ERROR_INVALID_PARAMETER = 87
Public Const ERROR_INSUFFICIENT_BUFFER = 122&
Public Const ERROR_MORE_DATA = 234
Public Const ERROR_NO_MORE_ITEMS = 259
Public Const ERROR_NOT_ALL_ASSIGNED = 1300

'Predefined Value Types

'No value type
Public Const REG_NONE = (0)
'Unicode nul terminated string
Public Const REG_SZ = (1)
'Unicode nul terminated string w/enviornment var
Public Const REG_EXPAND_SZ = (2)
'Free form binary
Public Const REG_BINARY = (3)
'32-bit number
Public Const REG_DWORD = (4)
'32-bit number (same as REG_DWORD)
Public Const REG_DWORD_LITTLE_ENDIAN = (4)
'32-bit number
Public Const REG_DWORD_BIG_ENDIAN = (5)
'Symbolic Link (unicode)
Public Const REG_LINK = (6)
'Multiple Unicode strings
Public Const REG_MULTI_SZ = (7)
'Resource list in the resource map
Public Const REG_RESOURCE_LIST = (8)
'Resource list in the hardware description
Public Const REG_FULL_RESOURCE_DESCRIPTOR = (9)
Public Const REG_RESOURCE_REQUIREMENTS_LIST = (10)

'Structures Needed For Registry Prototypes
Public Type SECURITY_ATTRIBUTES
  nLength As Long
  lpSecurityDescriptor As Long
  bInheritHandle As Boolean
End Type

'Registry Functions
Public Declare Function RegCloseKey Lib "advapi32" _
 (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32" Alias _
 "RegCreateKeyExA" (ByVal hKey As Long, ByVal _
 lpSubKey As String, ByVal Reserved As Long, _
 ByVal lpClass As String, ByVal dwOptions As _
 Long, ByVal samDesired As Long, _
 lpSecurityAttributes As SECURITY_ATTRIBUTES, _
 phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias _
 "RegDeleteKeyA" (ByVal hKey As Long, ByVal _
 lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias _
 "RegDeleteValueA" (ByVal hKey As Long, ByVal _
 lpValueName As String) As Long
Public Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias _
 "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex _
 As Long, ByVal lpName As String, lpcName _
 As Long, ByVal lpReserved As Long, ByVal _
 lpClass As String, lpcClass As Long, _
 lpftLastWriteTime As FILETIME) As Long
Public Declare Function RegEnumValue Lib "advapi32.dll" Alias _
 "RegEnumValueA" (ByVal hKey As Long, ByVal _
 dwIndex As Long, ByVal lpValueName As String, _
 lpcchValueName As Long, ByVal lpReserved As _
 Long, lpType As Long, ByVal lpData As String, _
 lpcbData As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32" Alias _
 "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey _
 As String, ByVal ulOptions As Long, _
 ByVal samDesired As Long, phkResult As Long) As Long
'Public Declare Function RegQueryValueEx Lib "advapi32" Alias _
' "RegQueryValueExA" (ByVal hKey As Long, ByVal _
' lpValueName As String, ByVal lpReserved As Long, _
' ByRef lpType As Long, ByVal lpData As String, _
' ByRef lpcbData As Long) As Long
Public Declare Function RegQueryValueEx& Lib "advapi32" Alias "RegQueryValueExA" ( _
 ByVal hKey&, _
 ByVal lpValueName$, _
 ByVal lpReserved%, _
 Optional lpType&, _
 Optional ByVal lpData$, _
 Optional lpcbData&)
Public Declare Function RegQueryValueExBin 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

Public Const REG_FORCE_RESTORE = 8&

Public Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" _
 (ByVal hKey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long
 
Public Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" _
 (ByVal hKey As Long, ByVal lpFile As String, _
 Optional ByVal lpSecurityAttributes As Long) As Long
 
Public Const REG_STANDARD_FORMAT = 1
Public Const REG_LATEST_FORMAT = 2
Public Const REG_NO_COMPRESSION = 4
 
Public Declare Function RegSaveKeyEx Lib "advapi32.dll" Alias "RegSaveKeyExA" _
 (ByVal hKey As Long, ByVal lpFile As String, _
 ByVal lpSecurityAttributes As Long, ByVal Flags As Long) As Long
 
Public Declare Function RegSetValueEx Lib "advapi32" Alias _
 "RegSetValueExA" (ByVal hKey As Long, ByVal _
 lpValueName As String, ByVal Reserved As Long, _
 ByVal dwType As Long, ByVal lpData As String, _
 ByVal cbData As Long) As Long
Public Declare Function RegSetDWORDValueEx Lib "advapi32" Alias "RegSetValueExA" ( _
 ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
 ByVal dwType As Long, lpData As Long, Optional ByVal cbData As Long = 4) As Long
 
'Shell Lightweight Utility Functions
Public Declare Function SHCopyKey Lib "Shlwapi.dll" Alias "SHCopyKeyA" _
 (ByVal hKeySrc As Long, ByVal pszSrcSubKey As String, _
 ByVal hKeyDest As Long, ByVal fReserved As Long) As Long
Public Declare Function SHDeleteKey Lib "Shlwapi.dll" Alias "SHDeleteKeyA" _
 (ByVal hKey As Long, ByVal pszSubkey As String) As Long

'------------------------------------------------------------
'Get the value of the key
'------------------------------------------------------------
Public Function GetRegValue(hKey As Long, lpszSubKey As String, _
 szKey As String, szDefault As String, reg64 As Boolean) As Variant

  On Error GoTo ErrorRoutineErr:

  Dim phkResult As Long
  Dim lResult As Long
  Dim szBuffer As String
  Dim lBuffSize As Long

  'Create Buffer
  'szBuffer = Space(1000)
  'lBuffSize = Len(szBuffer)

  'Open the key
  If reg64 Then
    RegOpenKeyEx hKey, lpszSubKey, 0, 1 Or KEY_WOW64_64KEY, phkResult
  Else
    RegOpenKeyEx hKey, lpszSubKey, 0, 1, phkResult
  End If

  'Query lBuffSize
  'lResult = RegQueryValueEx(phkResult, szKey, 0, 0, 0, lBuffSize)
  lResult = RegQueryValueEx(phkResult, szKey, 0, , , lBuffSize)
  'Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize
  'If lResult = ERROR_MORE_DATA Then
  If lResult = ERROR_SUCCESS Then
    'Create buffer
    szBuffer = Space(lBuffSize)
    'Query the value
    'lResult = RegQueryValueEx(phkResult, szKey, 0, 0, szBuffer, lBuffSize)
    lResult = RegQueryValueEx(phkResult, szKey, 0, , szBuffer, lBuffSize)
    'Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize

    'Close the key
    RegCloseKey phkResult

    'Return obtained value
    If lResult = ERROR_SUCCESS Then
      GetRegValue = Left(szBuffer, lBuffSize - 1)
    Else
      GetRegValue = szDefault
    End If
  Else
    'Close the key
    RegCloseKey phkResult
    GetRegValue = szDefault
  End If
  Exit Function

ErrorRoutineErr::
  'MsgBox "ERROR #" & str$(Err) & " : " & Error & Chr(13) _
  '     & "Please exit and try again."
  GetRegValue = ""
End Function