要使程序每次启动时自动地运行可以在注册表文件
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run写入启动信息,这样在
Windows每次启动时都会自动地动行
使用 RegCreateKey 取的 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run 的 hKey 的值
使用 RegSetValueEx 在 hKey 下写入一个以"我的记事本"作为名,以 "Notepad.exe" 作为值的启动
所有的控件:
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
156
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
