RegSetValueEx的用法

来源：百度知道 编辑：UC知道 时间：2024/06/14 01:10:45
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
后边跟的参数都是做什么用的,怎么用的.能不能举个例子
比如把HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoNetHood的值改为RG_WORD类型的1 程序的源泉文件该怎么写呀,谢谢谢谢.

我给你一个我自己写的例子：

建一个模块写声明：
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 RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 Const HKEY_USERS = &H80000003

Public Const REG_DWORD = 4 ' 32-bit number

然后就可以在窗体的代码中写
说明：Fh是随便定的变量接一下函数返回值
Fh = RegOpenKey(HKEY_USERS, ".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoNetHood", Bjb)'Bjb是打开注册表的句柄
Fh = RegSetValueEx(Bjb, "这个值你没给", 0, REG_DWORD , 1, 4)
Fh = RegCloseKey