易語言多線程支持模塊源碼

系統結構:等待線程,啟動線程,關閉線程句柄,強制結束線程,創建進入許可證,刪除進入許可證,進入許可區,退出許可區,CreateThread,WaitForSingleObject,CloseHandle,TerminateThread,InitializeCriticalSectionToInt,DeleteCriticalSectionByInt,EnterCriticalSectionByInt,LeaveCriticalSectionByInt,VirtualAlloc,VirtualFree,

======程序集1
           |  |
           |  |------ _啟動子程序
           |  |
           |  |------ _臨時子程序
           |  |
           |  |------ 等待線程
           |  |
           |  |------ 啟動線程
           |  |
           |  |------ 關閉線程句柄
           |  |
           |  |------ 強制結束線程
           |  |
           |  |------ 創建進入許可證
           |  |
           |  |------ 刪除進入許可證
           |  |
           |  |------ 進入許可區
           |  |
           |  |------ 退出許可區
           |  |
           |  |
======調用的Dll
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   InitializeCriticalSectionToInt
           |  |
           |  |---[dll]------   DeleteCriticalSectionByInt
           |  |
           |  |---[dll]------   EnterCriticalSectionByInt
           |  |
           |  |---[dll]------   LeaveCriticalSectionByInt
           |  |
           |  |---[dll]------   VirtualAlloc
           |  |
           |  |---[dll]------   VirtualFree

調用的DLL命令:

.DLL命令 CreateThread, 整數型, "kernel32.dll", "CreateThread"
    .參數 lpThreadAttributes, 整數型, , 默認SECURITY_ATTRIBUTES結構
    .參數 dwStackSize, 整數型, , 設置初始棧的大小，以字節為單位，如果為0，那么默認將使用與調用該函數的線程相同的?？臻g大小。任何情況下，Windows根據需要動態延長堆棧的大小
    .參數 lpStartAddress, 子程序指針, , 指向線程函數的指針，形式：@函數名，函數名稱沒有限制，但是必須以下列形式聲明
    .參數 lpParameter, 整數型, , 向線程函數傳遞的參數，是一個指向結構的指針，不需傳遞參數時，為NULL
    .參數 dwCreationFlags, 整數型, , 線程標志,0立即激活
    .參數 lpThreadId, 整數型, 傳址, 保存新線程的id

.DLL命令 WaitForSingleObject, 整數型, "kernel32", "WaitForSingleObject", , 監測一個對象
    .參數 hHandle, 整數型
    .參數 dwMilliseconds, 整數型

.DLL命令 CloseHandle, 整數型, "kernel32", "CloseHandle", , 關閉一個內核對象。其中包括文件、文件映射、進程、線程、security和同步對象等。涉及文件處理時，這個函數通常與vb的close命令相似。應盡可能的使用close，因為它支持vb的差錯控制。注意這個函數使用的文件句柄與vb的文件編號是完全不同的  非零表示成功，零表示失敗。會設置GetLastError
    .參數 hObject, 整數型, , 欲關閉的一個對象的句柄;

.DLL命令 TerminateThread, 整數型, "kernel32", "TerminateThread", , 中止線索
    .參數 hThread, 整數型
    .參數 dwExitCode, 整數型

.DLL命令 InitializeCriticalSectionToInt, , "kernel32", "InitializeCriticalSection", , 初始化臨界段對象
    .參數 lpCriticalSection, 整數型

.DLL命令 DeleteCriticalSectionByInt, , "kernel32", "DeleteCriticalSection", , 刪除臨界部分
    .參數 lpCriticalSection, 整數型

.DLL命令 EnterCriticalSectionByInt, , "kernel32", "EnterCriticalSection", , 加入臨界部分
    .參數 lpCriticalSection, 整數型

.DLL命令 LeaveCriticalSectionByInt, , "kernel32", "LeaveCriticalSection", , 保留前一個輸入臨界段
    .參數 lpCriticalSection, 整數型

.DLL命令 VirtualAlloc, 整數型, "kernel32", "VirtualAlloc", , 保留虛擬頁
    .參數 lpAddress, 整數型
    .參數 dwSize, 整數型
    .參數 flAllocationType, 整數型
    .參數 flProtect, 整數型

.DLL命令 VirtualFree, 整數型, "kernel32", "VirtualFree", , 釋放虛擬頁
    .參數 lpAddress, 整數型
    .參數 dwSize, 整數型
    .參數 dwFreeType, 整數型