[RESOLVED] Registry Read with API only?

[JBD2]

How do I get a key's data using API's only? Thanks. (No WScript please)

[|2eM!x]

Check the link in my sig

[baja_yu]

Keys cant contain data. Only values can.

Or do you mean that you want to enumerate (list) all the values in a certain key?

[JBD2]

I meant the values sorry.

[JBD2]

Is there any other code I can use, because that one doesn't look like its using API.

[baja_yu]

Heres all the code in a module.

[|2eM!x]

The link in my sig fully uses API

[JBD2]

Oh I see how it works now, but how can I check if a key exists? I'm using the read function but I am confused, can you give me an example?

[|2eM!x]

Sure bro,

Private Function KeyExists(Hkey As String, Section As String, Valuekey As String) As Boolean
    On Error Resume Next
    Set Reg = New cRegistry
    Reg.ClassKey = Hkey
    Reg.SectionKey = Section
    Reg.Valuekey = Valuekey
    If Reg.Value <> Empty Then KeyExists = True
End Function

[jcis]

Remix, seems to be a problem with the ShellAndFind(Hwnd) Link in your sig?

It should be:
http://www.vbforums.com/showthread.p...61#post2214161

[JBD2]

I've Done this:

Call KeyExists(HKEY_LOCAL_MACHINE, "SOFTWARE\Mozilla\Mozilla Firefox 1.5\bin", "PathToExe")

Should I do this instead:

If KeyExists(HKEY_LOCAL_MACHINE, "SOFTWARE\Mozilla\Mozilla Firefox 1.5\bin", "PathToExe") Then
'Do Stuff
End If

Oh, and how can I read the value using the read thing? And save it to a string variable?

[|2eM!x]

Sorry, I meant to provide an explanation

Option Explicit
 
Dim reg As cRegistry
 
Private Sub Form_Load()
    If KeyExists(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer") = True Then
        'Key exists
    End If
    Dim tReg As String
    tReg = ReadReg(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
End Sub
 
Private Function KeyExists(Hkey As String, Section As String, Valuekey As String) As Boolean
    On Error Resume Next
    Set reg = New cRegistry
    reg.ClassKey = Hkey
    reg.SectionKey = Section
    reg.Valuekey = Valuekey
    If reg.Value <> Empty Then KeyExists = True
End Function
 
Private Function ReadReg(Hkey As String, Section As String, Valuekey As String) As String
    Set reg = New cRegistry
    reg.ClassKey = Hkey
    reg.SectionKey = Section
    reg.Valuekey = Valuekey
    ReadReg = reg.Value
End Function

I think that should do it

[|2eM!x]

Remix, seems to be a problem with the ShellAndFind(Hwnd) Link in your sig?

It should be:
http://www.vbforums.com/showthread.p...61#post2214161

Thanks

[JBD2]

Thanks for the help.