★ 第3遍问这个问题了. 关于VB操作注册表的问题.请高手相助！！！

Question

问题1:
我想改变 HKEY_CLASSES_ROOT下的 * 这个子项的值,系统默认的名称为"默认",值为" " （或者值为“未设键值”）,我用
Call RegSetValueEx(hKey, "(默认)", 0, REG_SZ, ByVal "abcd", 26) 后,发现在*的子项下 又建立了一个 名称为(默认) ,值为abcd的值.   请问如何改变(系统不允许删除这个"默认"名称) 这个系统自动建立的"(默认)"？？ （注：'RegDeleteValue hKey, "(默认)" 也是不行的。只能删除自己建立的值。却不能删除系统建立的。 ）(注:请各位看清楚了,我要改变的是"(默认)"这个名称,就是改变默认这两个字,而不是改变他的数据,好多人告诉我的都是改变"(默认)"的数据,不符合要求啊!! )
问题2:请各位高手将以下代码复制到窗体中试试，然后在　HKEY_CURRENT_USER\AppEvents会发现一个名称是File的值．以下代码当L＝1的时候，名称为File的键值为１，当L＝0 的时候却不起任何作用。请问是为什么？我的目的是，如何才能让File的值显示为0x00000000 (0)．(当值为0的时候就会显示的) （当然手工修改注册表可以正确实现的．）Option Explicit
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1&           '字符串值
'Const REG_BINARY = 3&       '二进制值
Const REG_DWORD = 4&        'DWORD 值
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         
Private Sub Command1_Click()
Dim ret As Long, hKey As Longret = RegCreateKey(HKEY_CURRENT_USER, "AppEvents", hKey)Dim L As Long
L = 1
Call RegSetValueEx(hKey, "File", 0, REG_DWORD, L, 4) 
RegCloseKey hKeyEnd Sub

Answer 1

Call RegSetValueEx(hKey, "", 0, REG_DWORD, L, 4) 

Answer 2

To : verybelial(顶级狙击手) 
我试了,不行的. 请问你试了吗?

Answer 3

"默认",值为"" 
Call RegSetValueEx(hKey, "",0, REG_SZ, ByVal " ", 26)

Answer 4

你没有写
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Answer 5

To : verybelial(顶级狙击手) 
      我知道,我并不是要一定删除的.只是想改变那个"默认"中 的那个值.(即 有时候系统显示的那个"未设键值”)

Answer 6

这句行的啊Call RegSetValueEx(hKey, "", 0, REG_DWORD,byval L, 4)

Answer 7

To : verybelial(顶级狙击手) 
     当然写RegOpenKey 了.不过RegOpenKey 和RegCreateKey 区别不大.所以我喜欢用RegCreateKey 比较方便.   请问这和问题这有什么关系吗?

Answer 8

试一下啊
Call RegSetValueEx(hKey, "", 0, REG_SZ, ByVal "abcd", 4) 

Answer 9

To : verybelial(顶级狙击手) 
      容我试一下这一句 Call RegSetValueEx(hKey, "", 0, REG_DWORD,byval L, 4).非常感谢.

Answer 10

试这句啊Call RegSetValueEx(hKey, "", 0, REG_SZ, ByVal "abcd", 4) 

Answer 11

To : verybelial(顶级狙击手) :
        太好了!!!!!!!这一句Call RegSetValueEx(hKey, "", 0, REG_DWORD,byval L, 4).解决了问题!!!非常感谢你啊狙击手,我真是太粗心了.  真的非常感谢你!!!

Answer 12

To: Rozre(神灵) 
     没来晚.还有第2个问题没有解决呢.解决了我在开贴给你分.

Answer 13

To: verybelial(顶级狙击手) 
     OK,期待高手的解答.

Answer 14

To: verybelial(顶级狙击手) 
    用2进制也不行.晕死~

Answer 15

To: verybelial(顶级狙击手) 
    OK,非常感谢

Answer 16

我要去睡觉了.要是那位朋友写出来了第2个问题的答案.麻烦您用QQ或者致信到 [email protected] 告知解决方法.感激不尽!!另开贴高分相送也可.

Answer 17

Option Explicit
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1&           '字符串值
'Const REG_BINARY = 3&       '二进制值
Const REG_DWORD = 4&        'DWORD 值
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Sub Command1_Click()
Dim ret As Long, hKey As Longret = RegCreateKey(HKEY_CURRENT_USER, "AppEvents", hKey)Dim L As Long
L = 0
Call RegSetValueEx(hKey, "File", 0, REG_DWORD, L, Len(L))
RegCloseKey hKeyEnd Sub很简单啊，嘻嘻