| 1 | ' api_reg.sbp
|
|---|
| 2 | ' Registry Operation
|
|---|
| 3 |
|
|---|
| 4 | #ifdef UNICODE
|
|---|
| 5 | Const _FuncName_RegConnectRegistry = "RegConnectRegistryW"
|
|---|
| 6 | Const _FuncName_RegConnectRegistryEx = "RegConnectRegistryExW"
|
|---|
| 7 | Const _FuncName_RegCreateKeyEx = "RegCreateKeyExW"
|
|---|
| 8 | Const _FuncName_RegCreateKeyTransacted = "RegCreateKeyTransactedW"
|
|---|
| 9 | Const _FuncName_RegDeleteKey = "RegDeleteKeyW"
|
|---|
| 10 | Const _FuncName_RegDeleteKeyEx = "RegDeleteKeyExW"
|
|---|
| 11 | Const _FuncName_RegDeleteKeyTransacted = "RegDeleteKeyTransactedW"
|
|---|
| 12 | Const _FuncName_RegDeleteValue = "RegDeleteValueW"
|
|---|
| 13 | Const _FuncName_RegEnumKeyEx = "RegEnumKeyExW"
|
|---|
| 14 | Const _FuncName_RegEnumValue = "RegEnumValueW"
|
|---|
| 15 | Const _FuncName_RegLoadKey = "RegLoadKeyW"
|
|---|
| 16 | Const _FuncName_RegOpenKeyEx = "RegOpenKeyExW"
|
|---|
| 17 | Const _FuncName_RegOpenKeyTransacted = "RegOpenKeyTransactedW"
|
|---|
| 18 | Const _FuncName_RegQueryInfoKey = "RegQueryInfoKeyW"
|
|---|
| 19 | Const _FuncName_RegQueryMultipleValues = "RegQueryMultipleValuesW"
|
|---|
| 20 | Const _FuncName_RegQueryValueEx = "RegQueryValueExW"
|
|---|
| 21 | Const _FuncName_RegReplaceKey = "RegReplaceKeyW"
|
|---|
| 22 | Const _FuncName_RegRestoreKey = "RegRestoreKeyW"
|
|---|
| 23 | Const _FuncName_RegSaveKey = "RegSaveKeyW"
|
|---|
| 24 | Const _FuncName_RegSetValueEx = "RegSetValueExW"
|
|---|
| 25 | Const _FuncName_RegUnLoadKey = "RegUnLoadKeyW"
|
|---|
| 26 | Const _FuncName_RegDeleteKeyValue = "RegDeleteKeyValueW"
|
|---|
| 27 | Const _FuncName_RegSetKeyValue = "RegSetKeyValueW"
|
|---|
| 28 | Const _FuncName_RegDeleteTree = "RegDeleteTreeW"
|
|---|
| 29 | Const _FuncName_RegCopyTree = "RegCopyTreeW"
|
|---|
| 30 | Const _FuncName_RegGetValue = "RegGetValueW"
|
|---|
| 31 | Const _FuncName_RegLoadMUIString = "RegLoadMUIStringW"
|
|---|
| 32 | Const _FuncName_RegLoadAppKey = "RegLoadAppKeyW"
|
|---|
| 33 | Const _FuncName_RegSaveKeyEx = "RegSaveKeyExW"
|
|---|
| 34 | #else
|
|---|
| 35 | Const _FuncName_RegConnectRegistry = "RegConnectRegistryA"
|
|---|
| 36 | Const _FuncName_RegConnectRegistryEx = "RegConnectRegistryExA"
|
|---|
| 37 | Const _FuncName_RegCreateKeyEx = "RegCreateKeyExA"
|
|---|
| 38 | Const _FuncName_RegCreateKeyTransacted = "RegCreateKeyTransactedA"
|
|---|
| 39 | Const _FuncName_RegDeleteKey = "RegDeleteKeyA"
|
|---|
| 40 | Const _FuncName_RegDeleteKeyEx = "RegDeleteKeyExA"
|
|---|
| 41 | Const _FuncName_RegDeleteKeyTransacted = "RegDeleteKeyTransactedA"
|
|---|
| 42 | Const _FuncName_RegDeleteValue = "RegDeleteValueA"
|
|---|
| 43 | Const _FuncName_RegEnumKeyEx = "RegEnumKeyExA"
|
|---|
| 44 | Const _FuncName_RegEnumValue = "RegEnumValueA"
|
|---|
| 45 | Const _FuncName_RegLoadKey = "RegLoadKeyA"
|
|---|
| 46 | Const _FuncName_RegOpenKeyEx = "RegOpenKeyExA"
|
|---|
| 47 | Const _FuncName_RegOpenKeyTransacted = "RegOpenKeyTransactedA"
|
|---|
| 48 | Const _FuncName_RegQueryInfoKey = "RegQueryInfoKeyA"
|
|---|
| 49 | Const _FuncName_RegQueryMultipleValues = "RegQueryMultipleValuesA"
|
|---|
| 50 | Const _FuncName_RegQueryValueEx = "RegQueryValueExA"
|
|---|
| 51 | Const _FuncName_RegReplaceKey = "RegReplaceKeyA"
|
|---|
| 52 | Const _FuncName_RegRestoreKey = "RegRestoreKeyA"
|
|---|
| 53 | Const _FuncName_RegSaveKey = "RegSaveKeyA"
|
|---|
| 54 | Const _FuncName_RegSetValueEx = "RegSetValueExA"
|
|---|
| 55 | Const _FuncName_RegUnLoadKey = "RegUnLoadKeyA"
|
|---|
| 56 | Const _FuncName_RegDeleteKeyValue = "RegDeleteKeyValueA"
|
|---|
| 57 | Const _FuncName_RegSetKeyValue = "RegSetKeyValueA"
|
|---|
| 58 | Const _FuncName_RegDeleteTree = "RegDeleteTreeA"
|
|---|
| 59 | Const _FuncName_RegCopyTree = "RegCopyTreeA"
|
|---|
| 60 | Const _FuncName_RegGetValue = "RegGetValueA"
|
|---|
| 61 | Const _FuncName_RegLoadMUIString = "RegLoadMUIStringA"
|
|---|
| 62 | Const _FuncName_RegLoadAppKey = "RegLoadAppKeyA"
|
|---|
| 63 | Const _FuncName_RegSaveKeyEx = "RegSaveKeyExA"
|
|---|
| 64 | #endif
|
|---|
| 65 |
|
|---|
| 66 | TypeDef REGSAM = Long 'ACCESS_MASK
|
|---|
| 67 |
|
|---|
| 68 | ' Reserved Key Handles
|
|---|
| 69 | Const HKEY_CLASSES_ROOT = ((&H80000000 As Long) As ULONG_PTR) As HKEY
|
|---|
| 70 | Const HKEY_CURRENT_USER = ((&H80000001 As Long) As ULONG_PTR) As HKEY
|
|---|
| 71 | Const HKEY_LOCAL_MACHINE = ((&H80000002 As Long) As ULONG_PTR) As HKEY
|
|---|
| 72 | Const HKEY_USERS = ((&H80000003 As Long) As ULONG_PTR) As HKEY
|
|---|
| 73 | Const HKEY_PERFORMANCE_DATA = ((&H80000004 As Long) As ULONG_PTR) As HKEY
|
|---|
| 74 | Const HKEY_CURRENT_CONFIG = ((&H80000005 As Long) As ULONG_PTR) As HKEY
|
|---|
| 75 | Const HKEY_DYN_DATA = ((&H80000006 As Long) As ULONG_PTR) As HKEY
|
|---|
| 76 |
|
|---|
| 77 | Const REG_SECURE_CONNECTION = 1
|
|---|
| 78 |
|
|---|
| 79 | Type VALENTW
|
|---|
| 80 | ve_valuename As PWSTR
|
|---|
| 81 | ve_valuelen As DWord
|
|---|
| 82 | ve_valueptr As ULONG_PTR
|
|---|
| 83 | ve_type As DWord
|
|---|
| 84 | End Type
|
|---|
| 85 | Type VALENTA
|
|---|
| 86 | ve_valuename As PSTR
|
|---|
| 87 | ve_valuelen As DWord
|
|---|
| 88 | ve_valueptr As ULONG_PTR
|
|---|
| 89 | ve_type As DWord
|
|---|
| 90 | End Type
|
|---|
| 91 |
|
|---|
| 92 | #ifdef UNICODE
|
|---|
| 93 | TypeDef VALENT = VALENTW
|
|---|
| 94 | #else
|
|---|
| 95 | TypeDef VALENT = VALENTA
|
|---|
| 96 | #endif
|
|---|
| 97 | '------------------------
|
|---|
| 98 | ' Registry API Functions
|
|---|
| 99 |
|
|---|
| 100 | Declare Function RegCloseKey Lib "advapi32" (hKey As HKEY) As Long
|
|---|
| 101 | '#if WINVER >= 0x0500 'AB
|
|---|
| 102 | Declare Function RegOverridePredefKey Lib "advapi32" (hKey As HKEY, hNewKey As HKEY) As Long
|
|---|
| 103 | Declare Function RegOpenUserClassesRoot Lib "advapi32" (hToken As HANDLE, dwOptions As DWord, samDesired As REGSAM, ByRef hkResult As HKEY) As Long
|
|---|
| 104 | Declare Function RegOpenCurrentUser Lib "advapi32" (samDesired As REGSAM, ByRef hkResult As HKEY) As Long
|
|---|
| 105 | Declare Function RegDisablePredefinedCache Lib "advapi32" () As Long
|
|---|
| 106 | Declare Function RegDisablePredefinedCacheEx Lib "advapi32" () As Long
|
|---|
| 107 | '#endif
|
|---|
| 108 | Declare Function RegConnectRegistry Lib "advapi32" Alias _FuncName_RegConnectRegistry (pMachineName As PCTSTR, hKey As HKEY, ByRef hkResult As HKEY) As Long
|
|---|
| 109 | Declare Function RegConnectRegistryEx Lib "advapi32" Alias _FuncName_RegConnectRegistryEx (lpMachineName As LPCTSTR, hKey As HKEY, Flags As DWord, ByRef hkResult As HKEY) As Long
|
|---|
| 110 | Declare Function RegCreateKeyEx Lib "advapi32" Alias _FuncName_RegCreateKeyEx (hKey As HKEY, lpSubKey As PCTSTR, Reserved As DWord, lpClass As PTSTR, dwOptions As DWord, samDesired As REGSAM, lpSecurityAttributes As *SECURITY_ATTRIBUTES, ByRef phkResult As HKEY, lpdwDisposition As *DWord) As Long
|
|---|
| 111 | '#if WINVER >= 0x0600 'AB
|
|---|
| 112 | Declare Function RegCreateKeyTransacted Lib "advapi32" Alias _FuncName_RegCreateKeyTransacted (hKey As HKEY, lpSubKey As LPCTSTR, Reserved As DWord, lpClass As LPTSTR, dwOptions As DWord, samDesired As REGSAM, lpSecurityAttributes As *SECURITY_ATTRIBUTES, ByRef phkResult As HKEY, lpdwDisposition As *DWord, hTransaction As HANDLE, pExtendedParemeter As VoidPtr) As Long
|
|---|
| 113 | '#endif
|
|---|
| 114 | Declare Function RegDeleteKey Lib "advapi32" Alias _FuncName_RegDeleteKey (hKey As HKEY, lpSubKey As PCTSTR) As Long
|
|---|
| 115 | '#if WINVER >= 0x0520 'AB
|
|---|
| 116 | Declare Function RegDeleteKeyEx Lib "advapi32" Alias _FuncName_RegDeleteKeyEx (hKey As HKEY, lpSubKey As LPCTSTR, samDesired As REGSAM, Reserved As DWord) As Long
|
|---|
| 117 | '#endif
|
|---|
| 118 | '#if WINVER >= 0x0600 'AB
|
|---|
| 119 | Declare Function RegDeleteKeyTransacted Lib "advapi32" Alias _FuncName_RegDeleteKeyTransacted (hKey As HKEY, lpSubKey As LPCTSTR, samDesired As REGSAM, Reserved As DWord, hTransaction As HANDLE, pExtendedParameter As VoidPtr) As Long
|
|---|
| 120 | '#endif
|
|---|
| 121 | '#if WINVER >= 0x0520 'AB
|
|---|
| 122 | Declare Function RegDisableReflectionKey Lib "advapi32" (hBase As HKEY) As Long
|
|---|
| 123 | Declare Function RegEnableReflectionKey Lib "advapi32" (hBase As HKEY) As Long
|
|---|
| 124 | Declare Function RegQueryReflectionKey Lib "advapi32" (hBase As HKEY, ByRef bIsReflectionDisabled As BOOL) As Long
|
|---|
| 125 | '#endif
|
|---|
| 126 | Declare Function RegDeleteValue Lib "advapi32" Alias _FuncName_RegDeleteValue (hKey As HKEY, lpValueName As PCTSTR) As Long
|
|---|
| 127 | Declare Function RegEnumKeyEx Lib "advapi32" Alias _FuncName_RegEnumKeyEx (hKey As HKEY, dwIndex As DWord, pName As PTSTR, ByRef cName As DWord, pReserved As *DWord, pClass As PTSTR, ByRef cClass As DWord, pftLastWriteTime As *FILETIME) As Long
|
|---|
| 128 | Declare Function RegEnumValue Lib "advapi32" Alias _FuncName_RegEnumValue (hKey As HKEY, dwIndex As DWord, pValueName As PTSTR, ByRef cValueName As DWord, pReserved As *DWord, pType As *DWord, pData As *Byte, pcbData As *DWord) As Long
|
|---|
| 129 | Declare Function RegFlushKey Lib "advapi32" (hKey As HKEY) As Long
|
|---|
| 130 | '#if _WIN32_WINNT >= &h0310 'AB
|
|---|
| 131 | Declare Function RegGetKeySecurity Lib "advapi32" (hKey As HKEY, SecurityInformation As SECURITY_INFORMATION, pSecurityDescriptor As *SECURITY_DESCRIPTOR, ByRef lpcbSecurityDescriptor As DWord) As Long
|
|---|
| 132 | '#endif
|
|---|
| 133 | Declare Function RegLoadKey Lib "advapi32" Alias _FuncName_RegLoadKey (hKey As HKEY, pSubKey As PCTSTR, pFile As PCTSTR) As Long
|
|---|
| 134 | Declare Function RegOpenKeyEx Lib "advapi32" Alias _FuncName_RegOpenKeyEx (hKey As HKEY, lpSubKey As PCTSTR, ulOptions As DWord, samDesired As Long, ByRef phkResult As HKEY) As Long
|
|---|
| 135 | '#if WINVER >= 0x0600 'AB
|
|---|
| 136 | Declare Function RegOpenKeyTransacted Lib "advapi32" Alias _FuncName_RegOpenKeyTransacted (hKey As HKEY, lpSubKey As LPCTSTR, ulOptions As DWord, samDesired As REGSAM, ByRef phkResult As HKEY, hTransaction As HANDLE, pExtendedParemeter As VoidPtr) As Long
|
|---|
| 137 | '#endif
|
|---|
| 138 | Declare Function RegQueryInfoKey Lib "advapi32" Alias _FuncName_RegQueryInfoKey (hKey As HKEY, pClass As PTSTR, pcClass As *DWord, pReserved As *DWord, pcSubKeys As *DWord, pcMaxSubKeyLen As *DWord, pcMaxClassLen As *DWord, pcValues As *DWord, pcMaxValueNameLen As *DWord, pcMaxValueLen As *DWord, pcbSecurityDescriptor As *DWord, pftLastWriteTime As *FILETIME) As Long
|
|---|
| 139 | Declare Function RegQueryMultipleValues Lib "advapi32" Alias _FuncName_RegQueryMultipleValues (hKey As HKEY, val_list As *VALENT, num_vals As DWord, pValueBuf As PTSTR, ByRef dwTotsize As DWord) As Long
|
|---|
| 140 | Declare Function RegQueryValueEx Lib "advapi32" Alias _FuncName_RegQueryValueEx (hKey As HKEY, lpValueName As PCTSTR, lpReserved As DWord, lpType As *DWord, lpData As VoidPtr, lpcbData As *DWord) As Long
|
|---|
| 141 | Declare Function RegReplaceKey Lib "advapi32" Alias _FuncName_RegReplaceKey (hKey As HKEY, lpSubKey As LPCTSTR, lpNewFile As LPCTSTR, lpOldFile As LPCTSTR) As Long
|
|---|
| 142 | '#if _WIN32_WINNT >= &h0310 'AB
|
|---|
| 143 | Declare Function RegRestoreKey Lib "advapi32" Alias _FuncName_RegRestoreKey (hKey As HKEY, lpFile As LPCTSTR, dwFlags As DWord) As Long
|
|---|
| 144 | '#endif
|
|---|
| 145 | Declare Function RegSaveKey Lib "advapi32" Alias _FuncName_RegSaveKey (hKey As HKEY, pFile As PCTSTR, pSecurityAttributes As *SECURITY_ATTRIBUTES) As Long
|
|---|
| 146 | '#if _WIN32_WINNT >= &h0310 'AB
|
|---|
| 147 | Declare Function RegSetKeySecurity Lib "advapi32" (hKey As HKEY, SecurityInformation As SECURITY_INFORMATION, pSecurityDescriptor As *SECURITY_DESCRIPTOR) AS Long
|
|---|
| 148 | '#endif
|
|---|
| 149 | Declare Function RegSetValueEx Lib "advapi32" Alias _FuncName_RegSetValueEx (hKey As HKEY, lpValueName As LPCTSTR, Reserved As DWord, dwType As DWord, lpData As VoidPtr, cbData As DWord) As Long
|
|---|
| 150 | Declare Function RegUnLoadKey Lib "advapi32" Alias _FuncName_RegUnLoadKey (hKey As HKEY, lpSubKey As LPCTSTR) As Long
|
|---|
| 151 | '#if _WIN32_WINNT >= &h0600
|
|---|
| 152 | Declare Function RegDeleteKeyValue Lib "advapi32" Alias _FuncName_RegDeleteKeyValue (hKey As HKEY, lpSubKey As LPCTSTR, lpValueName As LPCTSTR) As Long
|
|---|
| 153 | Declare Function RegSetKeyValue Lib "advapi32" Alias _FuncName_RegSetKeyValue (hKey As HKEY, lpSubKey As LPCTSTR, lpValueName As LPCTSTR, dwType As DWord, lpData As VoidPtr, cbData As DWord) As Long
|
|---|
| 154 | Declare Function RegDeleteTree Lib "advapi32" Alias _FuncName_RegDeleteTree (hKey As HKEY, lpSubKey As LPCTSTR) As Long
|
|---|
| 155 | Declare Function RegCopyTree Lib "advapi32" Alias _FuncName_RegCopyTree (hKeySrc As HKEY, lpSubKey As LPCTSTR, hKeyDest As HKEY) As Long
|
|---|
| 156 | Declare Function RegGetValue Lib "advapi32" Alias _FuncName_RegGetValue (hKey As HKEY, lpSubKey As LPCTSTR, lpValue As LPCTSTR, dwFlags As DWord, pdwType As *DWord, pvData As VoidPtr, pcbData As *DWord) As Long
|
|---|
| 157 | Declare Function RegLoadMUIString Lib "advapi32" Alias _FuncName_RegLoadMUIString (hKey As HKEY, pszValue As LPCTSTR, pszOutBuf As LPTSTR, cbOutBuf As DWord, pcbData As *DWord, Flags As DWord, pszDirectory As LPCTSTR) As Long
|
|---|
| 158 | Declare Function RegLoadAppKey Lib "advapi32" Alias _FuncName_RegLoadAppKey (lpFile As LPCTSTR, ByRef hkResult As HKEY, samDesired As REGSAM, dwOptions As DWord, Reserved As DWord) As Long
|
|---|
| 159 | '#endif
|
|---|
| 160 | '#if WINVER >= 0x0510 'AB
|
|---|
| 161 | Declare Function RegSaveKeyEx Lib "advapi32" Alias _FuncName_RegSaveKeyEx (hKey As HKEY, lpFile As LPCTSTR, lpSecurityAttributes As *SECURITY_ATTRIBUTES, Flags As DWord) As Long
|
|---|
| 162 | '#endif
|
|---|
