建立注册表键的API函数怎么使用.

Question

该成lResult = RegCreateKeyEx(HKEY_CURRENT_USER, "Software\MyCompany", 0, 0, 0, KEY_ALL_ACCESS, 0, lHandle, disp)
   
   If disp = REG_OPENED_EXISTING_KEY Then
      MsgBox "成功！"
   End If
   
   If lResult = ERROR_SUCCESS Then
      MsgBox "成功！"
   Else
      MsgBox "失败！" & Err.Description & lResult & Space(1) & Err.Number
   End If
还是提示我失败，并且注册表项也没有建立成功。

Answer 1

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LonglResult = RegCreateKey(HKEY_CURRENT_USER, "Software\\MyCompany", hKey)

Answer 2

m_ServerName = GetSetting(JERRY_APP_NAME, JERRY_SECTION, JERRY_SERVER_NAME_KEY, "")
    m_UserName = GetSetting(JERRY_APP_NAME, JERRY_SECTION, JERRY_USER_NAME_KEY, "")
    m_PassWord = GetSetting(JERRY_APP_NAME, JERRY_SECTION, JERRY_PASSWORD_KEY, "")
    m_DBName = GetSetting(JERRY_APP_NAME, JERRY_SECTION, JERRY_DATABASE_KEY, "")
直接设置在vb目录下就行了是VB的函数