SaveSettings/GetSettings not working

[Gorantla]

HI,
I installed VB6 on Windows 2000 proffessional edition. In the vb project if i use SaveSettings or GetSettings functions, they are not working. When i run the project i'm getting (SaveSettings,GetSettings) function not found error. It's interesting, i had installed vb6 sp5 even though it's not working. May be some dll wasn't registered properly on my vb installation on Windows 2000 platform. I couldn't find which dll it was? Is there any one face this kind of problem, please let me know the way to resolve this bug.
thank you and have a good day,
Ram

[Jason Badon]

put this code in a module

Private Const REG_OPTION_NON_VOLATILE = 0
Private Const REG_SZ As Long = 1
Private Const REG_BINARY = 3
Private Const REG_DWORD As Long = 4
 
Private Const READ_CONTROL = &H20000
Private Const SYNCHRONIZE = &H100000
Private Const KEY_ALL_ACCESS As Long = &H3F
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const KEY_READ = ((READ_CONTROL Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
 
Enum RegistryRootConstants
    HKEY_Classes_Root = &H80000000
    HKEY_Current_User = &H80000001
    HKEY_Local_Machine = &H80000002
    HKEY_Users = &H80000003
    HKEY_Performance_Data = &H80000004
    HKEY_Current_Config = &H80000005
    HKEY_Dyn_Data = &H80000006
End Enum
 
 
 
 
 
 
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, ByVal lpSecurityAttributes _
    As Long, phkResult As Long, lpdwDisposition As Long) As Long
 
Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias _
    "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
    ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As _
    String, ByVal cbData As Long) As Long
 
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias _
    "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
    String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
    As String, lpcbData As Long) As Long
 
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
    "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
    ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
    Long) As Long
 
Private Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias _
    "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
    String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
    As Long, lpcbData As Long) As Long
    
Private Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal hKey As Long) As Long
 
 
 
 
 
 
 
Public Sub SaveSetting(ByVal szRegistrySection As String, ByVal szRegistryKey As String, ByVal szRegistrySetting As String)
    Dim lReturnValue As Long
    Dim hKey As Long
 
    lReturnValue = RegCreateKeyEx(HKEY_Local_Machine, szRegistrySection, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hKey, lReturnValue)
    lReturnValue = RegSetValueExString(hKey, szRegistryKey, 0&, REG_SZ, szRegistrySetting, Len(szRegistrySetting))
    RegCloseKey hKey
End Sub
 
 
Public Function GetSetting(ByVal szRegistrySection As String, ByVal szRegistryKey As String, ByVal szDefaultRegistrySetting As String) As String
    Dim szRegistrySetting As String
    Dim lReturnValue As Long
    Dim lData As Long
    Dim hKey As Long
 
    lReturnValue = RegOpenKeyEx(HKEY_Local_Machine, szRegistrySection, 0, KEY_READ, hKey)
    lReturnValue = RegQueryValueExNULL(hKey, szRegistryKey, 0&, REG_SZ, 0&, lData)
    
    szRegistrySetting = String(lData, 0)
    lReturnValue = RegQueryValueExString(hKey, szRegistryKey, 0&, REG_SZ, szRegistrySetting, lData)
    If lReturnValue = 0 Then
        szRegistrySetting = Left(szRegistrySetting, lData - 1)
    Else
        szRegistrySetting = szDefaultRegistrySetting
    End If
 
    RegCloseKey hKey
    
    GetSetting = szRegistrySetting
End Function

[Tygur]

You do realize it's GetSetting and SaveSetting (without the "S" at the end), right?

[Jason Badon]

Tygur I didn't even notice that