如何把程序添加到注册表中使其自启动

ii 2000-09-10 08:07:00
加精
如何程序添加到[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]中使其自启动(有例子更好),小妹先谢过了.
...全文
758 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lisbjing 2000-12-25
  • 打赏
  • 举报
回复
主  题:如何把程序添加到注册表中使其自启动
如何程序添加到[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]
中使其自启动(有例子更好),小妹先谢过了.

回复人:phf(2000-09-10 23:23:00 ) 得40分
Private Const REG_SZ = 1
Private Const HKEY_LOCAL_MACHINE = &H80000002
'声明API函数
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 RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Function AutoRun(AutoName As String, Filename As String)
Dim hKey As Long
RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\windows\CurrentVersion\Run",hKey
RegSetValueEx hKey, AutoName, 0, REG_SZ, ByVal Filename, Len(Filename)
RegCloseKey hKey
End Function

AutoRun函数有auto参数,是你自己给定的这个启动程序的名称,filename是程序全路径.
shines77 2000-09-11
  • 打赏
  • 举报
回复
小妹? 我也加入一份,请看你的email。
phf 2000-09-10
  • 打赏
  • 举报
回复
Private Const REG_SZ = 1
Private Const HKEY_LOCAL_MACHINE = &H80000002
'声明API函数
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 RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Function AutoRun(AutoName As String, Filename As String)
Dim hKey As Long
RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\windows\CurrentVersion\Run", hKey
RegSetValueEx hKey, AutoName, 0, REG_SZ, ByVal Filename, Len(Filename)
RegCloseKey hKey
End Function

这是本人在写一个系统控件中的一部分代码。
AutoRun函数有auto参数,是你自己给定的这个启动程序的名称,filename是程序全路径.

7,757

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧