Question

易语言如何修改桌面背景图片

如题。
ˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉ
不使用机子上面的图片作为背景，用易语言自带的图片设置为桌面背景。
.版本 2
.支持库 eAPI

.程序集 窗口程序集1

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

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

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

设置桌面墙纸 (取运行目录 () ＋ “\” ＋ “白熊猫.bmp”, )
ˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉ
改改就好了。这个设置不了。 搞完后屏幕都变成蓝色。

Answer 1

//要用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"

Answer 2

看了下一楼的代码还是会蓝
看我的把 但是暂时只支持bmp格式的，你可以转换一下格式

程序代码：
--------------------------复制下面
.版本 2

.程序集 窗口程序集1

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

通用对话框1.打开 ()
编辑框1.内困搭碧容 ＝ 通用对话框1.文件名

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

setdesk (20, 0, 编辑框1.内容, 0)

----------------------------
DLL代码枝虚：
----------------------------复制下面
.版本汪举 2

.DLL命令 setdesk, 整数型, , "SystemParametersInfoA"
.参数 uiAction, 整数型
.参数 uiParam, 整数型
.参数 pvParam, 文本型
.参数 fWinlni, 整数型