VB中删除注册表键值
来源:百度知道 编辑:UC知道 时间:2024/07/12 23:32:32
一个程序,创建程序启动项为:
Dim hKey As Long
Dim myexe As String
myexe = "MYSOFT" '建立启动注册表键名
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey '系统程序怕更改路径所以启动时加入启动项目
Dim Exename1 As String
Exename1 = App.Path & "\123.exe" '注册表键值
RegSetValueEx hKey, myexe, 0, REG_SZ, ByVal Exename1, 100
RegCloseKey hKey
,如何把上面改为删除的代码?
Dim hKey As Long
Dim myexe As String
myexe = "MYSOFT" '建立启动注册表键名
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey '系统程序怕更改路径所以启动时加入启动项目
Dim Exename1 As String
Exename1 = App.Path & "\123.exe" '注册表键值
RegSetValueEx hKey, myexe, 0, REG_SZ, ByVal Exename1, 100
RegCloseKey hKey
,如何把上面改为删除的代码?
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
用这两个函数,一个是删除键,一个是删除值