VB設置軟件開機啓動.

1. 如何設置軟件自啓動?
4. 調用一系列API函數
5. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
6. Const HKEY_LOCAL_MACHINE = 
7. 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
8. Const REG_SZ = 1
9. 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
10. Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
12. '聲明一個函數
13. Private Function SzQd(ByVal id As Long) As Long
14. Dim hK&, He
15. Dim ApH$
16. On Error GoTo erh
17. ApH = App.Path & "/" & App.EXEName
18. RegCreateKeyEx &H80000002, "Software/Microsoft/Windows/CurrentVersion/Run", 0, vbNullString, 0, 0, 0, hK, He
19. If id Then
20. RegSetValueEx hK, "BigChina-Ex", 0, REG_SZ, ApH, Len(ApH) + 1
21. Else
22. RegDeleteValue hK, "BigChina-Ex"
23. End If
24. RegCloseKey hK
25. SzQd = 1
26. Exit Function
27. erh:
28. SzQd = 0
29. End Function