Hvordan lese fra windows registret

[Blaster2k]

Jeg har funnet en function for å skrive til registret på en grei måte.

 

Private Function RegWrite(Key1, SValue As String)

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite Key1, SValue

End Function

 

Hvordan kan jeg fikse en function som er lik, bare at den leser verdiene fra registrene?

 

Ikke showsetting (eller het den readsetting?), for den leser jo fra software/vb & vba/programnavn/nøkkel (elns)

[aadnk]

Funksjonen du leter etter heter RegRead, og kan kalles på følgende måte:

 

Private Function RegRead(Key As String)

 

    RegRead = WSHShell.RegRead(Key)

 

End Function

 

Jeg vil for øvrig ikke anbefale å lage WSHShell-objektet hver gang denne funksjonen kalles - lag den heller når applikasjonen eksekveres, eller, såfremt dette er innenfor en klassemodul eller form, i Initialize eller i Load.

[Blaster2k]

Takken

 

Det med WSGShellobjekt, jeg bare fannt de linjene en plass vet ikke hva et sklikt objekt er, trenger jeg å lage det? noen måte å bruke funksjonen uten det?

[aadnk]

Du kan nok referere VBScript-objektet til ditt prosjekt via References, men jeg tør å påstå at du ikke har noe særlig å tjene på det. Dersom du legger inn følgende i begynnelsen av en form, kan du slippe å kalle CreateObject i prosedyrene:

 

' Shell-objektet vi skal benytte

Dim WSHShell As Object

 

Private Sub Form_Load()

 

    ' Lag deretter objektet

    Set WSHShell = CreateObject("WScript.Shell")

 

End Sub

 

' Og vi kan inkludere våre funksjoner

Private Function RegWrite(Key As String, Value)

 

    WSHShell.RegWrite Key, Value

 

End Function

' ...

[ddebono]

Vil ikke på noen måte anbefale å bruke de metodene der.

 

Det klart beste er via Windows API.

 

Gå inn på www.planet-source-code.com

 

 

Der finner du masse klasser som gjør dette for deg.