如何在VB6。0中控制注册表?
myjcn 2002-10-01 09:40:37 我们知道有时《注册表》被禁用,这样可以通过两种方法来开启:
NO 1. 可用相关的软件,如“Windows 优化大师”或“兔子”等来修改
这亦是很简单的
NO 2. 那便是自建一个注册表文件,输入以下内容
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"disableregistrytools"=dword:0
保存文件然后导入,即可
那么,假如《注册表》被禁用该如何在VB6.0中实现相关代码?
有网友回答:用RegSetValue()等函数设定相应的数据项就可以了
还有大侠给俺以下许多代码,弄得俺都糊涂了,就没有争对性吗?比如就以上的问题,具体和详细一点的用法,在VB6.0中如何实现呢?
或者在哪里可以找到关于《注册表API》的详细使用说明书?
Attribute VB_Name = "RegKeys"
' 这个模块用于读和写注册表关键字。
' 不同于VB 的内部注册表访问方法,它可以
' 通过字符串的值来读和写任何注册表关键字。
Option Explicit
'---------------------------------------------------------------
'-注册表 API 声明...
'---------------------------------------------------------------
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32" 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, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As Long, ByRef lpdwDisposition As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
'---------------------------------------------------------------