VB设置软件开机启动.

  1. 如何设置软件自启动?
  2. 调用一系列API函数
  3. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As LongAs Long
  4. Const HKEY_LOCAL_MACHINE = 
  5. Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As LongByVal lpSubKey As StringByVal Reserved As LongByVal lpClass As StringByVal dwOptions As LongByVal samDesired As LongByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As LongAs Long
  6. Const REG_SZ = 1
  7. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As LongByVal lpValueName As StringByVal Reserved As LongByVal dwType As LongByVal lpData As StringByVal cbData As LongAs Long
  8. Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As LongByVal lpValueName As StringAs Long
  9. '声明一个函数
  10. Private Function SzQd(ByVal id As LongAs Long
  11. Dim hK&, He
  12. Dim ApH$
  13. On Error GoTo erh
  14. ApH = App.Path & "/" & App.EXEName
  15. RegCreateKeyEx &H80000002, "Software/Microsoft/Windows/CurrentVersion/Run", 0, vbNullString, 0, 0, 0, hK, He
  16. If id Then
  17. RegSetValueEx hK, "BigChina-Ex", 0, REG_SZ, ApH, Len(ApH) + 1
  18. Else
  19. RegDeleteValue hK, "BigChina-Ex"
  20. End If
  21. RegCloseKey hK
  22. SzQd = 1
  23. Exit Function
  24. erh:
  25. SzQd = 0
  26. End Function 
 
发布了25 篇原创文章 · 获赞 4 · 访问量 6万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览