:9.756KB : :1 :2019-11-13 20:26:18
本来想加个缓冲时间,让一些线程自动销毁,但是WaitforMO(),最多只能等待64条线程。等待时间前让线程销毁,然后再逐个Exit 默认为1000ms。
类_线程池运行中 = 假
.计次循环首 (取数组成员数 (类_线程信息_集合), i)
API_PostThreadMessage (类_线程信息_集合 [i].id, #线程_quit, 0, 0)
.计次循环尾 ()
API_PostThreadMessage (类_线程信息_专注任务列表.id, #线程_quit, 0, 0)
.如果真 (是否为空 (等待时间) = 假)
API_Sleep (等待时间)
.如果真结束
API_Sleep (1000)
.计次循环首 (取数组成员数 (类_线程信息_集合), i)
API_ExitThread (类_线程信息_集合 [i].h)
.计次循环尾 ()
API_ExitThread (类_线程信息_专注任务列表.h)
清除数组 (类_线程信息_运行中)
清除数组 (类_线程信息_集合)
清除数组 (类_线程任务_队列)
连续赋值 (0, msg.time, msg.message, msg.wParam, msg.lParam) ' 记得加上这句清除好数组“API_PeekMessage 他不会清空
API_GetMessage (msg, 0, 0, 100) ' 第一次检查消息队列 就是创建队列把 使用#PM_NOREMOVE即可只读消息不删除
.如果真 (取数组成员数 (类_线程任务_队列) ≠ 0)
.如果真 (msg.message = #线程_check)
.如果真 (类_线程信息_运行中 [msg.wParam] = 假) ' 为什么要这样写. 你猜
待发送 = 类_线程任务_队列 [1]
删除成员 (类_线程任务_队列, 1, 1)
API_PostThreadMessage (类_线程信息_集合 [msg.wParam].id, #线程_任务, 待发送.子程序指针, 待发送.子程序参数) ' 投递信息
02-05直接加载支持库fne,调用接口创建组件
01-06易语言写支持库写类类型,集变量的bug
01-04易语言写支持库,内存溢出的bug
01-04托盘源码核心支持库打造,没有使用任何模块
08-09支持库实时调试易语言配色