易语言进程刷新管理源码

系统结构:读进程,取进程路径,取用户,OpenProcess,OpenProcess1,CloseHandle,OpenProcessToken,GetTokenInformation,LookupAccountSidA,GetCurrentProcessId,GetModuleFileNameEx,DLL命令1,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 读进程
           |  |
           |  |------ 取进程路径
           |  |
           |  |------ 取用户
           |  |
           |  |------ _时钟3_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   OpenProcess1
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   GetTokenInformation
           |  |
           |  |---[dll]------   LookupAccountSidA
           |  |
           |  |---[dll]------   GetCurrentProcessId
           |  |
           |  |---[dll]------   GetModuleFileNameEx
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

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

.DLL命令 OpenProcess1, 整数型, , "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwProcessId, 整数型

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

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

.DLL命令 GetTokenInformation, 逻辑型, "Advapi32.dll", "GetTokenInformation"
    .参数 TokenHandle, 整数型
    .参数 TokenInformationClass, 整数型
    .参数 TokenInformation, 字节集, 传址
    .参数 TokenInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址

.DLL命令 LookupAccountSidA, 逻辑型, "Advapi32.dll"
    .参数 lpSystemName, 文本型
    .参数 lpSid, 整数型
    .参数 lpName, 文本型
    .参数 cchName, 整数型, 传址
    .参数 lpReferencedDomainName, 文本型
    .参数 cchReferencedDomainName, 整数型, 传址
    .参数 peUse, 整数型, 传址

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

.DLL命令 GetModuleFileNameEx, 整数型, "Psapi", "GetModuleFileNameExA"
    .参数 hProcess, 整数型
    .参数 hModule, 整数型
    .参数 lpFilename, 文本型
    .参数 nSize, 整数型

.DLL命令 DLL命令1