易语言取进程时间源码

系统结构:获取进程,获取信息,获取时间,关闭内核对象_,打开进程_,取当前进程标识符_,获取进程经过时间_,时间结构转换_,到本地时间_,创建快照_,第一个_,下一个_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 获取进程
           |  |
           |  |------ 获取信息
           |  |
           |  |------ 获取时间
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   关闭内核对象_
           |  |
           |  |---[dll]------   打开进程_
           |  |
           |  |---[dll]------   取当前进程标识符_
           |  |
           |  |---[dll]------   获取进程经过时间_
           |  |
           |  |---[dll]------   时间结构转换_
           |  |
           |  |---[dll]------   到本地时间_
           |  |
           |  |---[dll]------   创建快照_
           |  |
           |  |---[dll]------   第一个_
           |  |
           |  |---[dll]------   下一个_

调用的DLL命令:

.DLL命令 关闭内核对象_, 整数型, "kernel32.dll", "CloseHandle"
    .参数 对象句柄, 整数型

.DLL命令 打开进程_, 整数型, "kernel32.dll", "OpenProcess"
    .参数 进程对象, 整数型
    .参数 继承句柄, 整数型
    .参数 进程标识符, 整数型

.DLL命令 取当前进程标识符_, 整数型, "kernel32.dll", "GetCurrentProcessId"

.DLL命令 获取进程经过时间_, 整数型, "kernel32.dll", "GetProcessTimes"
    .参数 进程句柄, 整数型
    .参数 创建时间, 文件时间_
    .参数 中止时间, 文件时间_
    .参数 系统经过时间, 文件时间_
    .参数 用户经过时间, 文件时间_

.DLL命令 时间结构转换_, 整数型, "kernel32.dll", "FileTimeToSystemTime"
    .参数 文件时间结构, 文件时间_
    .参数 系统时间结构, 系统时间_

.DLL命令 到本地时间_, 整数型, "kernel32.dll", "FileTimeToLocalFileTime"
    .参数 文件时间, 文件时间_
    .参数 所在文件时间, 文件时间_, 传址

.DLL命令 创建快照_, 整数型, , "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 第一个_, 整数型, , "Process32First"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 下一个_, 整数型, , "Process32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32