Papel de Parede

[DOliveira 0]

Ola p todos, Gostaria de saber se alguem tem algum código ou função p alterar o Papel de Parede do Windows em intervalos definidos pelo user.Obrigado.

[Veber 0]

' ***************************************************************************' * Instructions: Paste the lines below into a module, or into your form, and' *               call using the example below.  Note: filename must be a BMP' * Example:' *          CALL SetWallpaper("C:\myBitmap.bmp")' ***************************************************************************Public Const SPIF_UPDATEINIFILE = &H1Public Const SPI_SETDESKWALLPAPER = 20Public Const SPIF_SENDWININICHANGE = &H2Private Declare Function SystemParametersInfo Lib "User32" Alias _    "SystemParametersInfoA" _    (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, _     ByVal fuWinIni As Long) As LongPublic Sub  SetWallpaper(ByVal pFileName As String)  Dim Ret as long  Ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, pFileName, _            SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)End Sub

 

Flows