Crie um módulo com o 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
Public Const SPIF_UPDATEINIFILE
As Long = &H1
Public Const SPI_SETDESKWALLPAPER As Long = 20
Public Const SPIF_SENDWININICHANGE As Long = &H2
Public Sub SetWallpaper(ByVal
sArquivo As String)
Dim RT As Long
RT = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
0&, sArquivo, SPIF_UPDATEINIFILE Or _
SPIF_SENDWININICHANGE)
End Sub
.Para alterar o papel de parede basta inserir o codigo abaixo no evento desejado:
Call SetWallpaper("C:\Windows\Desenho.BMP")
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco