易语言设置桌面墙纸！

在软件中加入图片资源（.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"

.版本 2

.支持库 eImgConverter

.支持库 eAPI

.局部变量 原路径, 文本型

.局部变量 文件名, 文本型, , "0"

.局部变量 路径, 文本型

原路径 ＝ “LZ要的图片路径”

文件名 ＝ 分割文本 (原路径, “.”, )

路径 ＝ 文件名 [1] ＋ “.bmp”

转换到BMP (原路径, 路径)

设置桌面墙纸 (路径, )

---