易语言取系统线程信息源码

系统结构:取进程线程信息,查询_系统信息,内存_分配,拷贝_进程信息,内存_释放,进程_取当前ID,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 取进程线程信息
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   查询_系统信息
           |  |
           |  |---[dll]------   内存_分配
           |  |
           |  |---[dll]------   拷贝_进程信息
           |  |
           |  |---[dll]------   内存_释放
           |  |
           |  |---[dll]------   进程_取当前ID

调用的DLL命令:

.DLL命令 查询_系统信息, 整数型, "ntdll.dll", "ZwQuerySystemInformation"
    .参数 信息类型, 整数型
    .参数 信息数据, 整数型
    .参数 数据长度, 整数型
    .参数 实际长度, 整数型, 传址

.DLL命令 内存_分配, 整数型, "kernel32.dll", "LocalAlloc", , 返回内存地址，失败返回0
    .参数 选项, 整数型
    .参数 长度, 整数型

.DLL命令 拷贝_进程信息, 整数型, "kernel32.dll", "RtlMoveMemory", , 把拷贝地址的数据写入到目标地址
    .参数 目标地址, 系统进程信息
    .参数 拷贝地址, 整数型
    .参数 拷贝长度, 整数型

.DLL命令 内存_释放, 整数型, "kernel32.dll", "LocalFree"
    .参数 内存地址, 整数型

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