CreateTimerQueue - 使用定时器队列

LLJ

下面的示例创建一个 定时器例程，该例程将在10秒延迟后由线程从 定时器队列中 执行。首先，代码使用CreateEvent函数创建一个事件对象，该事件对象在定时器队列线程完成时发出信号。然后，它分别使用CreateTimerQueue和CreateTimerQueueTimer函数创建一个 定时器队列 和一个 定时器队列定时器。该代码使用WaitForSingleObject函数来确定 定时器例程 何时完成。最后，代码调用DeleteTimerQueue进行清理。

  

窗口程序集名	保 留	保 留	备 注
定时器队列
变量名	类 型	数组	备 注
gDoneEvent	整数型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
hTimer	整数型
hTimerQueue	整数型
arg	整数型

arg ＝ 123
' // 使用 事件对象 跟踪 定时器例程 执行
gDoneEvent ＝ CreateEvent (0, 真, 假, 0)
如果真 (0 ＝ gDoneEvent)
标准输出 (, “CreateEvent 失败!”)
返回 (1)
' // 创建 定时器队列
hTimerQueue ＝ CreateTimerQueue ()
如果真 (0 ＝ hTimerQueue)
标准输出 (, “CreateTimerQueue 失败!”)
返回 (2)
' // 设置定时器以在10秒内调用 定时器例程
如果真 (假 ＝ CreateTimerQueueTimer (hTimer, hTimerQueue, &定时器例程, arg, 10000, 0, 0))
标准输出 (, “CreateTimerQueueTimer 失败!”)
返回 (3)

' // TODO: 在这里做其他有用的工作
标准输出 (, “10秒内调用定时器例程...”, #换行符 )
' // 等待 定时器队列 线程使用事件对象完成
' // 线程将此时发出事件信号
如果真 (WaitForSingleObject (gDoneEvent, #INFINITE ) ≠ #WAIT_OBJECT_0 )
标准输出 (, “WaitForSingleObject 失败!”, #换行符 )
CloseHandle (gDoneEvent)
' // 删除 定时器队列 中的所有定时器。
如果真 (假 ＝ DeleteTimerQueue (hTimerQueue))
标准输出 (, “DeleteTimerQueue 失败!”, #换行符 )
标准输入 ()
返回 (0)

子程序名	返回值类型	公开	备 注
定时器例程
参数名	类 型	参考	可空	数组	备 注
参数指针					使用CreateTimerQueueTimer或RegisterWaitForSingleObject函数的参数传递给函数的线程数据。
定时器或等待已触发	逻辑型				如果此参数为TRUE，则等待超时。如果此参数为FALSE，则表明已发出等待事件。（对于定时器回调，此参数始终为TRUE。）

如果 (参数指针 ＝ 0)
标准输出 (, “定时器例程 参数指针 是 NULL”, #换行符 )
' //参数指针 指向参数；在这种情况下，这是一个整数型
标准输出 (, “调用定时器例程。参数为：”, 到文本 (指针到整数 (参数指针)), #换行符 )
如果 (定时器或等待已触发)
标准输出 (, “等待时间已过。”, #换行符 )
标准输出 (, “等待事件已发出信号。”, #换行符 )
SetEvent (gDoneEvent)

.版本 2<br /> <br /> .程序集 定时器队列<br /> .程序集变量 gDoneEvent, 整数型<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 hTimer, 整数型<br /> .局部变量 hTimerQueue, 整数型<br /> .局部变量 arg, 整数型<br /> <br /> arg ＝ 123<br /> ' // 使用 事件对象 跟踪 定时器例程 执行<br /> gDoneEvent ＝ CreateEvent (0, 真, 假, 0)<br /> .如果真 (0 ＝ gDoneEvent)<br />     标准输出 (, “CreateEvent 失败!”)<br />     返回 (1)<br /> .如果真结束<br /> ' // 创建 定时器队列<br /> hTimerQueue ＝ CreateTimerQueue ()<br /> .如果真 (0 ＝ hTimerQueue)<br />     标准输出 (, “CreateTimerQueue 失败!”)<br />     返回 (2)<br /> .如果真结束<br /> ' // 设置定时器以在10秒内调用 定时器例程<br /> .如果真 (假 ＝ CreateTimerQueueTimer (hTimer, hTimerQueue, &定时器例程, arg, 10000, 0, 0))<br />     标准输出 (, “CreateTimerQueueTimer 失败!”)<br />     返回 (3)<br /> .如果真结束<br /> <br /> ' // TODO: 在这里做其他有用的工作<br /> 标准输出 (, “10秒内调用定时器例程...”, #换行符)<br /> <br /> ' // 等待 定时器队列 线程使用事件对象完成<br /> ' // 线程将此时发出事件信号<br /> <br /> .如果真 (WaitForSingleObject (gDoneEvent, #INFINITE) ≠ #WAIT_OBJECT_0)<br />     标准输出 (, “WaitForSingleObject 失败!”, #换行符)<br /> .如果真结束<br /> CloseHandle (gDoneEvent)<br /> <br /> ' // 删除 定时器队列 中的所有定时器。<br /> .如果真 (假 ＝ DeleteTimerQueue (hTimerQueue))<br />     标准输出 (, “DeleteTimerQueue 失败!”, #换行符)<br /> .如果真结束<br /> 标准输入 ()<br /> 返回 (0)<br /> <br /> .子程序 定时器例程<br /> .参数 参数指针, , , 使用CreateTimerQueueTimer或RegisterWaitForSingleObject函数的参数传递给函数的线程数据。<br /> .参数 定时器或等待已触发, 逻辑型, , 如果此参数为TRUE，则等待超时。如果此参数为FALSE，则表明已发出等待事件。（对于定时器回调，此参数始终为TRUE。）<br /> <br /> .如果 (参数指针 ＝ 0)<br />     标准输出 (, “定时器例程 参数指针 是 NULL”, #换行符)<br /> .否则<br />     ' //参数指针 指向参数；在这种情况下，这是一个整数型<br />     标准输出 (, “调用定时器例程。参数为：”, 到文本 (指针到整数 (参数指针)), #换行符)<br />     .如果 (定时器或等待已触发)<br />         标准输出 (, “等待时间已过。”, #换行符)<br />     .否则<br />         标准输出 (, “等待事件已发出信号。”, #换行符)<br />     .如果结束<br />     SetEvent (gDoneEvent)<br /> .如果结束

运行结果

1. 10秒内调用定时器例程...
   
2. 调用定时器例程。参数为：123
   
3. 等待时间已过。

复制代码

定时器队列.e (5.13 KB, 下载次数: 120)

2020-9-1 06:02 上传

点击文件名下载附件

参考资料
https://docs.microsoft.com/en-us/windows/win32/sync/using-timer-queues

gqohui455

楼主的源码都非常有价值，已经多次借鉴学习，非常感谢！！

温暖的舌骨

Timelord

楼主的源码都非常有价值，已经多次借鉴学习，非常感谢！！

q1738398717

6666666666

glr9107

感谢分享

胖虎rrrr

我爱逛精易

我本土人

好东西，谢谢分享！！！

xcw

感谢，正常需要，学习一下