此一问题需调用 SystemParametersInfo API 函数,细节如下:

1. API 的声明:

Const SPI_SETDESKWALLPAPER = 20

Const SPIF_UPDATEINIFILE = &H1

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 之前加上 Public 保留

字, 并且将 Private 保留字去掉。

2. 程序范例:

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称,

SPIF_UPDATEINIFILE)

例如:

1. 将桌面图片设定成 c:setup.bmp

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:windowssetup.bmp

", SPIF_UPDATEINIFILE)

2. 将桌面图片清掉

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "",

SPIF_UPDATEINIFILE)

程序如下:

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称,

SPIF_UPDATEINIFILE