易语言线程通信源码

系统结构:子程序1,API_创建线程,API_等待消息,API_发送线程消息,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 子程序1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_创建线程
           |  |
           |  |---[dll]------   API_等待消息
           |  |
           |  |---[dll]------   API_发送线程消息

调用的DLL命令:

.DLL命令 API_创建线程, 整数型, "kernel32.dll", "CreateThread", 公开, 线程句柄
    .参数 lpThreadAttributes, 整数型, , 0
    .参数 dwStackSize, 整数型, , 0
    .参数 lpStartAddress, 子程序指针, , &线程函数
    .参数 lpParameter, 整数型, , 线程参数
    .参数 dwCreationFlags, 整数型, , 0立即执行
    .参数 LpthreadId, 整数型, 传址, 线程ID

.DLL命令 API_等待消息, 整数型, "user32.dll", "GetMessageA", 公开, , GetMessage
    .参数 消息值, lp_msg, , lpMsg
    .参数 窗口句柄, 整数型, , 0
    .参数 过滤消息最小值, 整数型, , 0
    .参数 过滤消息最大值, 整数型, , 0

.DLL命令 API_发送线程消息, 逻辑型, "user32.dll", "PostThreadMessageA", 公开
    .参数 idThread, 整数型, , 线程ID
    .参数 Msg, 整数型, , 消息值
    .参数 wParam, 整数型, , 附加消息1
    .参数 IParam, 整数型, , 附加消息2