易语言_简单的线程_暂停_继续

DLL

.版本 2

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

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

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集1
.程序集变量 暂停, 整数型

.子程序 _启动_被单击

启动线程 (&子程序1, , 暂停)

.子程序 子程序1
.局部变量 i, 整数型

.计次循环首 (1200, i)
    编辑框1.内容 ＝ 到文本 (i)
    延迟 (200)
.计次循环尾 ()

.子程序 _暂停_被单击

API_SuspendThread (暂停)

.子程序 _继续_被单击

API_ResumeThread (暂停)

.子程序 _停止_被单击

强制结束线程 (暂停)