易语言暂停系统源码

系统结构:死机,子程序1,取CPU核心数,置进程优先级,置进程优先级_,打开进程_,取当前进程标识符_,关闭内核对象_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 死机
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 取CPU核心数
           |  |
           |  |------ 置进程优先级
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   置进程优先级_
           |  |
           |  |---[dll]------   打开进程_
           |  |
           |  |---[dll]------   取当前进程标识符_
           |  |
           |  |---[dll]------   关闭内核对象_

调用的DLL命令:

.DLL命令 置进程优先级_, 整数型, "kernel32", "SetPriorityClass", 公开, $(b)设置一个进程的优先级别  进程的优先级，零表示失败。会设置GetLastError
    .参数 进程句柄, 整数型
    .参数 级别, 整数型

.DLL命令 打开进程_, 整数型, "kernel32.dll", "OpenProcess", 公开, 将句柄返回给过程对象
    .参数 进程对象, 整数型, , dwDesiredAccess 2035711 
    .参数 继承句柄, 整数型, , bInheritHandle   
    .参数 进程标识符, 整数型, , dwProcessId

.DLL命令 取当前进程标识符_, 整数型, "kernel32.dll", "GetCurrentProcessId", 公开, 获取当前进程一个唯一的标识符

.DLL命令 关闭内核对象_, 整数型, "kernel32.dll", "CloseHandle", 公开, $(b)非零表示成功，零表示失败
    .参数 对象句柄, 整数型, , hObject，欲关闭的一个对象的句柄