vb6.0检测自己是否在开机启动项中代码
时间: 2024-02-13 16:05:13 浏览: 33
以下是 VB6.0 检测当前程序是否在开机启动项中的完整代码示例:
```
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_CURRENT_USER = &H80000001
Const KEY_READ = &H20019
Private Sub Form_Load()
' 获取当前程序的可执行文件名
Dim exeName As String
exeName = App.Path & "\" & App.EXEName & ".exe"
' 打开注册表项 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
Dim hKey As Long
Dim ret As Long
ret = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_READ, hKey)
If ret <> 0 Then
MsgBox "打开注册表项失败!"
Exit Sub
End If
' 检查注册表项中是否存在当前程序的键值
Dim valueData As String
Dim valueType As Long
Dim valueSize As Long
valueData = Space$(1024)
valueSize = Len(valueData)
ret = RegQueryValueEx(hKey, App.Title, 0, valueType, valueData, valueSize)
RegCloseKey hKey
If ret = 0 Then
MsgBox "程序已经在开机启动项中。"
Else
MsgBox "程序未加入开机启动项。"
End If
End Sub
```
在运行该程序时,它将检查当前程序是否在开机启动项中,并在窗体中显示相应的提示信息。需要注意的是,该程序需要以管理员权限运行,否则无法打开注册表项。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)