VB设置软件开机启动.

如何设置软件自启动?

调用一系列API函数

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Const HKEY_LOCAL_MACHINE =

Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long

Const REG_SZ = 1

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, ByVal lpData As String, ByVal cbData As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

'声明一个函数

Private Function SzQd(ByVal id As Long) As Long

Dim hK&, He

Dim ApH$

On Error GoTo erh

ApH = App.Path & "/" & App.EXEName

RegCreateKeyEx &H80000002, "Software/Microsoft/Windows/CurrentVersion/Run", 0, vbNullString, 0, 0, 0, hK, He

If id Then

RegSetValueEx hK, "BigChina-Ex", 0, REG_SZ, ApH, Len(ApH) + 1

Else

RegDeleteValue hK, "BigChina-Ex"

End If

RegCloseKey hK

SzQd = 1

Exit Function

erh:

SzQd = 0

End Function