易语言进程管理加压内存源码

系统结构:关闭同名进程,取全径进程组,降存,创建快照,SetProcessWorkingSetSize,第一个,下一个,模块1,OpenProcess,d结束进程,GetDesktopWindow,EmptyWorkingSet,取当前进程伪句柄,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 关闭同名进程
           |  |
           |  |------ 取全径进程组
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 降存
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建快照
           |  |
           |  |---[dll]------   SetProcessWorkingSetSize
           |  |
           |  |---[dll]------   第一个
           |  |
           |  |---[dll]------   下一个
           |  |
           |  |---[dll]------   模块1
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   d结束进程
           |  |
           |  |---[dll]------   GetDesktopWindow
           |  |
           |  |---[dll]------   EmptyWorkingSet
           |  |
           |  |---[dll]------   取当前进程伪句柄

调用的DLL命令:

.DLL命令 创建快照, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 SetProcessWorkingSetSize
    .参数 a
    .参数 b
    .参数 c

.DLL命令 第一个, 整数型, , "Process32First"
    .参数 h, 整数型
    .参数 p, 进程信息

.DLL命令 下一个, 整数型, , "Process32Next"
    .参数 h, 整数型
    .参数 p, 进程信息

.DLL命令 模块1, 整数型, , "Module32First"
    .参数 hsnap, 整数型
    .参数 mod, 模块信息

.DLL命令 OpenProcess, 整数型, , "OpenProcess"
    .参数 ba
    .参数 b
    .参数 id

.DLL命令 d结束进程, 整数型, , "TerminateProcess"
    .参数 id
    .参数 退出代码

.DLL命令 GetDesktopWindow, 整数型

.DLL命令 EmptyWorkingSet, , "psapi.dll"
    .参数 z

.DLL命令 取当前进程伪句柄, 整数型, "kernel32", "GetCurrentProcess", , 获取当前进程的一个伪句柄　当前进程的伪句柄