易语言取指定CPU使用源码

系统结构:GetProCPUuse,AdvancePrivileges,OpenProcess,CloseHandle,GetProcessTimes,FileTimeToLocalFileTime,FileTimeToSystemTime,GetCurrentProcess,OpenProcessToken,LookupPrivilegeValue,AdjustTokenPrivileges,

======窗口程序集1
           |  |
           |  |------ GetProCPUuse
           |  |
           |  |------ AdvancePrivileges
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _Test窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetProcessTimes
           |  |
           |  |---[dll]------   FileTimeToLocalFileTime
           |  |
           |  |---[dll]------   FileTimeToSystemTime
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   LookupPrivilegeValue
           |  |
           |  |---[dll]------   AdjustTokenPrivileges

调用的DLL命令:

.DLL命令 OpenProcess, 整数型, "kernel32", "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwProcessId, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 ObjectHandle, 整数型

.DLL命令 GetProcessTimes, 整数型, "kernel32", "GetProcessTimes"
    .参数 ProcessHandle, 整数型, , 进程PID
    .参数 CreateTime, FILETIME, , 创建时间
    .参数 PauseTime, FILETIME, , 停止时间
    .参数 KernelTime, FILETIME, , 内核时间
    .参数 UserTime, FILETIME, , 用户时间

.DLL命令 FileTimeToLocalFileTime, 整数型, "kernel32", "FileTimeToLocalFileTime", , 将一个FILETIME结构转换成本地时间  非零表示成功，零表示失败。会设置GetLastError
    .参数 FILETIME, FILETIME, , 包含了UTC时间信息的一个结构
    .参数 OUTFILETIME, FILETIME, , FILETIME，用于装载转换过后的本地时间的结构;

.DLL命令 FileTimeToSystemTime, 整数型, "kernel32", "FileTimeToSystemTime", , 根据一个FILETIME结构的内容，装载一个SYSTEMTIME结构  非零表示成功，零表示失败。会设置GetLastError
    .参数 FILETIME, FILETIME, , FILETIME，包含了文件时间的一个结构
    .参数 SYSTEMTIME, SYSTEMTIME, , SYSTEMTIME，用于装载系统时间信息的一个结构;

.DLL命令 GetCurrentProcess, 整数型, "kernel32.dll", "GetCurrentProcess"

.DLL命令 OpenProcessToken, 整数型, "advapi32.dll", "OpenProcessToken"
    .参数 ProcessHandle, 整数型
    .参数 DesiredAccess, 整数型
    .参数 TokenHandle, 整数型, 传址

.DLL命令 LookupPrivilegeValue, 逻辑型, "advapi32.dll", "LookupPrivilegeValueA"
    .参数 lpSystemName, 文本型
    .参数 lpName, 文本型
    .参数 lpLuid, LuID, 传址

.DLL命令 AdjustTokenPrivileges, 逻辑型, "advapi32.dll", "AdjustTokenPrivileges"
    .参数 TokenHandle, 整数型
    .参数 DisableAllPrivileges, 整数型
    .参数 NewState, TOKEN_PRIVILEGES, 传址
    .参数 BufferLength, 整数型
    .参数 PreviousState, 整数型
    .参数 ReturnLength, 整数型, 传址