Cambiar Fondo Escritorio Windows.

Cambia el fondo del escritorio por el fichero indicado.

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, _
             ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20

Private Sub Form_Load()
    Dim Res As Long
    Res = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:WindowsMiFondo.bmp", 0)
End Sub

El código de ejemplo para cambiar el fondo del escritorio de Windows.

api34

El proyecto es muy extenso… así que no pongo el código, bajaros el ejemplo directamente.

http://descarga.e-mision.net/API34.Zip

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s