用visual basic修改windows98注册表.txt

准确理解注册表的用途和功能

Windows98系统注册表中包含关于系统配置及运行的重要信息。本文以修改KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run子键分支中的键值信息为例，介绍如何在Visual Basic中，利用Win32 API函数修改注册表。 

　　一、声明Win32 API函数 

　　因为Visual Basic 6.0本身没有提供对系统注册表中“键” 的创建、打开、关闭、删除等操作的功能函数，所以，首先在程序的开始声明以下Win32 API 函数： 

Const REG_SZ=1 
Global Const HKEY_LOCAL_MACHINE 
=＆H80000002 
Declare Function RegOpenKey Lib“advapi32” 
Alias “RegOpenKeyA”(ByVal hkey As Long, 
ByVal lpszSubKey As String,phkResult As Long) As Long 
’该函数用于打开系统注册表中已存在的键。 
函数的返回值：键打开成功返回0，否则返回非0， 
phkResult被设置为该键的句柄。 

Declare Function RegSetValueEx Lib “advapi32” 
Alias “RegSetValueExA” (ByVal hkey As 
Long,ByVal lpszValueName As String,ByVal 
dwReserved As Long,ByVal fdwType As Long, 
lpbData As Any,ByVal cbData As Long) As Long 
’该函数用于向系统注册表中指定的键添加键名和键值。 
函数的返回值： 添加键名、键值成功返回0，否则返回非0。 

Declare Function RegCloseKey Lib “advapi32” 
Alias “RegCloseKey” (ByVal hkey As Long) As Long 
’该函数用于关闭系统注册表中打开的键。 
函数的返回值：键关闭成功返回0，否则返回非0。 

 

　　编写功能函数 

Function oRegOpenKey (ByVal hkey As Long, ByVal lpszSubKey As String,phkResult As Long) As Boolean 
　Dim lResult As Long 
　On Error GoTo 0 ’关闭错误陷阱 
　lResult=RegOpenKey(hkey,lpszSubKey,phkResult) 
　If lResult=0 Then 
　　oRegOpenKey=True 
　Else oRegOpenKey=False 
　End If 
End Function 

Function RegSetStringValue(ByVal hkey 
As Long,ByVal strValueName As String, 
ByVal strData As String,Optional ByVal flog) As Boolean 
　Dim lResult As Long 
　On Error GoTo 0 
　lResult=RegSetValueEx(hkey,strValueName, 
0＆,REG_SZ,ByVal strData,LenB(StrConv(strData, 
vbFromUicode))＋1) 
’StrConv是Visual Basic提供的函数， 
返回按指定类型转换的Variant(String)。 
’vbFromUicode是Visual Basic的系统常数。 


　　在上面程序中，StrConv(strData,vbFromUnicode)的作用是：根据系统的默认码将字符串转换成Unicode。 

If lResult =0 Then 
RegSetStringValue=True 
Else RegSetStringValue=False 
End If 
End Function 
在Clik事件中编写下列代码 
Private sub Commandl_Clik() 
Dim hkey As Long 
Dim MyReturn As Long 
MyReturn=oRegOpenkey(HKEY_LOCAL_MACHINE, 
“SOFTWARE\Microsoft\Windows\CurrentVersion\Run”,hkey) 
If hkey=0 Then 
MsgBox “您要求打开的主键未创建， 
或者您的输入有误，请仔细核对后再次运行本程序！” 
Exit Sub 
End If 
MyReturn=RegSetStringValue(hkey, 
“MyAcess”,“d:\programfiles\office97\ 
office\mymsaccess.exe”,False) 
’如果flag丢失或为True,则该动作将 
被记录在日志文件中，并且，如果用户选择 
删除已安装的应用程序，该值将被应用程序删除。 

If MyReturn Then 
MsgBox “您的程序已成功添加到 
Windows 98的启动中，再次启动Windows时 
系统将自动运行您的程序！”,vbExclamation,“特别提示” 
Else MsgBox “您的这段代码中存在某种错误， 
请认真检查！”,vbExclamation,“特别提示” 
End If 
RegCloseKey(hkey) 
End Sub