易语言多线程类模块源码

系统结构:启动线程,创建进入许可证,删除进入许可证,进入许可区,退出许可区,等待线程,挂起线程,继续执行,取线程返回值,取线程状态,强制结束线程,关闭线程句柄,取当前线程句柄,创建线程_API,CloseHandle,InitializeCriticalSection,DeleteCriticalSection,EnterCriticalSection,LeaveCriticalSection,MsgWaitForMultipleObjects,SuspendThread,ResumeThread,GetExitCodeThread,TerminateThread,GetCurrentThreadId,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======多线程类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 启动线程
           |  |
           |  |------ 创建进入许可证
           |  |
           |  |------ 删除进入许可证
           |  |
           |  |------ 进入许可区
           |  |
           |  |------ 退出许可区
           |  |
           |  |------ 等待线程
           |  |
           |  |------ 挂起线程
           |  |
           |  |------ 继续执行
           |  |
           |  |------ 取线程返回值
           |  |
           |  |------ 取线程状态
           |  |
           |  |------ 强制结束线程
           |  |
           |  |------ 关闭线程句柄
           |  |
           |  |------ 取当前线程句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建线程_API
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   EnterCriticalSection
           |  |
           |  |---[dll]------   LeaveCriticalSection
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   SuspendThread
           |  |
           |  |---[dll]------   ResumeThread
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   GetCurrentThreadId

调用的DLL命令:

.DLL命令 创建线程_API, 整数型, "kernel32.dll", "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CloseHandle, 整数型, "kernel32.dll", "CloseHandle"
    .参数 对象句柄, 整数型

.DLL命令 InitializeCriticalSection, , "kernel32.dll", , , 创建许可证
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 DeleteCriticalSection, , "kernel32.dll", , , 删除许可证
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 EnterCriticalSection, , "kernel32.dll", , , 进入许可区
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 LeaveCriticalSection, , "kernel32.dll", , , 退出许可区
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects", 公开
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 SuspendThread, 整数型, "kernel32.dll", "SuspendThread", , 挂起线索
    .参数 hThread, 整数型

.DLL命令 ResumeThread, 整数型, "kernel32.dll", "ResumeThread", , 开始暂停的线索
    .参数 hThread, 整数型

.DLL命令 GetExitCodeThread, 整数型, , "GetExitCodeThread"
    .参数 hThread
    .参数 lpExitCode, , 传址

.DLL命令 TerminateThread, 整数型, "kernel32.dll", "TerminateThread", , 中止线索
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 GetCurrentThreadId, 整数型, "kernel32.dll", "GetCurrentThreadId"