[源码分享] 不占用CPU的程序_延迟纯源码 窗口不卡死

子程序名	返回值类型	公开	备 注
延迟_
参数名	类 型	参考	可空	数组	备 注
等待时间	整数型

变量名	类 型	静态	数组	备 注
lpMsg	MSG
参数结构	tParameter	√

参数结构.WaitTime ＝ 等待时间
参数结构.idThread ＝ GetCurrentThreadId ()
参数结构.Message ＝ RegisterWindowMessage (“我是延迟我怕谁?”)
CloseHandle (CreateThread (0, 0, &延迟_子程序, 参数结构, 0, 0))
PeekMessage (lpMsg, 0, 0, 0, 0)
判断循环首 (lpMsg.message ≠ 参数结构.Message 且 lpMsg.message ≠ 16 且 lpMsg.message ≠ 18)
GetMessage (lpMsg, 0, 0, 0)
TranslateMessage (lpMsg)
DispatchMessage (lpMsg)
如果真 (lpMsg.message ＝ 16 或 lpMsg.message ＝ 18)
PostThreadMessage (参数结构.idThread, lpMsg.message, 0, 0)
跳出循环 ()
PeekMessage (lpMsg, 0, 0, 0, 0)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
延迟_子程序
参数名	类 型	参考	可空	数组	备 注
lpParameter	整数型

变量名	类 型	静态	数组	备 注
参数结构	tParameter

RtlMoveMemory (参数结构, lpParameter, 12)
Sleep (参数结构.WaitTime)
PostThreadMessage (参数结构.idThread, 参数结构.Message, 0, 0)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

延迟_ (5000)
调试输出 (1)

i支持库列表	支持库注释
spec	特殊功能支持库