RegSetValueEx用法求教

RegSetValueEx用法求教

建一个模块写声明：
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(Bjb)

其中你少给了一个值是项的名，前面有一个完整的注册表路径。我不知道你要在这个路径下给哪个名字后面写上RG_WORD类型的1。那个名字写在那个地方就可以了。

另外告诉你一个我绕弯路才知道的小技巧，往注册表里写值和单字符的时候可以这样写，但是网注册表里写字符串的时候。。一定要在前面加ByVal，如果不加的话就只认第一个字符。

如：最常用的让一个程序开机自动运行。

Private Sub RunX()
Fh8 = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", Bjb)
Fh8 = RegSetValueEx(Bjb, "Shouhu.exe", 0, 1, ByVal (Main.Text5.Text), Len(Main.Text5.Text))
Fh8 = RegCloseKey(Bjb)
End Sub

HKEY hKey;
char *szValue="1";
::RegOpenKeyEx(HKEY_CURRENT_USER,"Control Panel\\Desktop\\WindowMetrics",0,KEY_WRITE,&hKey);
::RegSetValueEx(hKeyL"MinAnimate",0,REG_SZ,(CONST BYTE*)szValue,4);
::RegCloseKey(hKey);