VB修改注册表（不要废话，只要代码）

来源：百度知道 编辑：UC知道 时间：2024/05/20 13:52:14
显示隐藏文件

“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL”“Checked value”，把其键值改为“1”

将下面代码保存为CLS文件 ，然后在工程中引用就可以了。
Attribute VB_Name = "BasRegisty"
Option Explicit

'读写注册表任何地方的函数
' 用法见下面
' 摘自杨光宏 http://cako.126.com(VB技巧手册)

'用于操作注册表的API函数定义 -begin-
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "Reg