闭时等待程序走完在自动销毁的命令

raotao625

各位大哥,易语言有没有类似,再关闭软件时等待所有程序走完在关闭的命令?
目前我写的获取网络图片,总是在关闭时报错组件未载入,因为时实时获取会有延迟,有没有在关闭时等待程序走完在自动销毁的命令呢?

易造轮

不太建议用。

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
g_全局取消令牌	整数型
g_线程句柄组	整数型	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
创建任务	逻辑型		创建并启动后台定时任务。成功返回真，失败返回假。

变量名	类 型	静态	数组	备 注
临时句柄	整数型

g_全局取消令牌 ＝ CreateEventA (0, 真, 假, 0)  ' 手动重置
如果真 (g_全局取消令牌 ＝ 0)
返回 (假)
' 增加任务线程 1
临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)
加入成员 (g_线程句柄组, 临时句柄)
' 增加任务线程 2
临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)  ' 根据需求添加不同任务
加入成员 (g_线程句柄组, 临时句柄)
' ... 添加更多
返回 (真)

子程序名	返回值类型	公开	备 注
计划任务线程范例

变量名	类 型	静态	数组	备 注
ret	整数型
重试次数	整数型
请求成功	逻辑型

' === 首次等待 ===
ret ＝ WaitForSingleObject (g_全局取消令牌, 30000)  ' 30秒 = 30000毫秒
如果真 (ret ＝ 0)  ' 返回0表示收到退出信号(SetEvent触发)
输出调试文本 (取程序名称 (1) ＋ “|线程首次等待期间被退出”)
返回 ()  ' 直接退出，不执行任何任务
' === 首次任务 ===
' （首次等待后立即执行的一次任务，写在这里，不需要可以删）
' === 后续循环等待 ===
判断循环首 (WaitForSingleObject (g_全局取消令牌, 30000) ＝ #_WAIT_TIMEOUT )  ' 258表示超时
' ==============================
' 执行的任务写在这里
' ↓ 下面是 全局中断、延时 范例↓
判断循环首 (重试次数 ＜ 3)
' ... 执行网络请求 ...
. ' 如果真 (请求成功)
' 跳出循环 ()
' 请求失败，等待 5 秒后重试
如果真 (WaitForSingleObject (g_全局取消令牌, 5000) ＝ 0)  ' 0 代表收到了退出信号！
跳出循环 ()  ' 重试期间收到退出信号，强制中止任务; 直接退出当前任务线程，不再重试！
' 如果返回 258，说明等了5秒，继续循环重试：等效于延时
判断循环尾 ()
' ==============================
判断循环尾 ()
输出调试文本 (“XX|计划任务线程|正常退出”)
返回 (0)

子程序名	返回值类型	公开	备 注
销毁所有任务
参数名	类 型	参考	可空	数组	备 注
参_是否在UI线程执行	逻辑型

变量名	类 型	静态	数组	备 注
i	整数型
Code	整数型
hThread	整数型

' 1. 一键通知所有线程退出
SetEvent (g_全局取消令牌)
' 2. 判断是否在UI线程
如果真 (是否为空 (参_是否在UI线程执行) ＝ 真 且 IsGUIThread (假) ＝ 真)
参_是否在UI线程执行 ＝ 真
' 3. 遍历所有线程句柄，依次等待退出
计次循环首 (取数组成员数 (g_线程句柄组), i)
hThread ＝ g_线程句柄组 [i]
如果真 (hThread ≠ 0)
如果 (参_是否在UI线程执行 ＝ 真)
' UI线程：边等边处理事件
Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS )
判断循环首 (Code ＝ 1)
处理事件 ()
Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS )
判断循环尾 ()
' 非UI线程：死等
WaitForSingleObject (hThread, #_INFINITE )
' 关闭句柄并清空
CloseHandle (hThread)
g_线程句柄组 [i] ＝ 0

计次循环尾 ()
' 4. 重置数组（清空成员）
重定义数组 (g_线程句柄组, 假, 0)
' 5. 关闭全局 Event (如果你确定软件要彻底退出了，关掉它；如果只是暂停任务，留着也行)
如果真 (g_全局取消令牌 ≠ 0)
CloseHandle (g_全局取消令牌)
g_全局取消令牌 ＝ 0

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
g_全局取消令牌	整数型
g_线程句柄组	整数型	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
创建任务	逻辑型		创建并启动后台定时任务。成功返回真，失败返回假。

变量名	类 型	静态	数组	备 注
临时句柄	整数型

g_全局取消令牌 ＝ CreateEventA (0, 真, 假, 0)  ' 手动重置
如果真 (g_全局取消令牌 ＝ 0)
返回 (假)
' 增加任务线程 1
临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)
加入成员 (g_线程句柄组, 临时句柄)
' 增加任务线程 2
临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)  ' 根据需求添加不同任务
加入成员 (g_线程句柄组, 临时句柄)
' ... 添加更多
返回 (真)

子程序名	返回值类型	公开	备 注
计划任务线程范例

变量名	类 型	静态	数组	备 注
ret	整数型
重试次数	整数型
请求成功	逻辑型

' === 首次等待 ===
ret ＝ WaitForSingleObject (g_全局取消令牌, 30000)  ' 30秒 = 30000毫秒
如果真 (ret ＝ 0)  ' 返回0表示收到退出信号(SetEvent触发)
输出调试文本 (取程序名称 (1) ＋ “|线程首次等待期间被退出”)
返回 ()  ' 直接退出，不执行任何任务
' === 首次任务 ===
' （首次等待后立即执行的一次任务，写在这里，不需要可以删）
' === 后续循环等待 ===
判断循环首 (WaitForSingleObject (g_全局取消令牌, 30000) ＝ #_WAIT_TIMEOUT )  ' 258表示超时
' ==============================
' 执行的任务写在这里
' ↓ 下面是 全局中断、延时 范例↓
判断循环首 (重试次数 ＜ 3)
' ... 执行网络请求 ...
. ' 如果真 (请求成功)
' 跳出循环 ()
' 请求失败，等待 5 秒后重试
如果真 (WaitForSingleObject (g_全局取消令牌, 5000) ＝ 0)  ' 0 代表收到了退出信号！
跳出循环 ()  ' 重试期间收到退出信号，强制中止任务; 直接退出当前任务线程，不再重试！
' 如果返回 258，说明等了5秒，继续循环重试：等效于延时
判断循环尾 ()
' ==============================
判断循环尾 ()
输出调试文本 (“XX|计划任务线程|正常退出”)
返回 (0)

子程序名	返回值类型	公开	备 注
销毁所有任务
参数名	类 型	参考	可空	数组	备 注
参_是否在UI线程执行	逻辑型

变量名	类 型	静态	数组	备 注
i	整数型
Code	整数型
hThread	整数型

' 1. 一键通知所有线程退出
SetEvent (g_全局取消令牌)
' 2. 判断是否在UI线程
如果真 (是否为空 (参_是否在UI线程执行) ＝ 真 且 IsGUIThread (假) ＝ 真)
参_是否在UI线程执行 ＝ 真
' 3. 遍历所有线程句柄，依次等待退出
计次循环首 (取数组成员数 (g_线程句柄组), i)
hThread ＝ g_线程句柄组 [i]
如果真 (hThread ≠ 0)
如果 (参_是否在UI线程执行 ＝ 真)
' UI线程：边等边处理事件
Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS )
判断循环首 (Code ＝ 1)
处理事件 ()
Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS )
判断循环尾 ()
' 非UI线程：死等
WaitForSingleObject (hThread, #_INFINITE )
' 关闭句柄并清空
CloseHandle (hThread)
g_线程句柄组 [i] ＝ 0

计次循环尾 ()
' 4. 重置数组（清空成员）
重定义数组 (g_线程句柄组, 假, 0)
' 5. 关闭全局 Event (如果你确定软件要彻底退出了，关掉它；如果只是暂停任务，留着也行)
如果真 (g_全局取消令牌 ≠ 0)
CloseHandle (g_全局取消令牌)
g_全局取消令牌 ＝ 0

常量名称	常量值	公 开	备 注
_INFINITE	-1
_WAIT_OBJECT_0	0
_WAIT_TIMEOUT	258
_QS_ALLEVENTS	1215

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 g_全局取消令牌, 整数型<br /> .程序集变量 g_线程句柄组, 整数型, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 创建任务, 逻辑型, , 创建并启动后台定时任务。成功返回真，失败返回假。<br /> .局部变量 临时句柄, 整数型<br /> <br /> g_全局取消令牌 ＝ CreateEventA (0, 真, 假, 0)  ' 手动重置<br /> .如果真 (g_全局取消令牌 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> ' 增加任务线程 1<br /> 临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)<br /> 加入成员 (g_线程句柄组, 临时句柄)<br /> ' 增加任务线程 2<br /> 临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)  ' 根据需求添加不同任务<br /> 加入成员 (g_线程句柄组, 临时句柄)<br /> ' ... 添加更多<br /> <br /> 返回 (真)<br /> <br /> .子程序 计划任务线程范例<br /> .局部变量 ret, 整数型<br /> .局部变量 重试次数, 整数型<br /> .局部变量 请求成功, 逻辑型<br /> <br /> ' === 首次等待 ===<br /> ret ＝ WaitForSingleObject (g_全局取消令牌, 30000)  ' 30秒 = 30000毫秒<br /> .如果真 (ret ＝ 0)  ' 返回0表示收到退出信号(SetEvent触发)<br />     输出调试文本 (取程序名称 (1) ＋ “|线程首次等待期间被退出”)<br />     返回 ()  ' 直接退出，不执行任何任务<br /> .如果真结束<br /> ' === 首次任务 ===<br /> ' （首次等待后立即执行的一次任务，写在这里，不需要可以删）<br /> ' === 后续循环等待 ===<br /> .判断循环首 (WaitForSingleObject (g_全局取消令牌, 30000) ＝ #_WAIT_TIMEOUT)  ' 258表示超时<br />     ' ==============================<br /> <br />     ' 执行的任务写在这里<br />     ' ↓ 下面是 全局中断、延时 范例↓<br /> <br />     .判断循环首 (重试次数 ＜ 3)<br />         ' ... 执行网络请求 ...<br />         .' 如果真 (请求成功)<br />             ' 跳出循环 ()<br />         .如果真结束<br />         ' 请求失败，等待 5 秒后重试<br />         .如果真 (WaitForSingleObject (g_全局取消令牌, 5000) ＝ 0)  ' 0 代表收到了退出信号！<br />             跳出循环 ()  ' 重试期间收到退出信号，强制中止任务; 直接退出当前任务线程，不再重试！<br />         .如果真结束<br />         ' 如果返回 258，说明等了5秒，继续循环重试：等效于延时<br />     .判断循环尾 ()<br /> <br />     ' ==============================<br /> .判断循环尾 ()<br /> 输出调试文本 (“XX|计划任务线程|正常退出”)<br /> 返回 (0)<br /> <br /> .子程序 销毁所有任务<br /> .参数 参_是否在UI线程执行, 逻辑型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 Code, 整数型<br /> .局部变量 hThread, 整数型<br /> <br /> ' 1. 一键通知所有线程退出<br /> SetEvent (g_全局取消令牌)<br /> ' 2. 判断是否在UI线程<br /> .如果真 (是否为空 (参_是否在UI线程执行) ＝ 真 且 IsGUIThread (假) ＝ 真)<br />     参_是否在UI线程执行 ＝ 真<br /> .如果真结束<br /> ' 3. 遍历所有线程句柄，依次等待退出<br /> .计次循环首 (取数组成员数 (g_线程句柄组), i)<br />     hThread ＝ g_线程句柄组 <i><br />     .如果真 (hThread ≠ 0)<br />         .如果 (参_是否在UI线程执行 ＝ 真)<br />             ' UI线程：边等边处理事件<br />             Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS)<br />             .判断循环首 (Code ＝ 1)<br />                 处理事件 ()<br />                 Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS)<br />             .判断循环尾 ()<br />         .否则<br />             ' 非UI线程：死等<br />             WaitForSingleObject (hThread, #_INFINITE)<br />         .如果结束<br />         ' 关闭句柄并清空<br />         CloseHandle (hThread)<br />         g_线程句柄组 <i> ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 4. 重置数组（清空成员）<br /> 重定义数组 (g_线程句柄组, 假, 0)<br /> ' 5. 关闭全局 Event (如果你确定软件要彻底退出了，关掉它；如果只是暂停任务，留着也行)<br /> .如果真 (g_全局取消令牌 ≠ 0)<br />     CloseHandle (g_全局取消令牌)<br />     g_全局取消令牌 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 g_全局取消令牌, 整数型<br /> .程序集变量 g_线程句柄组, 整数型, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 创建任务, 逻辑型, , 创建并启动后台定时任务。成功返回真，失败返回假。<br /> .局部变量 临时句柄, 整数型<br /> <br /> g_全局取消令牌 ＝ CreateEventA (0, 真, 假, 0)  ' 手动重置<br /> .如果真 (g_全局取消令牌 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> ' 增加任务线程 1<br /> 临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)<br /> 加入成员 (g_线程句柄组, 临时句柄)<br /> ' 增加任务线程 2<br /> 临时句柄 ＝ CreateThread (0, 0, 到整数 (&计划任务线程范例), 0, 0, 0)  ' 根据需求添加不同任务<br /> 加入成员 (g_线程句柄组, 临时句柄)<br /> ' ... 添加更多<br /> <br /> 返回 (真)<br /> <br /> .子程序 计划任务线程范例<br /> .局部变量 ret, 整数型<br /> .局部变量 重试次数, 整数型<br /> .局部变量 请求成功, 逻辑型<br /> <br /> ' === 首次等待 ===<br /> ret ＝ WaitForSingleObject (g_全局取消令牌, 30000)  ' 30秒 = 30000毫秒<br /> .如果真 (ret ＝ 0)  ' 返回0表示收到退出信号(SetEvent触发)<br />     输出调试文本 (取程序名称 (1) ＋ “|线程首次等待期间被退出”)<br />     返回 ()  ' 直接退出，不执行任何任务<br /> .如果真结束<br /> ' === 首次任务 ===<br /> ' （首次等待后立即执行的一次任务，写在这里，不需要可以删）<br /> ' === 后续循环等待 ===<br /> .判断循环首 (WaitForSingleObject (g_全局取消令牌, 30000) ＝ #_WAIT_TIMEOUT)  ' 258表示超时<br />     ' ==============================<br /> <br />     ' 执行的任务写在这里<br />     ' ↓ 下面是 全局中断、延时 范例↓<br /> <br />     .判断循环首 (重试次数 ＜ 3)<br />         ' ... 执行网络请求 ...<br />         .' 如果真 (请求成功)<br />             ' 跳出循环 ()<br />         .如果真结束<br />         ' 请求失败，等待 5 秒后重试<br />         .如果真 (WaitForSingleObject (g_全局取消令牌, 5000) ＝ 0)  ' 0 代表收到了退出信号！<br />             跳出循环 ()  ' 重试期间收到退出信号，强制中止任务; 直接退出当前任务线程，不再重试！<br />         .如果真结束<br />         ' 如果返回 258，说明等了5秒，继续循环重试：等效于延时<br />     .判断循环尾 ()<br /> <br />     ' ==============================<br /> .判断循环尾 ()<br /> 输出调试文本 (“XX|计划任务线程|正常退出”)<br /> 返回 (0)<br /> <br /> .子程序 销毁所有任务<br /> .参数 参_是否在UI线程执行, 逻辑型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 Code, 整数型<br /> .局部变量 hThread, 整数型<br /> <br /> ' 1. 一键通知所有线程退出<br /> SetEvent (g_全局取消令牌)<br /> ' 2. 判断是否在UI线程<br /> .如果真 (是否为空 (参_是否在UI线程执行) ＝ 真 且 IsGUIThread (假) ＝ 真)<br />     参_是否在UI线程执行 ＝ 真<br /> .如果真结束<br /> ' 3. 遍历所有线程句柄，依次等待退出<br /> .计次循环首 (取数组成员数 (g_线程句柄组), i)<br />     hThread ＝ g_线程句柄组 <i><br />     .如果真 (hThread ≠ 0)<br />         .如果 (参_是否在UI线程执行 ＝ 真)<br />             ' UI线程：边等边处理事件<br />             Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS)<br />             .判断循环首 (Code ＝ 1)<br />                 处理事件 ()<br />                 Code ＝ MsgWaitForMultipleObjects (1, hThread, 假, #_INFINITE, #_QS_ALLEVENTS)<br />             .判断循环尾 ()<br />         .否则<br />             ' 非UI线程：死等<br />             WaitForSingleObject (hThread, #_INFINITE)<br />         .如果结束<br />         ' 关闭句柄并清空<br />         CloseHandle (hThread)<br />         g_线程句柄组 <i> ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 4. 重置数组（清空成员）<br /> 重定义数组 (g_线程句柄组, 假, 0)<br /> ' 5. 关闭全局 Event (如果你确定软件要彻底退出了，关掉它；如果只是暂停任务，留着也行)<br /> .如果真 (g_全局取消令牌 ≠ 0)<br />     CloseHandle (g_全局取消令牌)<br />     g_全局取消令牌 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .版本 2<br /> <br /> .常量 _INFINITE, "-1"<br /> .常量 _WAIT_OBJECT_0, "0"<br /> .常量 _WAIT_TIMEOUT, "258"<br /> .常量 _QS_ALLEVENTS, "1215"

gylike

销毁所有 线程后 再销毁

chensun

为博主点赞

法猪猪

没看懂干什么用的

liuyue5086

raotao625 发表于 2026-4-23 16:20
窗口销毁前,对组件载入无效

那就自定义一个类，在类_销毁里面写，因为程序销毁时系统会自动调用销毁方法，把这个类弄个全局变量挂着就行，会自动触发这个方法

raotao625

liuyue5086 发表于 2026-4-23 14:10
窗口程序不是有事件吗，_启动窗口，里面有个窗口销毁前，你自己写个延迟判断不就行了，确认无误再销毁 ...

窗口销毁前,对组件载入无效

飞扬的小黑

确实不错！赞！！！！！！！！！！

liuyue5086

窗口程序不是有事件吗，_启动窗口，里面有个窗口销毁前，你自己写个延迟判断不就行了，确认无误再销毁