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 SubEl código de ejemplo para cambiar el fondo del escritorio de Windows.
El proyecto es muy extenso... así que no pongo el código, bajaros el ejemplo directamente.
http://descarga.e-mision.net/API34.Zip
Posted
lun, jul 10 2000 23:28
by
Maverick