每次启动 Windows 时自动运行程序

发布: 2007-6-21 21:57 | 作者: | 来源: yesky | 查看: 19次 | 进入软件测试论坛讨论

　　程序说明:

　　要使程序每次启动时自动地运行可以在注册表文件

　　HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run写入启动信息,这样在 Windows每次启动时都会自动地动行

　　使用 RegCreateKey 取的 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run 的 hKey 的值

　　使用 RegSetValueEx 在 hKey 下写入一个以"我的记事本"作为名,以 "Notepad.exe" 作为值的启动

所有的控件:

Command1
Command2

程序代码:

Modul31
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Public Const HKEY_CURRENT_USER = &H80000001

Public Const REG_SZ = 1

Form1
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Dim SubKey As String
Dim Exe As String
Dim hKey As Long

SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
Exe = "Notepad.exe"
RegCreateKey HKEY_CURRENT_USER, SubKey, hKey

RegSetValueEx hKey, "我的记事本", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1

RegCloseKey hKey

End Sub

Private Sub Form_Load()

End Sub