窗口置入任务栏显示信息

simor3

1.只用到了精易模块，测试win7 win10可用，win11没电脑装，没测试。
2.这里只是显示标签文本做个例子，既然窗口已经置入任务栏，那么显示进度条，显示图片框，按钮，就随你发挥。
3.下面是所有代码，很简单，下载压缩包里包含源码和编译好的程序。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
系统	类_系统信息
内存总大小	长整数型

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

内存总大小 ＝ 系统.取总物理内存 ()
置入任务栏 ()

子程序名	返回值类型	公开	备 注
置入任务栏

窗口1.移动 (, , 180, 40)
标签_信息.移动 (0, 0, 180, 40)
窗口_置父 (窗口1.取窗口句柄 (), 窗口_取句柄 (窗口_取句柄 (, , “Shell_TrayWnd”, “”), , “ReBarWindow32”, “”))
任务栏_刷新位置.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_任务栏_刷新位置_周期事件

变量名	类 型	静态	数组	备 注
任务栏中间句柄	整数型
任务栏句柄	整数型
rect	精易_位置和大小
任务栏程序句柄	整数型
大小	精易_位置和大小

任务栏句柄 ＝ 窗口_取句柄 (, , “Shell_TrayWnd”, “”)
大小 ＝ 窗口_取位置和大小 (任务栏句柄)
任务栏中间句柄 ＝ 窗口_取句柄 (任务栏句柄, , “ReBarWindow32”, “”)
任务栏程序句柄 ＝ 窗口_取句柄 (任务栏中间句柄, , “MSTaskSwWClass”, “运行中的应用程序”)
rect ＝ 窗口_取位置和大小 (任务栏中间句柄)
窗口_置位置和大小 (任务栏程序句柄, 0, 0, rect.宽度 － 窗口1.宽度, 大小.高度)
窗口1.移动 (rect.宽度 － 窗口1.宽度, 3, 标签_信息.宽度, 大小.高度)

子程序名	返回值类型	公开	备 注
_任务栏_刷新信息_周期事件

标签_信息.标题 ＝ “CPU：” ＋ 到文本 (系统_取CPU占用率 ()) ＋ “%” ＋ “  ” ＋ “内存：” ＋ 到文本 (到整数 ( (内存总大小 － 系统.取剩余物理内存 ()) ÷ 内存总大小 × 100)) ＋ “%” ＋ #换行符 ＋ “运行：” ＋ 时间_秒到时分秒格式 (取启动时间 () ÷ 1000, , )

子程序名	返回值类型	公开	备 注
_标签_信息_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_退出程序_被选择

结束 ()

子程序名	返回值类型	公开	备 注
_开机启动_被选择

写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” ＋ 取执行文件名 (), 取运行目录 () ＋ “\” ＋ 取执行文件名 ())
如果 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” ＋ 取执行文件名 ()) ＝ 真)
信息框 (“开机启动设置成功”, 0, , )
信息框 (“开机启动设置失败”, 0, , )

子程序名	返回值类型	公开	备 注
_标签_信息_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

添加提示 (标签_信息.取窗口句柄 (), “Alex Monitor”, 假, 真)

i支持库列表	支持库注释
iext	扩展界面支持库一
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 iext<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 系统, 类_系统信息<br /> .程序集变量 内存总大小, 长整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 内存总大小 ＝ 系统.取总物理内存 ()<br /> 置入任务栏 ()<br /> <br /> .子程序 置入任务栏<br /> <br /> 窗口1.移动 (, , 180, 40)<br /> 标签_信息.移动 (0, 0, 180, 40)<br /> 窗口_置父 (窗口1.取窗口句柄 (), 窗口_取句柄 (窗口_取句柄 (, , “Shell_TrayWnd”, “”), , “ReBarWindow32”, “”))<br /> 任务栏_刷新位置.时钟周期 ＝ 1000<br /> <br /> .子程序 _任务栏_刷新位置_周期事件<br /> .局部变量 任务栏中间句柄, 整数型<br /> .局部变量 任务栏句柄, 整数型<br /> .局部变量 rect, 精易_位置和大小<br /> .局部变量 任务栏程序句柄, 整数型<br /> .局部变量 大小, 精易_位置和大小<br /> <br /> 任务栏句柄 ＝ 窗口_取句柄 (, , “Shell_TrayWnd”, “”)<br /> 大小 ＝ 窗口_取位置和大小 (任务栏句柄)<br /> 任务栏中间句柄 ＝ 窗口_取句柄 (任务栏句柄, , “ReBarWindow32”, “”)<br /> 任务栏程序句柄 ＝ 窗口_取句柄 (任务栏中间句柄, , “MSTaskSwWClass”, “运行中的应用程序”)<br /> rect ＝ 窗口_取位置和大小 (任务栏中间句柄)<br /> 窗口_置位置和大小 (任务栏程序句柄, 0, 0, rect.宽度 － 窗口1.宽度, 大小.高度)<br /> 窗口1.移动 (rect.宽度 － 窗口1.宽度, 3, 标签_信息.宽度, 大小.高度)<br /> <br /> .子程序 _任务栏_刷新信息_周期事件<br /> <br /> 标签_信息.标题 ＝ “CPU：” ＋ 到文本 (系统_取CPU占用率 ()) ＋ “%” ＋ “  ” ＋ “内存：” ＋ 到文本 (到整数 ((内存总大小 － 系统.取剩余物理内存 ()) ÷ 内存总大小 × 100)) ＋ “%” ＋ #换行符 ＋ “运行：” ＋ 时间_秒到时分秒格式 (取启动时间 () ÷ 1000, , )<br /> <br /> .子程序 _标签_信息_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (菜单, , )<br /> <br /> .子程序 _退出程序_被选择<br /> <br /> 结束 ()<br /> <br /> .子程序 _开机启动_被选择<br /> <br /> 写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” ＋ 取执行文件名 (), 取运行目录 () ＋ “\” ＋ 取执行文件名 ())<br /> .如果 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” ＋ 取执行文件名 ()) ＝ 真)<br />     信息框 (“开机启动设置成功”, 0, , )<br /> .否则<br />     信息框 (“开机启动设置失败”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 _标签_信息_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 添加提示 (标签_信息.取窗口句柄 (), “Alex Monitor”, 假, 真)

Alex Monitor.rar (584.81 KB, 下载次数: 181)

2022-3-31 17:19 上传

点击文件名下载附件

song9980

可以帮忙做成模块吗

DXfrdfs7303

支持开源

danran

新技能已get√

莫尔多瓦

新技能已get√

285275928

新技能已get√

ikunyige

支持开源11111

灵海雪缘

SHIWOOOO

好好好好

彖浅

支持开源~！感谢分享