.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕, , , ' 本源码来自三叶资源网(www.sanye.cx) _时钟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.内存使用百分比, 内存使用显示, #绿色, #墨绿)