过检测内存结束线程DLL

.子程序 E语言_结束线程, 逻辑型, , 结束指定线程
.参数 线程ID, 整数型

返回 (TerminateThread (E语言_操作打开线程 (线程ID), 0))

.子程序 E语言_操作打开线程, 整数型, , 获取线程操作句柄
.参数 线程ID, 整数型, , 指定线程ID
.参数 线程对象, 整数型, 可空, 默认为 THREAD_ALL_ACCESS

.如果真 (是否为空 (线程对象))
线程对象 ＝ #THREAD_ALL_ACCESS
.如果真结束
返回 (打开线程_ (线程对象, 0, 线程ID)) ' 取得操作句柄