想写个小程序来更改桌面背景图片,有没有相关的API函数之类的?

Question

想通过写个程序来更改WINDOW XP的桌面背景, 有API函数吗?能做到吧?

Answer 1

'Set wallpaper API 
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 
Const SPIF_SENDWININICHANGE = &H2 
Const SPIF_UPDATEINIFILE = &H1 Dim iReturn As Long 'stretch image to fill screen 
iReturn = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\paper.bmp" , SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) 'center image in the screen (do not stretch) 
iReturn = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\paper.bmp" , 0)