另类方法实现软件嵌入桌面

小十 · 发表于 2021-7-12 11:25:42

思路：先获取桌面壁纸，然后软件界面截图，再把两张图拼接在一起，再把拼接在一起的图片设置为桌面即可。（要恢复就先把桌面壁纸路径保存到变量，软件将被销毁重新设置下桌面即可）
用到了精易模块、彗星截图模块、GDIPlus类2.3.ec（部分源码来自网络下载）
GIF 2021-7-12 星期一上午 11-22-19.gif

代码如下：

子程序名	返回值类型	公开	备注
图片缩放	字节集		返回修改大小的图片字节集
参数名	类型	参考	可空	数组	备注
文件名	文本型
设置宽度	整数型
设置高度	整数型
按比例缩放	逻辑型				默认假
输出路径	文本型				保存修改大小的图片文件

变量名	类型	静态	数组	备注
img	对象
ip	对象

img.创建 (“WIA.ImageFile”, )
ip.创建 (“WIA.ImageProcess”, )
img.方法 (“LoadFile”, 文件名)
ip.读对象型属性 (“Filters”, ).方法 (“Add”, ip.读对象型属性 (“FilterInfos”, ).读对象型属性 (“Item”, “Scale”).读文本属性 (“FilterID”, ), 0)
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumHeight”).写属性 (“Value”, 设置高度)
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumWidth”).写属性 (“Value”, 设置宽度)
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “PreserveAspectRatio”).写属性 (“Value”, 按比例缩放)
img ＝ ip.对象型方法 (“Apply”, img)

如果真 (是否为空 (输出路径) ＝假)

img.方法 (“SaveFile”, 输出路径)
返回 (img.读对象型属性 (“FileData”, ).读属性 (“BinaryData”, ).取字节集 ())

子程序名	返回值类型	公开	备注
设置桌面

变量名	类型	静态	数组	备注
返回图片宽度	整数型
返回图片高度	整数型
返回a图片	字节集
临时图片	字节集
返回b图片	字节集
返回图片	字节集

临时图片＝图片_取图片区域 (彗星后台截图_字节集 (0, , , , 返回图片宽度, 返回图片高度), 返回图片宽度－ 380, 0, 380, 280)
返回b图片＝图片缩放 (取文本zc项 (3, “Control Panel\Desktop\Wallpaper”, ), 取屏幕宽度 (), 取屏幕高度 (), , )
返回图片＝合成图片 (返回b图片, 临时图片, 取屏幕宽度 () － 380, 0, 1)
写到文件 (取特定目录 (11) ＋ “linshizhuomian.png”, 返回图片)
系统_置桌面背景 (取特定目录 (11) ＋ “linshizhuomian.png”)

子程序名	返回值类型	公开	备注
合成图片	字节集
参数名	类型	参考	可空	数组	备注
原图	字节集
水印	字节集
水印左边	整数型
水印顶边	整数型
透明度	小数型				0--1

变量名	类型	静态	数组	备注
A	GP位图
B	GP位图
tx	GP图形
bin	字节集
w	整数型
h	整数型
info	GP图像属性
color	GP颜色矩阵类

Gdiplus初始化 ()
A.创建自字节集 (原图)
B.创建自字节集 (水印)
w ＝ B.取宽度 ()
h ＝ B.取高度 ()
tx.创建自图像 (A)
color.置透明度 (透明度)
info.创建 ()
info.置颜色矩阵类 (color)
tx.画图像缩放部分I (B, 水印左边, 水印顶边, w, h, 0, 0, w, h, , info)
bin ＝ A.保存到字节集 ( #图像格式_PNG )
tx.销毁 ()
B.销毁 ()
A.销毁 ()
info.销毁 ()
Gdiplus关闭 ()
返回 (bin)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 shell<br />
<br />
.子程序 图片缩放, 字节集, , 返回修改大小的图片字节集<br />
.参数 文件名, 文本型<br />
.参数 设置宽度, 整数型<br />
.参数 设置高度, 整数型<br />
.参数 按比例缩放, 逻辑型, 可空, 默认假<br />
.参数 输出路径, 文本型, 可空, 保存修改大小的图片文件<br />
.局部变量 img, 对象<br />
.局部变量 ip, 对象<br />
<br />
img.创建 (“WIA.ImageFile”, )<br />
ip.创建 (“WIA.ImageProcess”, )<br />
img.方法 (“LoadFile”, 文件名)<br />
ip.读对象型属性 (“Filters”, ).方法 (“Add”, ip.读对象型属性 (“FilterInfos”, ).读对象型属性 (“Item”, “Scale”).读文本属性 (“FilterID”, ), 0)<br />
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumHeight”).写属性 (“Value”, 设置高度)<br />
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumWidth”).写属性 (“Value”, 设置宽度)<br />
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “PreserveAspectRatio”).写属性 (“Value”, 按比例缩放)<br />
img ＝ ip.对象型方法 (“Apply”, img)<br />
.如果真 (是否为空 (输出路径) ＝ 假)<br />
    img.方法 (“SaveFile”, 输出路径)<br />
.如果真结束<br />
返回 (img.读对象型属性 (“FileData”, ).读属性 (“BinaryData”, ).取字节集 ())<br />
<br />
.子程序 设置桌面<br />
.局部变量 返回图片宽度, 整数型<br />
.局部变量 返回图片高度, 整数型<br />
.局部变量 返回a图片, 字节集<br />
.局部变量 临时图片, 字节集<br />
.局部变量 返回b图片, 字节集<br />
.局部变量 返回图片, 字节集<br />
<br />
临时图片 ＝ 图片_取图片区域 (彗星后台截图_字节集 (0, , , , 返回图片宽度, 返回图片高度), 返回图片宽度 － 380, 0, 380, 280)<br />
返回b图片 ＝ 图片缩放 (取文本zc项 (3, “Control Panel\Desktop\Wallpaper”, ), 取屏幕宽度 (), 取屏幕高度 (), , )<br />
返回图片 ＝ 合成图片 (返回b图片, 临时图片, 取屏幕宽度 () － 380, 0, 1)<br />
写到文件 (取特定目录 (11) ＋ “linshizhuomian.png”, 返回图片)<br />
系统_置桌面背景 (取特定目录 (11) ＋ “linshizhuomian.png”)<br />
<br />
<br />
<br />
.子程序 合成图片, 字节集<br />
.参数 原图, 字节集<br />
.参数 水印, 字节集<br />
.参数 水印左边, 整数型<br />
.参数 水印顶边, 整数型<br />
.参数 透明度, 小数型, , 0--1<br />
.局部变量 A, GP位图<br />
.局部变量 B, GP位图<br />
.局部变量 tx, GP图形<br />
.局部变量 bin, 字节集<br />
.局部变量 w, 整数型<br />
.局部变量 h, 整数型<br />
.局部变量 info, GP图像属性<br />
.局部变量 color, GP颜色矩阵类<br />
<br />
Gdiplus初始化 ()<br />
A.创建自字节集 (原图)<br />
B.创建自字节集 (水印)<br />
w ＝ B.取宽度 ()<br />
h ＝ B.取高度 ()<br />
tx.创建自图像 (A)<br />
color.置透明度 (透明度)<br />
info.创建 ()<br />
info.置颜色矩阵类 (color)<br />
tx.画图像缩放部分I (B, 水印左边, 水印顶边, w, h, 0, 0, w, h, , info)<br />
<br />
<br />
bin ＝ A.保存到字节集 (#图像格式_PNG)<br />
tx.销毁 ()<br />
B.销毁 ()<br />
A.销毁 ()<br />
info.销毁 ()<br />
Gdiplus关闭 ()<br />
返回 (bin)