Für dieses Beispiel brauchen Sie einen Commandbutton und eine Textbox. Das Beispiel zeigt, wie Sie den Pfad zum
momentan eingestellten Hintergrundbild auslesen.
Vergessen Sie nicht, die RegTool5.DLL in Ihr Projekt einzubinden (Projekt/Verweise).
Private Sub Command1_Click()
Dim myReg As New Registry
Dim KeyFound As Boolean
Dim sValue As String
sValue = ""
KeyFound = myReg.GetKeyValue(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "Wallpaper", sValue)
If KeyFound Then
Text1.Text = sValue
End If
Set myReg = Nothing
End Sub
