|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Altera o papel de parede do windows.
|
 |
|
|
|
Postada em 22/8/2003 por Tekki
'Delcare
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
Use o código.
Dim lngSuccess As Long
Dim strBitmapImage As String
strBitmapImage = "c:\MeuPapelDeParede.bmp"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage,
0)
|
|
|
|
|
