易语言创建线程源码

系统结构:创建扩展线程_,关闭内核对象_,创建线程_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _循环
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建扩展线程_
           |  |
           |  |---[dll]------   关闭内核对象_
           |  |
           |  |---[dll]------   创建线程_

调用的DLL命令:

.DLL命令 创建扩展线程_, 整数型, "shlwapi.dll", "SHCreateThread", , SHCreateThread
    .参数 线程地址, 子程序指针, , pfnThreadProc
    .参数 数据, 整数型, , pData，Any
    .参数 标志, 整数型, , dwFlags
    .参数 返回信息, 整数型, , pfnCallback

.DLL命令 关闭内核对象_, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 创建线程_, 整数型, "kernel32", "CreateThread", , 建立新的线索CreateThread
    .参数 lpThreadAttributes, 字节型, , SECURITY_ATTRIBUTES
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 整数型, , 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型