怎么添加注册表？

[pop82]

api的RegCreateKey怎么用？

[jsjgk]

RegCreateKey

VB声明
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
说明
在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项
返回值
Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
参数表
参数 类型及说明
hKey Long，要打开项的句柄，或者一个标准项名
lpSubKey String，欲创建的新子项。可同时创建多个项，只需用反斜杠将它们分隔开即可。例如level1\level2\newkey
phkResult Long，指定一个变量，用于装载新子项的句柄

[zyl910]

VB操作注册表：
http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
http://www.sqreg.com/file/vb/reg_03.htm
http://www.sqreg.com/file/vb/reg_04.htm
http://www.sqreg.com/file/vb/reg_05.htm
http://www.sqreg.com/file/vb/reg_06.htm
http://www.sqreg.com/file/vb/reg_07.htm

[leonDotnet]

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

'定义注册表中的主键
Const hKey = HKEY_LOCAL_MACHINE
Const subKey0 = "Software\Microsoft\Internet Explorer\Extensions\"

这三个函数要结合起来用
然后我自己写了一个函数来调用这三个API
'把字符串值存入注册表
Private Sub SaveString(hKey As Long, strPath As String, strValue As String, strdata As String)
Dim keyhand As Long
Dim r As Long
RegCreateKey hKey, strPath, keyhand
RegSetValueEx keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata)
RegCloseKey keyhand
End Sub

然后在一个BUTTON的ON_CLICK事件里添加代码
Private Sub cmdAdd2Reg_Click()
Dim SubKey As String
Dim AppFile As String
AppFile = App.Path & "\" & App.EXEName & ".exe"
SubKey = subKey0 & Trim(GUID) & "\"
SaveString hKey, SubKey, "ButtonText", "Magazine Management"
Call SaveString(hKey, SubKey, "Clsid", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}")
Call SaveString(hKey, SubKey, "Default Visible", "Yes")
Call SaveString(hKey, SubKey, "Exec", AppFile)
Call SaveString(hKey, SubKey, "HotIcon", App.Path & "\rec\HOPE.ico")
Call SaveString(hKey, SubKey, "Icon", App.Path & "\rec\HOPE.ico")

Call SaveString(hKey, SubKey, "MenuStatusBar", "Magazine Management")
Call SaveString(hKey, SubKey, "MenuText", "&Magazine Management")
frmSystem.mnuAdd2IE.Caption = "从IE工具栏中移除快捷方式"
Label1.Caption = "如果希望将刊物管理软件快捷方式从IE工具栏中移除，请点击相应按钮。"
cmdAdd.Enabled = False
cmdDel.Enabled = True
Me.Hide
MsgBox "刊物管理软件的快捷方式已经添入IE工具栏。"
Unload Me
End Sub

[leonDotnet]

以上是我写的一个把某应用程序加入IE工具栏快捷方式的部分代码 希望对你有所帮助