如何建立文件关联

下创建一个新项。如指定的项已经存在那么函数会打开现有的项

【返回值】
Long零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码

【参数表】
hKey ----------- Long要打开项的句柄或者一个标准项名

lpSubKey ------- String欲创建的新子项。可同时创建多个项只需用反斜杠将它们分隔开即可。例如level1\level2\newkey

phkResult ------ Long指定一个变量用于装载新子项的句柄

Declare Function RegSetValue& Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&)

【vb声明】

Private 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

【说明】
设置指定项或子项的默认值

【返回值】
Long零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
【参数表】
hKey ----------- Long一个已打开项的句柄或指定一个标准项名

lpSubKey ------- String欲对它的值进行设置的一个子项的名字。如指定vbNullString表示设置hKey的默认值。如指定的子项不存在则会创建它

dwType --------- Long必须是REG_SZ

lpData --------- String新值

cbData --------- Long指定lpData的长度不包括空中止字符


Public Const ERROR_SUCCESS = 0&
Public Const ERROR_BADDB = 1&
Public Const ERROR_BADKEY = 2&
Public Const ERROR_CANTOPEN = 3&
Public Const ERROR_CANTREAD = 4&
Public Const ERROR_CANTWRITE = 5&
Public Const ERROR_OUTOFMEMORY = 6&
Public Const ERROR_INVALID_PARAMETER = 7&
Public Const ERROR_ACCESS_DENIED = 8&
Global Const HKEY_CLASSES_ROOT = &H80000000
Public Const MAX_PATH = 256&
Public Const REG_SZ = 1
　　我们先来声明API函数本例中用到的两个函数声明如下：



　　　Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&) As Long

　　　Private Declare Function RegSetValue& Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&) As Long  

　　RegCreateKey函数的作用是在注册表中指定的主键下创建一个新的主键而如指定的键已经存在那么函数会打开现有的主键其中各个参数的意义如下表所示：

  参数 意义
hKey Long 要打开键的句柄或者一个标准键名。例如：HKEY_CLASSES_ROOT 是标准键名
lpSubKey String 欲创建的新子键。如创建多个键需用反斜杠将它们分隔开。例如：level1\newkey  
phkResult Long 指定一个变量用于得到新子键的句柄在设置键值时要用到它
返回值 Long 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码  

　　RegSetValue函数用于设置指定键或子键的默认值它的各个参数的意义如下：

参数 意义
hKey Long 一个已打开键的句柄可从上面phkResult得到或是指定一个标准键名
lpSubKey String 要设置键值的一个子键的名字。如指定vbNullString表示设置hKey的默认值。如指定的子键不存在则会创建它
dwType Long 必须是REG_SZ
lpData String 新的键值
cbData Long 指定lpData的长度不包括空中止字符
返回值 Long 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码

　　下面我们