怎样让程序在开机时自动运行?
解决方案 »
- CAsyncSocket能否给自己发送消息?
- debug下程序在调用com函数时 出现 KERNEL32.DLL 0xE06D7363: Microsoft C++ Exception.
- photoshop的浮动工具条和其他的浮动框是怎么做的?
- 图像处理一个简单的问题--关于位图的信息的存取
- 菜鸟问题: MFC类库函数引用有什么区别?
- 在98下怎样能够去掉共享文件夹的那个小手?
- 在Access2000中,字段名为No造成读出fieldname不正常!(ADO相关,请大家讨论讨论)
- 如何使对话框,变成大小不能改变的窗口?
- DOM 使用
- MFC 保存绘图值
- 如何实现鼠标反转
- 我的工程已经设置为支持UNICODE了,怎么_TCHAR类型还是定义为char类型的。
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
中添加一个项
C:\Documents and Settings\Administrator\「开始」菜单\程序\启动
中创建一个你的程序的快捷键
;API申明
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
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.;变量和常量申明
Dim strAppName As String, strSubKey As String
Dim lnghKey As Long
Const REG_SZ = 1
;选择要开机启动的程序
With CommonDialog1
.CancelError = True
.DialogTitle = "设定开机应用程序"
.Filter = "可执行文件(*.exe)|*.exe"
.ShowOpen
If Err <> cdlCancel Then
strAppName = .FileName
Else
Exit Sub
End If
End With
;开机自启动实现
strSubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
RegCreateKey HKEY_CURRENT_USER, strSubKey, lnghKey
RegSetValueEx lnghKey, "", 0, REG_SZ, ByVal strAppName, LenB(StrConv(strAppName, vbFromUnicode)) + 1
RegCloseKey lnghKey
1 可以做成服务
2 在注册表Run下添加
3 在“启动”下添加
所以我想使用 在“启动”下添加 这个方法,但不知道具体怎么实现,谢谢指教!