请问怎样编程实现windows墙纸的更换？（内空）

Question

声明：
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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
用法：
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP名称, SPIF_UPDATEINIFILE)
例子：
' 1. 把桌面图片设为 c:\windows\setup.bmp
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\setup.bmp", SPIF_UPDATEINIFILE)
' 2. 将桌面图片清除
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE)

Answer 1

设置墙纸
http://210.75.132.33/lakes/detail.asp?id=17

Answer 2

疾风回答的对，看看api里面的常数表

Answer 3

疾风回答的对
稍做一点补充
dim f as string
f="c:\windows\setup.bmp"
1.立即更新桌面底色图案
systemparametersinfo spi_setdeskwallpaper,0,f,spif_sendwininichange
2.更新登陆数据库中设置的底色图案
systemparametersinfo spi_setdeskwallpaper,0,f,spif_updateinifile
3.同时更新桌面及登陆数据库中设置的底色图案
systemparametersinfo spi_setdeskwallpaper,0,f,spif_updateinifile or 
    spif_sendwininichange
4.清除
systemparametersinfo spi_setdeskwallpaper,0,"",spif_updateinifile or 
    spif_sendwininichange

Answer 4

是不是windows只能使用bmp文件做墙纸？