VB 如何把本程序添加、删除启动项

来源：百度知道 编辑：UC知道 时间：2024/07/05 07:38:16
设两个按钮 ，如何按第一个按钮时，把这个程序添加到系统启动项；按第二个时，再从启动项删除？

Private Sub Command1_Click() '//第一个按钮的代码
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MYEXES", App.Path & IIf(Len(App.Path) = 3, "", "\") & App.EXEName & ".Exe", "REG_SZ"
Set Reg = Nothing
End Sub

Private Sub Command2_Click() '//第2个按钮的代码
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\MYEXES"
Set Reg = Nothing
End Sub