易语言设置桌面墙纸！

在软件中加入图片资源（.bmp格式），分别是：图片1和图片2，然后软件主界面放两按钮。然后复制以下代码就可以在两按钮间切换桌面图片了：

.版本 2

.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

写到文件 (取运行目录 () ＋ “\” ＋ “壁纸1.bmp”, #图片1)

写到文件 (取运行目录 () ＋ “\” ＋ “壁纸2.bmp”, #图片2)

.子程序 _按钮1_鼠标左键被放开, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

设置桌面墙纸 (取运行目录 () ＋ “\” ＋ “壁纸1.bmp”, 2)

.子程序 _按钮2_鼠标左键被放开, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

设置桌面墙纸 (取运行目录 () ＋ “\” ＋ “壁纸2.bmp”, 2)

//要用API刷新一下，下面有。

.版本 2

.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

写到文件 (取运行目录 () ＋ “\白熊猫.bmp”, #熊猫图片)

.子程序 _按钮1_被单击

设置桌面墙纸 (取运行目录 () ＋ “\白熊猫.bmp”, )

SystemParametersInfo (#SPI_SETDESKWALLPAPER, 0, 取运行目录 () ＋ “\白熊猫.bmp”, #SPIF_UPDATEINIFILE ＋ #SPIF_SENDWININICHANGE)

//DLL命令

.版本 2

.DLL命令 SystemParametersInfo, , "user32.dll", "SystemParametersInfoA"

.参数 uAction, 整数型, , 指定要设置的参数

.参数 uParam, 整数型

.参数 lpvParam, 文本型

.参数 fuWinIni, 整数型

//常量表

.版本 2

.常量 SPI_SETDESKWALLPAPER, "20"

.常量 SPIF_UPDATEINIFILE, "1"

.常量 SPIF_SENDWININICHANGE, "2"

---