易语言API创建查看进程窗口源码

系统结构:Load,创建控件,列表消息处理,按钮消息处理,枚举进程,conv,Win,WindProc,WinMov,GetModuleHandle,CreateWindowEx,SetWindowLong,CallWindowProc,RegisterClass,ShowWindow,UpdateWindow,DefWindowProc,GetStockObject,LoadCursor,GetMessage,TranslateMessage,DispatchMessage,UnregisterClass,GetWindowRect,ScreenToClient,GetParent,MoveWindow,OpenProcess,GetProcessImageFileNameA,PostQuitMessage,SendMessageA,SendMessage,MessageBoxA,

======Main
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ Load
           |  |
           |  |------ 创建控件
           |  |
           |  |------ 列表消息处理
           |  |
           |  |------ 按钮消息处理
           |  |
           |  |------ 枚举进程
           |  |
           |  |------ conv
           |  |
           |  |
======WinClass
           |  |
           |  |------ Win
           |  |
           |  |------ WindProc
           |  |
           |  |------ WinMov
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   RegisterClass
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   UnregisterClass
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   ScreenToClient
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetProcessImageFileNameA
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   MessageBoxA

调用的DLL命令:

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA"
    .参数 lpModuleName

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA", , 创建窗口
    .参数 dwExStyle, 整数型, , 扩展样式
    .参数 lpClassName, 文本型, , 类名
    .参数 lpWindowName, 文本型, , 窗口标题
    .参数 dwStyle, 整数型, , 窗口样式
    .参数 x, 整数型, , 左边位置
    .参数 y, 整数型, , 顶边位置
    .参数 nWidth, 整数型, , 宽度
    .参数 nHeight, 整数型, , 高度
    .参数 hWndParent, 整数型, , 父窗口句柄
    .参数 hMenu, 整数型, , null参见CreateWindow
    .参数 hInstance, 整数型, , 实例句柄
    .参数 lpParam, 整数型, , null参见CreateWindow

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA", 公开
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA", 公开, LRESULT WINAPI CallWindowProc
    .参数 lpPrevWndFunc, , , WNDPROC lpPrevWndFunc ,
    .参数 hWnd, 整数型, , HWND hWnd ,
    .参数 Msg, 整数型, , UINT Msg ,
    .参数 wParam, 整数型, , WPARAM wParam ,
    .参数 lParam, 整数型, , LPARAM lParam ,

.DLL命令 RegisterClass, 整数型, "user32.dll", "RegisterClassA", , 注册窗口类
    .参数 Class, WNDCLASS, 传址, 窗口的类结构

.DLL命令 ShowWindow, 整数型, "user32.dll", "ShowWindow"
    .参数 hwnd, 整数型
    .参数 nCmdShow, 整数型

.DLL命令 UpdateWindow, 整数型, "user32.dll", "UpdateWindow"
    .参数 hwnd, 整数型

.DLL命令 DefWindowProc, 整数型, "user32.dll", "DefWindowProcA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetStockObject, 整数型
    .参数 fnObject

.DLL命令 LoadCursor, 整数型, "user32.dll", "LoadCursorA", 公开, HCURSOR WINAPI LoadCursor
    .参数 hInstance, 整数型, , HINSTANCE hInstance ,
    .参数 lpCursorName, 整数型, , LPCTSTR lpCursorName ,

.DLL命令 GetMessage, 整数型, "user32.dll", "GetMessageA"
    .参数 lpMsg, MSG, 传址
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32.dll", "TranslateMessage"
    .参数 lpMsg, MSG, 传址

.DLL命令 DispatchMessage, 整数型, "user32.dll", "DispatchMessageA"
    .参数 lpMsg, MSG, 传址

.DLL命令 UnregisterClass, 整数型, "user32.dll", "UnregisterClassA"
    .参数 Class, 文本型
    .参数 句柄, 整数型

.DLL命令 GetWindowRect, 整数型
    .参数 hw
    .参数 rect, RECT

.DLL命令 ScreenToClient, 整数型
    .参数 hw
    .参数 pt, POINTAPI

.DLL命令 GetParent, 整数型
    .参数 hw

.DLL命令 MoveWindow, 整数型
    .参数 hw
    .参数 x
    .参数 y
    .参数 w
    .参数 h
    .参数 f

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess", , 进程操作
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型, , 是否继承
    .参数 dwProcessId, 整数型

.DLL命令 GetProcessImageFileNameA, 整数型, "psapi.dll"
    .参数 hp
    .参数 pn, 文本型
    .参数 lp

.DLL命令 PostQuitMessage, , "user32.dll", "PostQuitMessage"
    .参数 nExitCode, 整数型

.DLL命令 SendMessageA, 整数型, "user32.dll", "SendMessageA", 公开, LRESULT WINAPI SendMessage
    .参数 hWnd, 整数型, , HWND hWnd ,
    .参数 Msg, 整数型, , UINT Msg ,
    .参数 wParam, 整数型, , WPARAM wParam ,
    .参数 lParam, 文本型, , LPARAM lParam ,

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA", 公开, LRESULT WINAPI SendMessage
    .参数 hWnd, 整数型, , HWND hWnd ,
    .参数 Msg, 整数型, , UINT Msg ,
    .参数 wParam, 整数型, , WPARAM wParam ,
    .参数 lParam, 整数型, , LPARAM lParam ,

.DLL命令 MessageBoxA, 整数型
    .参数 hw
    .参数 str, 文本型
    .参数 cp, 文本型
    .参数 tp