| 【说明】
在指定的项下创建一个新项。如指定的项已经存在那么函数会打开现有的项
【返回值】
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
用VB建立文件关联二 |
