如果不存在我需要创建它
我有一个方法是导入API函数RegOpenKeyEx
通过尝试打开这个键去判断,如果打开失败就应该是不存在
但是奇怪的是无论键是否存在它都返回ERROR_SUCCESS,就是正常值
导致我无法区别是否存在
大家有别的办法么
我有一个方法是导入API函数RegOpenKeyEx
通过尝试打开这个键去判断,如果打开失败就应该是不存在
但是奇怪的是无论键是否存在它都返回ERROR_SUCCESS,就是正常值
导致我无法区别是否存在
大家有别的办法么
解决方案 »
- FlexCell每页后面都带一个空白页
- 用VB6.0制作了一个应用程序。。里面使用了一些第三方控件。。在别的计算机上运行是不是也要将第三方控件打包拷过去?
- 望高手指点,指点!VB的picturebox如何转载网页的图片
- 感谢CSDN中的各位五湖四海的朋友~!~
- 在vb中如何操纵另一可执行程序??
- 求大家来帮忙!
- 急求:vb中spread中设置两列行头 如何让两列行头 颜色不一样
- 怎样截获鼠标点击事件??????
- 谁能给我份显示VB柱状图的程序?告诉我那有下载的也行!谢谢!
- 画曲线?大虾请进!
- 如何窗体中加入窗体?
- 如何实现类似于qq或者msn上线提示,在托盘上自动弹出,自动收回,或者淡入淡出效果
看看这里
说明
在指定的项下创建一个新项。如指定的项已经存在,那么函数会打开现有的项
【VB声明】
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long【别名】
RegCreateKeyExA
【说明】
在指定项下创建新项的更复杂的方式。在Win32环境中建议使用这个函数。如指定的项已经存在,则函数会打开现有的项
【返回值】
Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码
【备注】
REG_OPTION_VOLATILE不适用于windows 95
【参数表】
hKey ----------- Long,一个打开项的句柄,或者一个标准项名
lpSubKey ------- String,欲创建的新子项的名字
Reserved ------- Long,设为零
lpClass -------- String,项的类名
dwOptions ------ Long,下述常数为零:REG_OPTION_VOLATILE——这个项不正式保存下来,系统重新启动后会消失
samDesired ----- Long,带有前缀KEY_??的一个或多个常数。它们组合起来描述了允许对这个项进行哪些操作
lpSecurityAttributes - SECURITY_ATTRIBUTES,对这个项的安全特性进行描述的一个结构(用ByVal
As Long传递空值)。不适用于windows 95
phkResult ------ Long,指定用于装载新子项句柄的一个变量
lpdwDisposition - Long,用于装载下列某个常数的一个变量:
REG_CREATED_NEW_KEY——新建的一个子项
REG_OPENED_EXISTING_KEY——打开一个现有的项例子:
Const HKEY_CURRENT_USER = &H80000001
Const REG_OPTION_BACKUP_RESTORE = 4 ' open for backup or restore
Const REG_OPTION_VOLATILE = 1 ' Key is not preserved when system is rebooted
Const REG_OPTION_NON_VOLATILE = 0 ' Key is preserved when system is rebooted
Const STANDARD_RIGHTS_ALL = &H1F0000
Const SYNCHRONIZE = &H100000
Const READ_CONTROL = &H20000
Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Const KEY_CREATE_LINK = &H20
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Const KEY_EXECUTE = (KEY_READ)
Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim Result As Long
'Check if the specified key exists
RegOpenKeyEx HKEY_CURRENT_USER, "KPD-Team", 0, KEY_ALL_ACCESS, Result
'If the key doesn't exist, we create it
If Result = 0 Then
'Create a new key
RegCreateKeyEx HKEY_CURRENT_USER, "KPD-Team", 0, "REG_DWORD", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, ByVal 0&, Result, Ret
If Result = 0 Then
MsgBox "Error while creating the Key!!"
Exit Sub
End If
End If
'Delete the key
RegDeleteKey Result, ""
'close the handle
RegCloseKey Result
End Sub