因为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的系统常数。
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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
