Pessoal.Uma dica Postada em 22/8/2003 por Tekki, nos mostra como modificar a imagem de Papel de parede do windows de forma muito clara e prática:
-----------------------------------------------------------
'EM UM MÓDULO
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
Public Const SPI_SETDESKWALLPAPER = 20
------------------------------------------------------------------
'EM UM EVENTO QQÉ, APROPRIADO, É CLARO.
Dim lngSuccess As Long
Dim strBitmapImage As String
strBitmapImage = "c:MeuPapelDeParede.bmp"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
Porém,
isso só funciona com arquivos ".bmp", é aí q mora a minha dúvida:
Como faço pra que seja aplicado como Papel de Parede, Arquivos ".jpg" e/ou mesmo ".gif"?
Desde já,
Agradeço
