VBA中如何操作注册表？

[zxgatnudt]

我找了一本书，可是调用打开时返回值是6不是0，请问为什么有这个错误？
请问哪位可以成功修改注册表，要有可执行的源代码，谢谢！

[ltc]

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

Public Const KEY_ALL_ACCESS = &HF003F
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_READ = &H20019
Public Const KEY_SET_VALUE = &H2
Public Const KEY_WRITE = &H20006

Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Public Enum ValueType
REG_NONE = 0
REG_SZ = 1
REG_EXPAND_SZ = 2
REG_BINARY = 3
REG_DWORD = 4
REG_DWORD_BIG_ENDIAN = 5
REG_MULTI_SZ = 7
End Enum

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegQueryValueEx 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 Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" 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 Function SetRegValue(ByVal Name As String, ByVal Value As String) As Boolean

Dim lRet As Long, hKey As Long, Action As Long
Dim SA As SECURITY_ATTRIBUTES

With SA
.bInheritHandle = 1
.nLength = Len(SA)
End With

lRet = RegCreateKeyEx(HKEY_CURRENT_USER, g_regPath, _
0&, "", 0&, KEY_WRITE, SA, hKey, Action)

If lRet <> 0 Then
SetRegValue = False
Exit Function
End If

lRet = RegSetValueEx(hKey, Name, 0&, REG_SZ, ByVal Value, Len(Value))
If lRet <> 0 Then
RegCloseKey hKey
SetRegValue = False
Exit Function
End If

RegCloseKey hKey

SetRegValue = True

End Function

自己看吧

[tanyaliji]

同意楼上的

[hhjjhjhj]

这里正好有个实例
http://office.9zp.com/dispbbs.asp?boardID=18&ID=330