Register?

[R.I.P265]

Hvordan kan man få programmet sit til å skrive i registeret??

 

På forhond takk (hvis noen gidder å hjelpe meg)!

[Jonas]

Har aldri gjort det før, men tror det var med GetSetting og SaveSetting.

Endret 10. juni 2004 av Jonas

[asware]

Et eksempel på å save i regiesteret:

SaveSetting App.EXEName, "test", "test", txtTest.Text 

 

 

Et eksempel på å hente data fra registeret:

 txtTest.Text = GetSetting(App.EXEName, "test", "test")

[aadnk]

Hvis du skal skrive til andre nøkler i registeret må du enten bruke API eller COM objekter. F.eks kan du gjøre slik:

 

Dim WSHShell As Object, RegLocate As String

Set WSHShell = CreateObject("WScript.Shell")

RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\"

MsgBox "User agent: " & WSHShell.RegRead(RegLocate & "User Agent")
WSHShell.RegWrite RegLocate & "EmailName", "[email protected]"