一、用到的API

.版本 2

.DLL命令 GlobalMemoryStatusEx, 整数型
.参数 lpBuffer, MemoryInfo, 传址

二、自定义数据类型
.版本 2

.数据类型 MemoryInfo
.成员 本结构长度, 整数型, , , dwLength
.成员 已使用的内存百分比, 整数型, , , dwMemoryLoad
.成员 物理内存总量, 长整数型, , , dwTotalphys
.成员 可用物理内存, 长整数型, , , dwAvailphys
.成员 交换文件总大小, 长整数型, , , dwTotalPageFile
.成员 交换文件空闲大小, 长整数型, , , dwAvailPageFile
.成员 用户可用的地址空间, 长整数型, , , dwTotalVirtual
.成员 当前空闲的地址空间, 长整数型, , , dwAvailVirtual

三、主程序
.版本 2

.程序集 窗口程序集1

.子程序 _时钟1_周期事件
.局部变量 N, MemoryInfo
.局部变量 K, 整数型

N.本结构长度 ＝ 64
GlobalMemoryStatusEx (N)
标签1.标题 ＝ “内存占用率：” ＋ 到文本 (N.已使用的内存百分比) ＋ “%” ＋ #换行符 ＋ #换行符 ＋ “物理内存总量：” ＋ 到文本 (四舍五入 (N.物理内存总量 ÷ 1024 ÷ 1024 ÷ 1024, 0)) ＋ “GB ” ＋ #换行符 ＋ #换行符 ＋ “可用内存大小：” ＋ 到文本 (四舍五入 (N.可用物理内存 ÷ 1024 ÷ 1024 ÷ 1024, 1)) ＋ “GB” ＋ #换行符 ＋ #换行符 ＋ “虚拟内存总大小：” ＋ 到文本 (N.用户可用的地址空间 ÷ 1024) ＋ “MB” ＋ #换行符 ＋ #换行符 ＋ “可用虚拟内存大小：” ＋ 到文本 (N.当前空闲的地址空间) ＋ “MB” ＋ #换行符 ＋ #换行符 ＋ “交换文件总大小：” ＋ 到文本 (N.交换文件总大小 ÷ 1024) ＋ “MB”

.计次循环首 (取整 (N.已使用的内存百分比), K)
画板1.清除 (, , , )
画板1.画笔颜色 ＝ 取颜色值 (10, 122, 100)
画板1.刷子颜色 ＝ 取颜色值 (80, 189, 156)
画板1.画圆角矩形 (0, 0, 取整 (N.已使用的内存百分比) × 3, 12, 4, 4)
' 本源码来自易语言资源网(www.5A5X.com)
.计次循环尾 ()

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

时钟1.时钟周期 ＝ 1000
画板1.清除 (, , , )

画板1.刷子颜色 ＝ 取颜色值 (20, 244, 216)
画板1.画圆角矩形 (0, 12, 300, 12, 4, 4)