有劳各位老大 请问我的这个为什么实现不了桌面背景的改变？在线等。。。。。。。。。。

Question

我想通过SystemParametersInfo 来改变桌面的背景，代码如下：
就是通过单击按钮来进行桌面背景的改变1.公用代码：
Const SPI_SETDESKWALLPAPER = 20Const SPIF_UPDATEINIFILE = &H1Const SPIF_SENDWININICHANGE = &H2Private 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然后按钮的影响事件如下：
Private Sub changebg_Click()
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "E:\Cantack\Fibona002.JPG", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
End Sub谢谢各位了，我是菜菜！

Answer 1

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As LongPublic Const SPI_SETDESKWALLPAPER = 20Dim ChangeWP
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\Circles.bmp", 0)

Answer 2

只有.bmp格式的文件才能用API设置桌面的
所以只有先加载到一个图片框中(Picture1)
Picture1.Picture=LoadPicture("E:\Cantack\Fibona002.JPG")
然后
SavePicture Picture1.Picture, "C:\xx.bmp"
再用SystemParametersInfo函数
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:\xx.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)