设置墙纸为空的问题（我已搜索了，仍没有结果）

[riverlj]

如果桌面上的墙纸是BMP格式的，则调用以下函数可以设置为空。
如果桌面上的墙纸不是BMP格式的（如：JPG），则调用以下函数不能设置为空。

Private 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
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1

Dim strDesktop As String
Dim lngValue As Long

strDesktop = ""
lngValue = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal strDesktop, _
SPIF_SENDWININICHANGE + SPIF_UPDATEINIFILE)
Debug.Print lngValue

[riverlj]

没人试过吗？望讨论之

[蒋晟]

http://www.china-askpro.com/msg48/qa87.shtml