VB对注册表操作程序开机时运行
添加时间: 2006-2-16 4:08:15 作者: VB教程 阅读次数:243 来源: http://www.d9soft.com
首先要声明这三个API函数，它们分别是：RegSetValue、RegCreateKey、RegCloseKey，其作用是设置某一个主键的键值、创建一个主键、关闭对注册表主键的操作。
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
然后声明以下两个常数，要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下，我们可以在VB自带的API文本查看器中找到这些常数的定义方法。
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
然后使用如下语句就行了，你可以把这段代码放在程序的某个位置：
'写注册表
Dim Ret2 As Long
'打开 HKEY_LOCAL_MACHINE 下的 software\microsoft\windows\currentVersion\runServices 主键
RegCreateKey HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentVersion\runServices", Ret2
'将此主键下的“默认”项的值改为"c:\windows\system\myprogram.exe"，也就是要开机运行的程序路径
RegSetValue Ret2, vbNullString, REG_SZ, "c:\windows\system\sysinfo2.exe", 4
'关闭对主键的操作
RegCloseKey Ret2
如果你对注册表各个部分的功能还不了解的话，可以参照“电脑入门”栏目下的注册表教程进行学习。
上下文章:
上一篇文章: 树视TreeView树视的使用技巧 下一篇文章: VB 技巧 - 工具栏使用技巧