Get rigistry value from outsite of VB and VBA Programing

[dandono]

hi, i am trying to get and change a string from outsite HKEY_CURRENT_USER\Software\VB and VBA Programming\
as in somewhere like HKEY_USERS\.DEFAULT\Controll Pannel\Desktop\ or somewhere. i know of getsetting and savesetting but i can not get them to work with anything outsite of the VB and VBA Programming Key. What can i use the get and change a string value from outside of VB and VBA Prog.. Key?
thanks, dandono.

[penagate]

I think this is a FAQ submission candidate (unless it exists... did you check? )

Do a forum search for "registry" and you will find umpteen examples

[dandono]

i found umpteen examples of the GetSetting and SaveSetting method that does not do anything outside of VB and VBA Prog.. Key. I found this thread

Yes you can get it to save your settings under any key in the registry but not without using the registry API functions. The GetSetting and SaveSetting functions only work on the above mentioned key.

so i guess i need to search for the registry API now
ps: i did do a forum search but only searched a few pages

[penagate]

If only you'd searched the Codebank forum, you'd have found these on the first page:

http://www.vbforums.com/showthread.php?t=344540
http://www.vbforums.com/showthread.php?t=231560

[dandono]

Option Explicit
Dim reg As cRegistry
 
Private Sub SaveSettings() 'Writes to Registry
    Set reg = New cRegistry
    'This will create a new value in the Run section
    'so your program will automatically run when Windows starts
       'This will create a new section to store your own keys in
    reg.ClassKey = HKEY_USERS
    reg.SectionKey = ".DEFAULT\Control Panel\Desktop"
    reg.ValueKey = "Wallpaper"
    reg.ValueType = REG_SZ
    reg.Value = CLng(Text2.Text)
End Sub
 
Private Sub GetSettings() 'Reads the Registry
    Set reg = New cRegistry
    reg.ClassKey = HKEY_USERS
    reg.SectionKey = ".DEFAULT\Control Panel\Desktop"
    reg.ValueKey = "Wallpaper"
End Sub
 
Private Sub Form_Load()
Call GetSettings
Text1.Text = reg.Value
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
SaveSettings
End Sub

vbruntime error 13

[penagate]

That's not very helpful, where does the error occur.

[dandono]

at unload

[penagate]

What exact line does it break upon, and what is highlighted?

[dandono]

the line with

reg.Value = CLng(Text2.Text)

in the SaveSettings function

[penagate]

Don't use CLng(). If the key type is REG_SZ it means a string, and you're trying to convert it to a Long instead.

[dandono]

It works now, thanks.