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

小十

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

代码如下：

  

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

变量名	类 型	静态	数组	备 注
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)

tsg2005

在WIN7下如何嵌入桌面呢,找了都不起作用

myogoo

画图像缩放部分

myogoo

不是我想要的，唉

小十

兔子君 发表于 2021-7-12 11:57
如果三方嵌入窗口式桌面这么玩就凉凉，你怎么改系统桌面，前面还是有个嵌入窗口挡着
思路是好的
但显示的元 ...

你忘记了软件没退出软件还是在桌面上

小十

xuyuhui 发表于 2021-7-12 13:04
有道理，还是窗口_嵌入桌面常用

嵌入桌面win10不得行，显示大小有问题，不然也不会这么麻烦去绕

快乐小牛

兔子君 发表于 2021-7-12 11:57
如果三方嵌入窗口式桌面这么玩就凉凉，你怎么改系统桌面，前面还是有个嵌入窗口挡着
思路是好的
但显示的元 ...

有道理，还是窗口_嵌入桌面常用

兔子君

如果三方嵌入窗口式桌面这么玩就凉凉，你怎么改系统桌面，前面还是有个嵌入窗口挡着
思路是好的
但显示的元素刷新岂不是又要刷新桌面，显示个时间那一闪一闪亮晶晶了喂

小十

霸哥 发表于 2021-7-12 11:48
如果用的火莹呢

没试过  火萤估计也是遮住桌面

霸哥

如果用的火莹呢

maozaiba

我日