易语言多线程支持模块1.1源码

系统结构:等待线程,启动线程,关闭线程句柄,强制结束线程,创建进入许可证,删除进入许可证,进入许可区,退出许可区,CreateThread,WaitForSingleObject,CloseHandle,TerminateThread,InitializeCriticalSectionToInt,DeleteCriticalSectionByInt,EnterCriticalSectionByInt,LeaveCriticalSectionByInt,HeapAlloc,GetProcessHeap,HeapFree,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 等待线程
           |  |
           |  |------ 启动线程
           |  |
           |  |------ 关闭线程句柄
           |  |
           |  |------ 强制结束线程
           |  |
           |  |------ 创建进入许可证
           |  |
           |  |------ 删除进入许可证
           |  |
           |  |------ 进入许可区
           |  |
           |  |------ 退出许可区
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   InitializeCriticalSectionToInt
           |  |
           |  |---[dll]------   DeleteCriticalSectionByInt
           |  |
           |  |---[dll]------   EnterCriticalSectionByInt
           |  |
           |  |---[dll]------   LeaveCriticalSectionByInt
           |  |
           |  |---[dll]------   HeapAlloc
           |  |
           |  |---[dll]------   GetProcessHeap
           |  |
           |  |---[dll]------   HeapFree

调用的DLL命令:

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

.DLL命令 WaitForSingleObject, 整数型, "kernel32.dll", "WaitForSingleObject"
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

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

.DLL命令 TerminateThread, 整数型, "kernel32.dll", "TerminateThread"
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 InitializeCriticalSectionToInt, , "kernel32.dll", "InitializeCriticalSection"
    .参数 lpCriticalSection, 整数型

.DLL命令 DeleteCriticalSectionByInt, , "kernel32.dll", "DeleteCriticalSection"
    .参数 lpCriticalSection, 整数型

.DLL命令 EnterCriticalSectionByInt, , "kernel32.dll", "EnterCriticalSection"
    .参数 lpCriticalSection, 整数型

.DLL命令 LeaveCriticalSectionByInt, , "kernel32.dll", "LeaveCriticalSection"
    .参数 lpCriticalSection, 整数型

.DLL命令 HeapAlloc, 整数型, "kernel32.dll", "HeapAlloc"
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 dwBytes, 整数型

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

.DLL命令 HeapFree, 整数型, "kernel32.dll", "HeapFree"
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMem, 整数型