易语言进程查看器

系统结构:GetProcessName,EndProcess,GetProcesses,GetModules,EnablePrivilege,ShellAbout,TerminateProcess,GetExitCodeProcess,EnumProcesses,EnumProcessModules,GetFileTitle,GetModuleBaseName,GetModuleFileNameEx,OpenProcess,GetModuleHandle,LoadIcon,CloseHandle,OpenProcessToken,LookupPrivilegeValue,AdjustTokenPrivileges,GetCurrentProcess,LocalSize,GetWindowsDirectory,

======frmMain
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _mnuHelpAbout_被选择
           |  |
           |  |------ _mnuFileExit_被选择
           |  |
           |  |------ GetProcessName
           |  |
           |  |------ _tbMain_被单击
           |  |
           |  |------ EndProcess
           |  |
           |  |------ GetProcesses
           |  |
           |  |------ GetModules
           |  |
           |  |------ _lstProcesses_当前表项被改变
           |  |
           |  |------ _mnuViewOnTop_被选择
           |  |
           |  |------ _mnuRefreshProcesses_被选择
           |  |
           |  |------ _mnuRefreshModules_被选择
           |  |
           |  |------ _lstModules_当前表项被改变
           |  |
           |  |
======PublicFunction
           |  |
           |  |------ EnablePrivilege
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ShellAbout
           |  |
           |  |---[dll]------   TerminateProcess
           |  |
           |  |---[dll]------   GetExitCodeProcess
           |  |
           |  |---[dll]------   EnumProcesses
           |  |
           |  |---[dll]------   EnumProcessModules
           |  |
           |  |---[dll]------   GetFileTitle
           |  |
           |  |---[dll]------   GetModuleBaseName
           |  |
           |  |---[dll]------   GetModuleFileNameEx
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   LookupPrivilegeValue
           |  |
           |  |---[dll]------   AdjustTokenPrivileges
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   GetWindowsDirectory

调用的DLL命令:

.DLL命令 ShellAbout, 整数型, "shell32.dll", "ShellAboutA", , 显示标准关于对话框
    .参数 hWnd, 整数型, , 所有者窗体句柄
    .参数 szApp, 文本型, , 应用程序名称
    .参数 szOther, 文本型, , 其它文本信息
    .参数 hIcon, 整数型, , 图标句柄

.DLL命令 TerminateProcess, 逻辑型, "kernel32.dll"
    .参数 hProcess, 整数型
    .参数 nExitCode, 整数型

.DLL命令 GetExitCodeProcess, , "kernel32.dll"
    .参数 hProcess, 整数型
    .参数 nExitCode, 整数型, 传址

.DLL命令 EnumProcesses, 整数型, "psapi.dll"
    .参数 lpProcesses, 整数型, 传址 数组
    .参数 nSize, 整数型
    .参数 nReturnSize, 整数型, 传址

.DLL命令 EnumProcessModules, 整数型, "psapi.dll"
    .参数 hProcess, 整数型
    .参数 lpModules, 整数型, 传址 数组
    .参数 nSize, 整数型
    .参数 nReturnSize, 整数型, 传址

.DLL命令 GetFileTitle, 整数型, "comdlg32.dll", "GetFileTitleA"
    .参数 lpFileName, 文本型
    .参数 lpFileTitle, 文本型, 传址
    .参数 nSize, 整数型

.DLL命令 GetModuleBaseName, 整数型, "psapi.dll", "GetModuleBaseNameA"
    .参数 hProcess, 整数型
    .参数 hModule, 整数型
    .参数 lpModuleName, 文本型, 传址
    .参数 nSize, 整数型

.DLL命令 GetModuleFileNameEx, 整数型, "psapi.dll", "GetModuleFileNameExA"
    .参数 hProcess, 整数型
    .参数 hModule, 整数型
    .参数 hFileName, 文本型
    .参数 nSize, 整数型

.DLL命令 OpenProcess, 整数型, "kernel32.dll"
    .参数 dwDesireAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwProcessID, 整数型

.DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA", , 获取模块句柄，这里要获取的是当前程序，所以无需释放
    .参数 hModuleFileName, 整数型, , 如为当前模块可用零表示

.DLL命令 LoadIcon, 整数型, "user32.dll", "LoadIconA", , 装载模块中的图标
    .参数 hModule, 整数型, , 模块句柄
    .参数 uIcon, 整数型, , 图标编号或图标名称

.DLL命令 CloseHandle, 整数型, "kernel32.dll", , , 关闭句柄，这里用来关闭已装载的图标
    .参数 hObject, 整数型, , 欲关闭的对象

.DLL命令 OpenProcessToken, 整数型, "advapi32.dll"
    .参数 hProcess, 整数型
    .参数 dwDesireAccess, 整数型
    .参数 hToken, 整数型, 传址

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

.DLL命令 AdjustTokenPrivileges, 整数型, "advapi32.dll"
    .参数 hToken, 整数型
    .参数 hDisableAllPrivilege, 逻辑型
    .参数 tpNewState, TOKEN_PRIVILEGES, 传址
    .参数 nSize, 整数型
    .参数 lpPrevState, 整数型
    .参数 nReturnSize, 整数型

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

.DLL命令 LocalSize, 整数型, "kernel32.dll"
    .参数 tp, TOKEN_PRIVILEGES

.DLL命令 GetWindowsDirectory, 整数型, "kernel32.dll", "GetWindowsDirectoryA"
    .参数 lpBuffer, 文本型, 传址
    .参数 nSize, 整数型