内存使用查看器v1.0

gulang20230313

做了一个查看物理内存和虚拟内存的易语言








.程序集 窗口程序集1

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

_时钟1_周期事件 ()

.子程序 显示内存进度
.参数 百分比, 整数型
.参数 显示画板, 画板
.参数 前景色, 整数型
.参数 背景色, 整数型
.局部变量 a, 整数型, , "2"
.局部变量 b, 整数型

显示画板.清除 (, , , )
显示画板.画笔颜色 ＝ 背景色
显示画板.刷子颜色 ＝ 背景色
显示画板.画出方式 ＝ 12
a [1] ＝ 显示画板.高度 － 10 － 14
.变量循环首 (1, 10, 1, b)
    显示画板.画矩形 (10, 5 ＋ 取整 (a [1] ÷ 10) × (b － 1), 显示画板.宽度 － 14, 取整 (a [1] ÷ 10) × (b － 1) ＋ 取整 (a [1] ÷ 10))
.变量循环尾 ()
百分比 ＝ 取整 (百分比 ÷ 10)
b ＝ 10
显示画板.画笔颜色 ＝ 前景色
显示画板.刷子颜色 ＝ 前景色
.变量循环首 (10, 10 － 百分比 ＋ 1, -1, b)
    显示画板.画矩形 (10, 5 ＋ 取整 (a [1] ÷ 10) × (b － 1), 显示画板.宽度 － 14, 取整 (a [1] ÷ 10) × (b － 1) ＋ 取整 (a [1] ÷ 10))
.变量循环尾 ()
显示画板.画出方式 ＝ 2
显示画板.画矩形 (取整 (显示画板.宽度 ÷ 2) － 2, 0, 取整 (显示画板.宽度 ÷ 2) ＋ 1, 显示画板.高度)

.子程序 _时钟1_周期事件
.局部变量 a, 内存参数

GlobalMemoryStatus (a)
内存百分.标题 ＝ 到文本 (a.内存使用百分比) ＋ “ %”
总数显示.标题 ＝ 到文本 (取整 (a.实际内存总字节数 ÷ 1024))
可用数显示.标题 ＝ 到文本 (取整 (a.可用的实际内存字节数 ÷ 1024))
虚拟总数显示.标题 ＝ 到文本 (取整 (a.虚拟内存的总字节数 ÷ 1024))
虚拟可用数显示.标题 ＝ 到文本 (取整 (a.可用的虚拟内存字节数 ÷ 1024))
分页数显示.标题 ＝ 到文本 (取整 (a.分页文件总字节数 ÷ 1024))
未分页显示.标题 ＝ 到文本 (取整 (a.分页文件可用字节数 ÷ 1024))
显示内存进度 (a.内存使用百分比, 内存使用显示, #绿色, #墨绿)




源码奉上，供大家一起学习研究：https://wwdy.lanzouf.com/ipkIA0r96n6h

yeek2006

感谢分享

Another2040

感谢大佬

qingfengfeng

好用，感谢大佬分享

雨之幽

单一工具现在不如聚合工具，大小差不多

wapj313

感谢大佬制作。

dmxayjn

很不错，支持一下大佬。

13607065647

感谢大佬

dujiu3611

挺好的，赞一个

fengyun123123

感激不尽