Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private 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.
Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001Private Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Text1.Text = App.Path & "\" & App.EXEName & ".exe"
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim hkey As Long
Dim strruncmd As String
strruncmd = Text1.Text
Call RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\Currentversion\Runonce", hkey)
Call RegSetValueEx(hkey, "xxxx", 0&, REG_SZ, ByVal strruncmd, Len(strruncmd) + 1)
Call RegCloseKey(hkey)
MsgBox "下次开机程序回自动启动"
End Sub
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private 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.
Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001Private Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Text1.Text = App.Path & "\" & App.EXEName & ".exe"
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim hkey As Long
Dim strruncmd As String
strruncmd = Text1.Text
Call RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\Currentversion\Runonce", hkey)
Call RegSetValueEx(hkey, "xxxx", 0&, REG_SZ, ByVal strruncmd, Len(strruncmd) + 1)
Call RegCloseKey(hkey)
MsgBox "下次开机程序回自动启动"
End Sub
解决方案 »
- csdn7周年 散分纪念
- 怎样连格式、公式也一起复制
- 郁闷,这专家分真不吉利.....散散散......
- 一个关于自定义类型的问题
- 在广州要怎么样才能找到工作呢!
- 当前记录集不支持更新,这可能是提供程序的限制,也可能选定锁定类型的限制
- 不修改记录值?
- textbox 字体,我设置为“宋体”,在2000下显示为“宋体”但在 XP 下却不是了,请问怎么解决,在所有操作系统中都固定为“宋体”,谢谢~~
- 一个API的菜鸟的问题!
- 特急,如能解决一定给分。我定义了一个ParameterField,类型是date/time,怎样才能把日期附给它.
- 那位大虾赐教:VB6的Split函数怎样使用?
- 简单问题!
当uFlags=0 EWX_LOGOFF 中止进程,然后注销
=1 EWX_SHUTDOWN 关掉系统电源
=2 EWX_REBOOT 重新引导系统
=4 EWX_FORCE 强迫中止没有响应的进程