VB创建与删除注册表文件关联项（效果好，还可以追加满分）

来源：百度知道 编辑：UC知道 时间：2024/05/12 17:27:15
下面是注册表将JDC文件关联到Notepad.exe的REG文件
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.jdc]
@="AAAAAA"

[HKEY_CLASSES_ROOT\AAAAAA]

[HKEY_CLASSES_ROOT\AAAAAA\DefaultIcon]
@="%SystemRoot%\\System32\\shell32.dll,-153"

[HKEY_CLASSES_ROOT\AAAAAA\Shell]

[HKEY_CLASSES_ROOT\AAAAAA\Shell\Open]
@="打开(&O)"

[HKEY_CLASSES_ROOT\AAAAAA\Shell\Open\Command]
@="\"C:\\MyId\\Notepad.exe\" %1"

用VB程序启动实现以上关联，不用了程序了又能将子键删了。
麻烦写个例子，如一个cmdReg控件写到注册表。一个cmdDel控件删除新加的这个子键项

自己先建立两个命令按钮cmdReg、cmdDel，接着拷贝下列代码。

'建立子项subkey , shubkey2
'CreateNewKey HKEY_CURRENT_USER, "Software\SubKey1\SubKey2"

'建立REG_SZ类型键"text" ,并赋予项值"this is just a test"
'SetKeyValue HKEY_CURRENT_USER, "Software\SubKey1\SubKey2", "Test","0", "This is just a test", REG_SZ

'删除子项subkey \ shubkey2下的"test"键
'DeleteValue HKEY_CURRENT_USER, "Software\SubKey1\SubKey2", "Test"

'删除子项shubkey2
'DeleteKey HKEY_CURRENT_USER, "Software\SubKey1\SubKey2"

Option Explicit

Private Const REG_SZ As Long = 1
Private Const REG_DWORD As Long = 4
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private