Cambiar fondo de escritorio ? y blokearlo desde el Reg

[Zion_Tm]

Buenas noches, encontre un codigo para cambiar wallpaper o fondo de escritorio
Aqui esta . ..

Código:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, _
    ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2


Private Sub Command1_Click()
    Dim X As Long

    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, "(None)", _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

    MsgBox "Wallpaper was removed"
End Sub


Private Sub Command2_Click()
    Dim FileName As String
    Dim X As Long

    'Usa aquí el bitmap que quieres usar
    FileName = "C:\WINDOWS\Web\Wallpaper\Felicidad.bmp"

    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

    MsgBox "Wallpaper was changed"
End Sub

Ahora me gustaria blokear desde el registro este fondo para que no pueda ser cambiado. Alguien sabe como hacerlo ? 

[ziBboh]

Brother, creo que es demasiado codigo para cambiar el fondo del escritorio. En cuanto a lo de bloquearlo, te pueden hechar la mano en el foro de Sistemas Operativos\Windows, para que ubiques la entrada de registro que bloquea el fondo de escritorio.

Saludos.

[Shadow C]

Solo tienes que crear una clave en :
HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop

Nombre de la clave
NoChangingWall paper

valor DWORD 1