易语言载入窗口模态源码

系统结构:载入_模态,DialogProc,GetMessageA,PeekMessageA,TranslateMessage,DispatchMessageA,PostQuitMessage,TranslateAcceleratorA,EnableWindow,SetForegroundWindow,CallWindowProcA,GetWindowLongA,SetWindowLongA,

======程序集1
           |  |
           |  |------ 载入_模态
           |  |
           |  |------ DialogProc
           |  |
           |  |
======窗口程序集_启动窗口
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetMessageA
           |  |
           |  |---[dll]------   PeekMessageA
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessageA
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   TranslateAcceleratorA
           |  |
           |  |---[dll]------   EnableWindow
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   SetWindowLongA

调用的DLL命令:

.DLL命令 GetMessageA, 逻辑型, "user32.dll", "GetMessageA"
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 PeekMessageA, 逻辑型, "user32.dll", "PeekMessageA", , 如果消息可得到，返回非零值；如果没有消息可得到，返回值是零。
    .参数 lpMsg, MSG
    .参数 hWnd, 整数型
    .参数 wMsgFilterMin, 整数型, , 消息过滤最小值
    .参数 wMsgFilterMax, 整数型, , 消息过滤最大值
    .参数 wRemoveMsg, 整数型, , 删除处理

.DLL命令 TranslateMessage, 整数型, "user32.dll", "TranslateMessage", , 转换虚拟关键字消息
    .参数 lpMsg, MSG

.DLL命令 DispatchMessageA, 整数型, "user32.dll", "DispatchMessageA", , 向窗口发送消息
    .参数 lpMsg, MSG

.DLL命令 PostQuitMessage, , "user32.dll", "PostQuitMessage", , 投递退出消息，通知WINDOWS线索将中断
    .参数 nExitCode, 整数型, , 退出码

.DLL命令 TranslateAcceleratorA, 整数型, "user32.dll", "TranslateAcceleratorA", , 处理加速关键字  TranslateAccelerator直到窗口过程处理完消息后才返回。非零表示成功。
    .参数 hWnd, 整数型
    .参数 hAccTable, 整数型
    .参数 lpMsg, MSG

.DLL命令 EnableWindow, 逻辑型, "user32.dll", "EnableWindow"
    .参数 hwnd, 整数型
    .参数 fEnable, 逻辑型

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

.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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

.DLL命令 SetWindowLongA, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型