还差50分够1K分，谁给我50分啊

Question

看看我的帖子
http://expert.csdn.net/Expert/topic/1563/1563543.xml?temp=1.031131E-02注册表里每一个键值都有一个（默认）类型是REG_SZ的如何往它上面写键值呢？
我是过用
RegSetValueEx hKey, "(默认)", 0, REG_SZ, ByVal CStr(TxtPros.Text), Len(TxtPros.Text) + 1
可是不行
会在注册表里面创建一个新的键值不知为什么，如何来写呢

Answer 1

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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
Sub DelSetting(hKey As Long, strPath As String, strValue As String)
    Dim Ret
    RegCreateKey hKey, strPath, Ret
    RegDeleteValue Ret, strValue
    RegCloseKey Ret
End SubPrivate Sub Command1_Click()
DelSetting HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "自启动"
End Sub
这是一个自启的例子，往注册表建了一个值，你看看