| |
Windows98系统注册表中包含关于系统配置及运行[de]重要信息。本文以修改KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run子键分支中[de]键值信息为例，介绍如何在Visual Basic中，利用Win32 API函数修改注册表。
一、声明Win32 API函数
因为Visual Basic 6.0本身没有提供对系统注册表中“键” [de]创建、打开、关闭、删除等操作[de]功能函数，所以，首先在程序[de]开始声明以下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
’该函数用于打开系统注册表中已存在[de]键。
函数[de]返回值：键打开成功返回0，否则返回非0，
phkResult被设置为该键[de]句柄。
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
’该函数用于向系统注册表中指定[de]键添加键名和键值。
函数[de]返回值： 添加键名、键值成功返回0，否则返回非0。
Declare Function RegCloseKey Lib “advapi32”
Alias “RegCloseKey” (ByVal hkey As Long) As Long
’该函数用于关闭系统注册表中打开[de]键。
函数[de]返回值：键关闭成功返回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提供[de]函数，
返回按指定类型转换[de]Variant(String)。
’vbFromUicode是Visual Basic[de]系统常数。 |
在上面程序中，StrConv(strData,vbFromUnicode)[de]作用是：根据系统[de]默认码将字符串转换成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 “您要求打开[de]主键未创建，
或者您[de]输入有误，请仔细核对后再次运行本程序！”
Exit Sub
End If
MyReturn=RegSetStringValue(hkey,
“MyAcess”,“d:\programfiles\office97\
office\mymsaccess.exe”,False)
’如果flag丢失或为True,则该动作将
被记录在日志文件中，并且，如果用户选择
删除已安装[de]应用程序，该值将被应用程序删除。
If MyReturn Then
MsgBox “您[de]程序已成功添加到
Windows 98[de]启动中，再次启动Windows时
系统将自动运行您[de]程序！”,vbExclamation,“特别提示”
Else MsgBox “您[de]这段代码中存在某种错误，
请认真检查！”,vbExclamation,“特别提示”
End If
RegCloseKey(hkey)
End Sub
|
查看关于“用Visual Basic修改Windows98注册表”[de]更多信息 |