怎样用 VB 实现文件关联？

来源：百度知道 编辑：UC知道 时间：2024/04/27 21:20:18
我想注册一个 *.wan 文件
描述:Wander 迷宫源
扩展名:.wan
wanderfile
默认的图标:c:\program files\wander\wander.exe 的第二个图标
打开:c:\program files\wander\wander.exe

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 "adva