模块部分：
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20
窗体部分：
Private Sub Command1_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "d:\1.bmp", 0
End Sub

现在保证图片路径无误，可是为什么点击按钮就是没反应？？？

[此贴子已经被作者于2007-10-3 19:19:30编辑过]

声明漏了 Const SPIF_UPDATEINIFILE = &H1

试一下这样:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "d:\1.bmp",SPIF_UPDATEINIFILE)

这个我也试了，还是没效果，，，不过书上的代码中，最后一个参数就是用0，，，而且书上的代码可以用，而我的却不行。。。

比对了半天没比对出来到底哪里有问题。。。

我把书上完整的例子传上来：

[此贴子已经被作者于2007-10-3 19:30:14编辑过]

你上边那个EXE程序可以更换.

LZ你别告诉我你是用WIN95的吧???

所以我才感到奇怪，那个例子的可以用，而我简化后的代码却不能用，，，是怎么回事啊？？？


不是win95是winme

这大概就是你系统的问题了.
以上代码以及程序在本人机上测试通过.

LZ你要测试还是换个系统或机子吧.

可是例子在我的机子上运行也没问题啊。。。这是为什么？？？