易语言中断消息源码

系统结构:PeekMessageA,TranslateMessage,DispatchMessageA,MsgWaitForMultipleObjects,GetCurrentThreadId,PostThreadMessageA,CreateEventA,CloseHandle,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   PeekMessageA
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessageA
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   PostThreadMessageA
           |  |
           |  |---[dll]------   CreateEventA
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 PeekMessageA, 逻辑型
    .参数 lpMsg, 整数型, 传址 数组
    .参数 hWnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型
    .参数 wRemoveMsg, 整数型

.DLL命令 TranslateMessage, 逻辑型
    .参数 lpMsg, 整数型, 传址 数组

.DLL命令 DispatchMessageA, 整数型
    .参数 lpMsg, 整数型, 传址 数组

.DLL命令 MsgWaitForMultipleObjects, 整数型
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 bWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 GetCurrentThreadId, 整数型

.DLL命令 PostThreadMessageA, 逻辑型
    .参数 idThread, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 CreateEventA, 整数型
    .参数 lpEventAttributes, 文本型
    .参数 bManualReset, 逻辑型
    .参数 bInitialState, 逻辑型
    .参数 lpName, 文本型

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