注册表处理函数的使用问题

Question

添加一个about对话框,里面有一个例子

Answer 1

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

Answer 2

'³õʼ»¯È«¾Ö±äÁ¿
Option ExplicitPublic Mark As Integer
'¿ØÖÆÊÇ·ñ×ÔÆô¶¯µÄ±êÖ¾±äÁ¿£¨1×ÔÆô¶¯£¬0 ²»×ÔÆô¶¯£©
'Ìí¼Óɽ³ö×ÊÆô¶¯µÄAPIº¯ÊýÉùÃ÷Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Public Const REG_BINARY = 3                     ' Free form binary
Public Const REG_NONE = 0                       ' No value type
Public Const REG_SZ = 1                         ' Unicode nul terminated string
Public Const REG_EXPAND_SZ = 2                  ' Unicode nul terminated string
Public Const REG_DWORD = 4                      ' 32-bit number
Public Const REG_DWORD_BIG_ENDIAN = 5           ' 32-bit number
Public Const REG_MULTI_SZ = 7                   ' Multiple Unicode stringsPublic Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public 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         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
'ÔÚ×¢²á±íÖÐÌí¼Ó×ÔÆô¶¯µÄÄ£¿é
Sub Main()
'¶¨ÒåhkeyΪÃû±ú±äÁ¿¡£subkeyΪע²á±íRUNÏîÄ¿±äÁ¿¡£exe Îª³ÌÐòÃû±äÁ¿Dim hKey As Long, SubKey As String, Exe As String
Select Case Mark
Case 1
'½«³ÌÐòÉ趨Ϊ×ÔÆô¶¯
'È¡³ÌÐòËùÔڵķ¾¶£¬ÅжÏÊÇ·ñΪ¸ùĿ¼
If Right(App.path, 1) = "\1\" Then
Exe = App.path + App.EXEName + ".exe" '¸ùĿ¼Çé¿ö
Else: Exe = App.path + "\" + App.EXEName + ".exe"
End If
SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
'ÉèÖÃÏîÄ¿
RegCreateKey HKEY_CURRENT_USER, SubKey, hKey 'È¡µÃ¾ä±ú
RegSetValueEx hKey, "MyExeName", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
'дÈë¼üÖµ
RegCloseKey hKey
'¹Ø±ÕÃû±ú
Case 0
'½«³ÌÐòÉ趨³É²»×ÔÆô¶¯
SubKey = "Software\Microsoft\Windows\CurrentVersion\Run" 'ÉèÖÃÏîÄ¿
RegOpenKey HKEY_CURRENT_USER, SubKey, hKey 'È¡µÃÃû±ú
RegDeleteValue hKey, "myexename" 'ɾ³ý¼üÖµ
RegCloseKey hKey '¹Ø±ÕÃû±ú
End Select
End Sub这是一个自启动 的例子