---

Hej NG

Jeg har brug for at skriven og læse nogle strenge ind i reg. databasen i
windows fra et VB6 program

hvordan gør jeg det?

VH
Morten

---

Jeg bruger disse to her

Public Property Get HentFraReg(Sti As String) As String
On Error Resume Next

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
HentFraReg = WshShell.regread(Sti)

'MsgBox reg.HentFraReg("HKLM\SOFTWARE\Hej\Test")

End Property
Public Function SkrivTilReg(Sti As String, Navn As String, Data As String)

' Skriver til Registringsdatabasen
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.regwrite Sti & Navn, Data

'reg.SkrivTilReg "HKLM\SOFTWARE\Hej\", "Test", "Hej Igen"

End Function


"Morten Østergaard" <webmulle@hotmail.com> wrote in message
news:a59a6p$n3d$1@sunsite.dk...
> Hej NG
>
> Jeg har brug for at skriven og læse nogle strenge ind i reg. databasen i
> windows fra et VB6 program
>
> hvordan gør jeg det?
>
> VH
> Morten
>
>
>
>
>

---

Jeg kunne også godt bruge dem, men er der nogle References man skal sætte,
og gider du give et eksempel med et par textboxe... The basics ya know...

Tark tark
Jacob V.


> Public Property Get HentFraReg(Sti As String) As String
> On Error Resume Next
>
> Dim WshShell As Object
> Set WshShell = CreateObject("Wscript.Shell")
> HentFraReg = WshShell.regread(Sti)
>
> 'MsgBox reg.HentFraReg("HKLM\SOFTWARE\Hej\Test")
>
> End Property
> Public Function SkrivTilReg(Sti As String, Navn As String, Data As String)
>
> ' Skriver til Registringsdatabasen
> Dim WshShell As Object
> Set WshShell = CreateObject("Wscript.Shell")
> WshShell.regwrite Sti & Navn, Data
>
> 'reg.SkrivTilReg "HKLM\SOFTWARE\Hej\", "Test", "Hej Igen"
>
> End Function

---

I VB6, ligger der en fil der hedder RegTool5.dll, og den indeholder de
fleste registry funktioner
Så slipper man for Late-Binding.

Mvh. Rayman.

"Vestergaard" <svester@post5.tele.dk> wrote in message
news:3c78d385$0$39852$edfadb0f@dspool01.news.tele.dk...
> Jeg kunne også godt bruge dem, men er der nogle References man skal sætte,
> og gider du give et eksempel med et par textboxe... The basics ya know...
>
> Tark tark
> Jacob V.
>
>
> > Public Property Get HentFraReg(Sti As String) As String
> > On Error Resume Next
> >
> > Dim WshShell As Object
> > Set WshShell = CreateObject("Wscript.Shell")
> > HentFraReg = WshShell.regread(Sti)
> >
> > 'MsgBox reg.HentFraReg("HKLM\SOFTWARE\Hej\Test")
> >
> > End Property
> > Public Function SkrivTilReg(Sti As String, Navn As String, Data As
String)
> >
> > ' Skriver til Registringsdatabasen
> > Dim WshShell As Object
> > Set WshShell = CreateObject("Wscript.Shell")
> > WshShell.regwrite Sti & Navn, Data
> >
> > 'reg.SkrivTilReg "HKLM\SOFTWARE\Hej\", "Test", "Hej Igen"
> >
> > End Function
>
>

---

Hey Rayman

Kan du også fortælle, hvordan man dels får adgang til de funktioner,
men mere interessant, hvordan hulen finder man ud af generelt, hvilke
funktioner, der findes i en givet dll-fil og hvordan de skal kaldes?

mvh Peter

>I VB6, ligger der en fil der hedder RegTool5.dll, og den indeholder de
>fleste registry funktioner
>Så slipper man for Late-Binding.
>
>Mvh. Rayman.
>

---

Ja, det er en ActiveX DLL, så de oplyser selv om hvilke funktioner den
indeholder, når man tilføjer en reference til den. Herefter, kan du trykke
på F2 for at se hvilke funktioner der bliver importeret. Den importerer en
Global Class + en Instance der hedder Registry. Funktionerne er så:
Registry.GetKeyValue KeyRoot as long, Path as string, Setting as String,
DefaultValue as string

Og Registry.Deletekey Registry.GetNextValue og Registry.UpdateValue

Mvh. Rayman


"PeterB" <xxxx62@sol.dk> wrote in message
news:3c7d4490.8083863@news.inet.tele.dk...
> Hey Rayman
>
> Kan du også fortælle, hvordan man dels får adgang til de funktioner,
> men mere interessant, hvordan hulen finder man ud af generelt, hvilke
> funktioner, der findes i en givet dll-fil og hvordan de skal kaldes?
>
> mvh Peter
>
> >I VB6, ligger der en fil der hedder RegTool5.dll, og den indeholder de
> >fleste registry funktioner
> >Så slipper man for Late-Binding.
> >
> >Mvh. Rayman.
> >
>