用Visual Basic修改Windows98注册表

　　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

（出处：http://www.sheup.com）