易語言多線程類模塊源碼

系統結構:啟動線程,創建進入許可證,刪除進入許可證,進入許可區,退出許可區,等待線程,掛起線程,繼續執行,取線程返回值,取線程狀態,強制結束線程,關閉線程句柄,取當前線程句柄,創建線程_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"