VB源码实现：修改与删除注册表项名

Private Declare Function SHSetValueSZ Lib "shlwapi.dll" Alias "SHSetValueA" (ByVal hkey As Long, ByVal pszSubKey As String, ByVal pszValue As String, ByVal dwType As Long, ByVal pvData As String, ByVal cbData As Long) As Long
Private Declare Function SHDeleteKey Lib "shlwapi.dll" Alias "SHDeleteKeyA" (ByVal hkey As Long, ByVal pszSubKey As String) As Long
Private Sub Command1_Click()
Call SHSetValueSZ(&H80000001, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace1\{C42EB5A1-0EED-E549-91B0-153485860016}", "", 1, "Internet Explorer", LenB("Internet Explorer") + 1)
Call renameKey(enumHKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace1", "Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace")
Call SHDeleteKey(&H80000001, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace1")
End Sub




Private Const ERROR_SUCCESS = 0
          Private Const ERROR_FILE_NOT_FOUND = 2
          Private Const ERROR_ACCESS_DENIED = 5
          Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
          Private Type LUID
                  LowPart   As Long
                  HighPart   As Long
          End Type
          Private Type LUID_AND_ATTRIBUTES
                  pLuid   As LUID
                  Attributes   As Long
          End Type
          Private Type TOKEN_PRIVILEGES
                  PrivilegeCount   As Long
                  Privileges(1)   As LUID_AND_ATTRIBUTES
          End Type
          Private Const HKEY_CLASSES_ROOT = &H80000000
          Private Const HKEY_CURRENT_USER = &H80000001
          Private Const HKEY_LOCAL_MACHINE = &H80000002

          Private Const HKEY_USERS = &H80000003
          Private Const HKEY_CURRENT_CONFIG = &H80000005
          Private Const HKEY_DYN_DATA = &H80000006
    
          Public Enum enumHKEY
                  enumHKEY_CLASSES_ROOT = HKEY_CLASSES_ROOT
                  enumHKEY_CURRENT_USER = HKEY_CURRENT_USER
                  enumHKEY_LOCAL_MACHINE = HKEY_LOCAL_MACHINE
                  enumHKEY_USERS = HKEY_USERS
                  enumHKEY_CURRENT_CONFIG = HKEY_CURRENT_CONFIG
                  enumHKEY_DYN_DATA = HKEY_DYN_DATA
          End Enum
          Private Const STANDARD_RIGHTS_ALL = &H1F0000
          Private Const STANDARD_RIGHTS_READ = &H20000
          Private Const KEY_QUERY_VALUE = 1
          Private Const KEY_ENUMERATE_SUB_KEYS = 8
          Private Const KEY_NOTIFY = &H10&
          Private Const SYNCHRONIZE = &H100000
          Private Const KEY_CREATE_LINK = &H20
          Private Const KEY_CREATE_SUB_KEY = 4
          Private Const KEY_SET_VALUE = 2
          Private Const KEY_READ = (STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE)
          Private Const KEY_WRITE = ((STANDARD_RIGHTS_ALL Or KEY_SET_VALUE) And (Not SYNCHRONIZE))
          Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
          Private Const REG_FORCE_RESTORE = &H8
          Private Const TOKEN_ADJUST_PRIVLEGES = &H20
          Private Const TOKEN_QUERY = &H8
          Private Const SE_PRIVILEGE_ENABLED = &H2
          Private Const SE_RESTORE_NAME = "SeRestorePrivilege"
          Private Const SE_BACKUP_NAME = "SeBackupPrivilege"