Option Explicit 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 (以上函数是一些注册表的常量,用来定义 hKey)Enum ValueType REG_NONE = 0 REG_SZ = 1 REG_EXPAND_SZ = 2 REG_BINARY = 3 REG_DWORD = 4 REG_DWORD_BIG_ENDIAN = 5 REG_MULTI_SZ = 7 End Enum (这个枚举是用来定义 dwType) Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long '这个函数是用来创建注册表的主键 Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long '这个函数用来关闭打开的注册表 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 '这个函数用来改写注册表的键值相关的三个API函数是:RegCreateKey[建立SubKey]和RegClose[关闭SubKey] 详细说明: RegCreateKey函数: VB声明 Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LonghKey:Key Handle lpSubKey:SubKey名称或路径 phkResult:若RegOpenKey执行成功,则这一参数返回Subkey的hKey. 返回值: =0,表示成功;≠0,表示失败。[注意这一点与别的API函数不太一样]它的参数用法与RegOpenKey一样。所不同的是RegOpenKey只能打开已经有的SubKey,而RegCreateKey则可以建立SubKey,比较特别的是,如果调用RegCreateKey所建立的SubKey是一个已经存在的SubKey,则它的功能和RegOpenKey相同。由于RegCreateKey的这种特性,有的程序员干脆不用RegOpenKey,而用RegCreateKey来统一代替RegOpenKey。RegClose函数: Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 当我们不再存取Registry时,将打开或建立的SubKey关闭是一个比较好的习惯,就正如我们在使用C语言的文件打开函数后必须要关闭一样。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 hKey:Key Handle lpSubKey:Subkey名称或路径 dwType:数据类型,但在这里只能接受REG_SZ[字符串类型] lpData:所设置的字符串 cbData:lpData字符串的长度,这一长度包括chr(0)字符。 关于dwType的可能取值有了这些注册表的操作函数后,我们就开始定义我们的文件类型了。这个过程其实很简单的。 1.在注册表中定义 .zzz 文件 说明这个文件的类型是用户文件 "userfile" 2.在注册表的"userfile"中定义打开这种文件的程序(就是我们的VB程序!)具体的源代码如下: Sub Main() Dim ret As Long, hKey As Long, ExePath As String ret = RegCreateKey(HKEY_CLASSES_ROOT, ".zzz", hKey) '定义 .zzz文件 ret = RegSetValue(HKEY_CLASSES_ROOT, ".zzz", REG_SZ, "userfile", 9) '定义文件的类型,注意最后一个数字,它是 "userfile"的字节数 + 1 ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile", hKey) '定义"userfile" ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell", hKey) '定义它的操作 ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell\open", hKey) '具体定义操作的名称 ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell\open\command", hKey) '定义操作的动作 ExePath = App.Path & "\" & App.EXEName & ".exe %1" '获得VB程序名称 ret = RegSetValue(HKEY_CLASSES_ROOT, "userfile\shell\open\command", REG_SZ, ExePath, LenB(StrConv(ExePath, vbFromUnicode)) + 1) '最关键的一步!将 "userfile" 的打开(open)操作和我们的程序关联起来 RegCloseKey hKey End Sub
首先,为了简化说明过程,我们要明确一下任务,现在假设有一个我们自定义的文件类型 .zzz ;还有一个VB程序。当我们双击自定义文件 .zzz的图标,或者我们将图标拖到程序图标的时候,我们要求程序能够自动启动,同时获得 .zzz文件的文件名,这样,就能对这个文件进一步操作了。
好了,下面就开始编写程序了。第一个要解决的问题就是如何用程序将.zzz文件和我们的VB程序“关联”起来呢?在这里,我们使用修改“注册表”的方法来实现文件关联。让我们先定义一个模块,在模块中定义一些常量和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
(以上函数是一些注册表的常量,用来定义 hKey)Enum ValueType
REG_NONE = 0
REG_SZ = 1
REG_EXPAND_SZ = 2
REG_BINARY = 3
REG_DWORD = 4
REG_DWORD_BIG_ENDIAN = 5
REG_MULTI_SZ = 7
End Enum
(这个枚举是用来定义 dwType) Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,
phkResult As Long) As Long '这个函数是用来创建注册表的主键
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long '这个函数用来关闭打开的注册表
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 '这个函数用来改写注册表的键值相关的三个API函数是:RegCreateKey[建立SubKey]和RegClose[关闭SubKey]
详细说明:
RegCreateKey函数:
VB声明 Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA"
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LonghKey:Key Handle
lpSubKey:SubKey名称或路径
phkResult:若RegOpenKey执行成功,则这一参数返回Subkey的hKey.
返回值: =0,表示成功;≠0,表示失败。[注意这一点与别的API函数不太一样]它的参数用法与RegOpenKey一样。所不同的是RegOpenKey只能打开已经有的SubKey,而RegCreateKey则可以建立SubKey,比较特别的是,如果调用RegCreateKey所建立的SubKey是一个已经存在的SubKey,则它的功能和RegOpenKey相同。由于RegCreateKey的这种特性,有的程序员干脆不用RegOpenKey,而用RegCreateKey来统一代替RegOpenKey。RegClose函数:
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
当我们不再存取Registry时,将打开或建立的SubKey关闭是一个比较好的习惯,就正如我们在使用C语言的文件打开函数后必须要关闭一样。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
hKey:Key Handle
lpSubKey:Subkey名称或路径
dwType:数据类型,但在这里只能接受REG_SZ[字符串类型]
lpData:所设置的字符串
cbData:lpData字符串的长度,这一长度包括chr(0)字符。
关于dwType的可能取值有了这些注册表的操作函数后,我们就开始定义我们的文件类型了。这个过程其实很简单的。
1.在注册表中定义 .zzz 文件 说明这个文件的类型是用户文件 "userfile"
2.在注册表的"userfile"中定义打开这种文件的程序(就是我们的VB程序!)具体的源代码如下:
Sub Main()
Dim ret As Long, hKey As Long, ExePath As String
ret = RegCreateKey(HKEY_CLASSES_ROOT, ".zzz", hKey) '定义 .zzz文件
ret = RegSetValue(HKEY_CLASSES_ROOT, ".zzz", REG_SZ, "userfile", 9) '定义文件的类型,注意最后一个数字,它是 "userfile"的字节数 + 1
ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile", hKey) '定义"userfile"
ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell", hKey) '定义它的操作
ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell\open", hKey) '具体定义操作的名称
ret = RegCreateKey(HKEY_CLASSES_ROOT, "userfile\shell\open\command", hKey) '定义操作的动作
ExePath = App.Path & "\" & App.EXEName & ".exe %1" '获得VB程序名称
ret = RegSetValue(HKEY_CLASSES_ROOT, "userfile\shell\open\command", REG_SZ, ExePath, LenB(StrConv(ExePath, vbFromUnicode)) + 1)
'最关键的一步!将 "userfile" 的打开(open)操作和我们的程序关联起来
RegCloseKey hKey
End Sub