1 | ' api_reg.sbp
|
---|
2 | ' Registry Operation
|
---|
3 |
|
---|
4 |
|
---|
5 | #ifndef _INC_REG
|
---|
6 | #define _INC_REG
|
---|
7 |
|
---|
8 | #ifdef UNICODE
|
---|
9 | Const _FuncName_RegConnectRegistry = "RegConnectRegistryW"
|
---|
10 | Const _FuncName_RegCreateKeyEx = "RegCreateKeyExW"
|
---|
11 | Const _FuncName_RegDeleteKey = "RegDeleteKeyW"
|
---|
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_RegQueryInfoKey = "RegQueryInfoKeyW"
|
---|
18 | Const _FuncName_RegQueryMultipleValues = "RegQueryMultipleValuesW"
|
---|
19 | Const _FuncName_RegQueryValueEx = "RegQueryValueExW"
|
---|
20 | Const _FuncName_RegSaveKey = "RegSaveKeyW"
|
---|
21 | Const _FuncName_RegSetValueEx = "RegSetValueExW"
|
---|
22 | Const _FuncName_RegUnLoadKey = "RegUnLoadKeyW"
|
---|
23 | #else
|
---|
24 | Const _FuncName_RegConnectRegistry = "RegConnectRegistryA"
|
---|
25 | Const _FuncName_RegCreateKeyEx = "RegCreateKeyExA"
|
---|
26 | Const _FuncName_RegDeleteKey = "RegDeleteKeyA"
|
---|
27 | Const _FuncName_RegDeleteValue = "RegDeleteValueA"
|
---|
28 | Const _FuncName_RegEnumKeyEx = "RegEnumKeyExA"
|
---|
29 | Const _FuncName_RegEnumValue = "RegEnumValueA"
|
---|
30 | Const _FuncName_RegLoadKey = "RegLoadKeyA"
|
---|
31 | Const _FuncName_RegOpenKeyEx = "RegOpenKeyExA"
|
---|
32 | Const _FuncName_RegQueryInfoKey = "RegQueryInfoKeyA"
|
---|
33 | Const _FuncName_RegQueryMultipleValues = "RegQueryMultipleValuesA"
|
---|
34 | Const _FuncName_RegQueryValueEx = "RegQueryValueExA"
|
---|
35 | Const _FuncName_RegSaveKey = "RegSaveKeyA"
|
---|
36 | Const _FuncName_RegSetValueEx = "RegSetValueExA"
|
---|
37 | Const _FuncName_RegUnLoadKey = "RegUnLoadKeyA"
|
---|
38 | #endif
|
---|
39 |
|
---|
40 | ' Options
|
---|
41 | Const REG_OPTION_NON_VOLATILE = &H00000000
|
---|
42 | 'Const REG_OPTION_VOLATILE = &H00000001
|
---|
43 | 'Const REG_OPTION_BACKUP_RESTORE = &H00000004
|
---|
44 |
|
---|
45 |
|
---|
46 | ' Reserved Key Handles
|
---|
47 | Const HKEY_CLASSES_ROOT = &H80000000
|
---|
48 | Const HKEY_CURRENT_USER = &H80000001
|
---|
49 | Const HKEY_LOCAL_MACHINE = &H80000002
|
---|
50 | Const HKEY_USERS = &H80000003
|
---|
51 | Const HKEY_PERFORMANCE_DATA = &H80000004
|
---|
52 | Const HKEY_CURRENT_CONFIG = &H80000005
|
---|
53 | Const HKEY_DYN_DATA = &H80000006
|
---|
54 |
|
---|
55 | Type VALENTW
|
---|
56 | ve_valuename As PWSTR
|
---|
57 | ve_valuelen As DWord
|
---|
58 | ve_valueptr As ULONG_PTR
|
---|
59 | ve_type As DWord
|
---|
60 | End Type
|
---|
61 | Type VALENTA
|
---|
62 | ve_valuename As PSTR
|
---|
63 | ve_valuelen As DWord
|
---|
64 | ve_valueptr As ULONG_PTR
|
---|
65 | ve_type As DWord
|
---|
66 | End Type
|
---|
67 |
|
---|
68 | #ifdef UNICODE
|
---|
69 | TypeDef VALENT = VALENTW
|
---|
70 | #else
|
---|
71 | TypeDef VALENT = VALENTA
|
---|
72 | #endif
|
---|
73 |
|
---|
74 | '------------------------
|
---|
75 | ' Registry API Functions
|
---|
76 |
|
---|
77 | Declare Function RegCloseKey Lib "advapi32" (hKey As HKEY) As Long
|
---|
78 | Declare Function RegConnectRegistry Lib "advapi32" Alias _FuncName_RegConnectRegistry (pMachineName As PCTSTR, hKey As HKEY, ByRef hkResult As HKEY) As Long
|
---|
79 | 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 Long, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As HKEY, lpdwDisposition As *DWord) As Long
|
---|
80 | Declare Function RegDeleteKey Lib "advapi32" Alias _FuncName_RegDeleteKey (hKey As HKEY, lpSubKey As PCTSTR) As Long
|
---|
81 | Declare Function RegDeleteValue Lib "advapi32" Alias _FuncName_RegDeleteValue (hKey As HKEY, lpValueName As PCTSTR) As Long
|
---|
82 | 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
|
---|
83 | 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
|
---|
84 | Declare Function RegFlushKey Lib "advapi32"(hKey As HKEY) As Long
|
---|
85 | /*
|
---|
86 | Declare Function RegLoadKey Lib "advapi32" Alias _FuncName_RegLoadKey (hKey As HKEY, pSubKey As PCTSTR, pFile As PCTSTR) As Long
|
---|
87 | 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
|
---|
88 | 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
|
---|
89 | 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
|
---|
90 | 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
|
---|
91 | Declare Function RegSaveKey Lib "advapi32" Alias _FuncName_RegSaveKey (hKey As HKEY, pFile As PCTSTR, pSecurityAttributes As *SECURITY_ATTRIBUTES) As Long
|
---|
92 | Declare Function RegSetValueEx Lib "advapi32" Alias _FuncName_RegSetValueEx (hKey As HKEY, lpValueName As PCTSTR, Reserved As DWord, dwType As DWord, lpData As VoidPtr, cbData As DWord) As Long
|
---|
93 | Declare Function RegUnLoadKey Lib "advapi32" Alias _FuncName_RegUnLoadKey (hKey As HKEY, pSubKey As PCTSTR) As Long
|
---|
94 | */
|
---|
95 | '_INC_REG
|
---|