易语言定制线程池源码

系统结构:创建,销毁,投递任务,SimpleCallback,WaitCallback,CreateThreadpool,CloseThreadpool,SetThreadpoolThreadMaximum,SetThreadpoolThreadMinimum,TrySubmitThreadpoolCallback,CreateEvent,CreateThreadpoolWait,SetThreadpoolWait,SetEvent,WaitForThreadpoolWaitCallbacks,CloseThreadpoolWait,CloseHandle,

======线程池
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 销毁
           |  |
           |  |------ 投递任务
           |  |
           |  |
======窗口程序集_启动窗口
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ SimpleCallback
           |  |
           |  |------ WaitCallback
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateThreadpool
           |  |
           |  |---[dll]------   CloseThreadpool
           |  |
           |  |---[dll]------   SetThreadpoolThreadMaximum
           |  |
           |  |---[dll]------   SetThreadpoolThreadMinimum
           |  |
           |  |---[dll]------   TrySubmitThreadpoolCallback
           |  |
           |  |---[dll]------   CreateEvent
           |  |
           |  |---[dll]------   CreateThreadpoolWait
           |  |
           |  |---[dll]------   SetThreadpoolWait
           |  |
           |  |---[dll]------   SetEvent
           |  |
           |  |---[dll]------   WaitForThreadpoolWaitCallbacks
           |  |
           |  |---[dll]------   CloseThreadpoolWait
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 CreateThreadpool, 整数型, "Kernel32.dll", , , 线程池_创建
    .参数 reserved

.DLL命令 CloseThreadpool, , "Kernel32.dll", "CloseThreadpool", , 线程池_关闭
    .参数 ptpp

.DLL命令 SetThreadpoolThreadMaximum, 逻辑型, "Kernel32.dll", , , 线程池_置最大线程
    .参数 PTPP
    .参数 cthrdMost

.DLL命令 SetThreadpoolThreadMinimum, 逻辑型, "Kernel32.dll", , , 线程池_置最小线程
    .参数 PTPP
    .参数 cthrdMic

.DLL命令 TrySubmitThreadpoolCallback, 逻辑型, "Kernel32.dll"
    .参数 pfns, 子程序指针
    .参数 pv
    .参数 pcbe

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

.DLL命令 CreateThreadpoolWait, 整数型, "Kernel32.dll", , , 线程池_创建等待
    .参数 pfnwa, 子程序指针
    .参数 pv
    .参数 PCBE

.DLL命令 SetThreadpoolWait, , "Kernel32.dll", , , 线程池_设置等待
    .参数 pwa
    .参数 HANDLE
    .参数 pftTimeout

.DLL命令 SetEvent, 整数型, "kernel32", "SetEvent"
    .参数 hEvent, 整数型

.DLL命令 WaitForThreadpoolWaitCallbacks, , "Kernel32.dll", , , 线程池_等待线程
    .参数 pti
    .参数 fCancelPendingCallbacks, 逻辑型

.DLL命令 CloseThreadpoolWait, , "Kernel32.dll", , , 线程池_关闭等待
    .参数 pwa

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 hObject, 整数型