自动开始上次关机时关闭的应用 2005-10-15 12:13:00
【评论】
【打印】
【字体:大 中 小】
本文链接:http://blog.pfan.cn/iamben250/6052.html
自动开始上次关机时关闭的应用
作者: |
评价: |
上站日期: 2001-09-04 |
内容说明: |
来源: |
两点关键: 1 检测是 Windows 关闭引起的 QueryUnload 事件。 2 改写 Software\Microsoft\Windows\CurrentVersion\RunOnce
声明: Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 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.
在主 Form 中增加:
Public Const REG_SZ = 1 Public Const HKEY_CURRENT_USER = &H80000001
Private Sub Form_QueryUnload (Cancel as Integer, UnloadMode as Integer) Dim hKey As Long Dim strRunCmd As String If UnloadMode = vbAppWindows Then strRunCmd = App.Path & "($%$43%^#ASD#2@$#f$%^) & App.EXEName & ".EXE" Call RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnce", hKey) Call RegSetValueEx(hKey, "MyApp", 0&, REG_SZ, ByVal strRunCmd, Len(strRunCmd)+1) Call RegCloseKey(hKey) Endif End Sub
| | | |
|
 |
 |
阅读(2018) | 评论(0)
版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!
评论