|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 a145356 于 2016-12-26 01:10 编辑
- .版本 2
- .支持库 EThread
- .程序集 窗口程序集_启动窗口
- .子程序 __启动窗口_创建完毕
- 启动线程 (&监视热键线程, , )
- .子程序 响应子程序
- 信息框 (“111”, 0, , )
- .子程序 监视热键线程
- 热键监视 (#回车键, &响应子程序)
- .子程序 热键监视, , 公开
- .参数 欲监视热键的键代码, 整数型, , 欲监视热键的键代码
- .参数 反应子程序, 子程序指针, , 反应子程序
- .局部变量 A
- .循环判断首 ()
- A = GetAsyncKeyState (欲监视热键的键代码)
- .如果真 (A = -32767)
- 启动线程 (反应子程序, , )
- .如果真结束
- 超级延时 (1)
- .循环判断尾 (欲监视热键的键代码 ≠ -9999999)
- .子程序 超级延时, , 公开, 高精度延时,cpu占用低,窗口不卡死,一次最大可延时几年 (无返回值)
- .参数 延时间隔, 整数型, , 1000微秒 = 1毫秒 ; 1000毫秒 = 1秒
- .参数 延时单位, 整数型, 可空, 可空:毫秒 0 毫秒 1 微秒 2 秒 3 分 4 小时 5 天
- .局部变量 hTimer, 整数型
- .局部变量 int64, LARGE_INTEGER
- .局部变量 计次, 整数型
- .判断开始 (延时单位 = 1)
- int64.QuadPart = -10 × 延时间隔
- hTimer = CreateWaitableTimerA (0, 假, 0)
- SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
- .判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
- 处理事件 ()
- .判断循环尾 ()
- CloseHandle (hTimer)
- 返回 ()
- .判断 (延时单位 = 0)
- 延时单位 = 1
- .判断 (延时单位 = 2)
- 延时单位 = 1000
- .判断 (延时单位 = 3)
- 延时单位 = 1000 × 60
- .判断 (延时单位 = 4)
- 延时单位 = 1000 × 60 × 60
- .判断 (延时单位 = 5)
- 延时单位 = 1000 × 60 × 60 × 24
- .默认
- .判断结束
- .计次循环首 (延时单位, 计次)
- int64.QuadPart = -10 × 延时间隔 × 1000
- hTimer = CreateWaitableTimerA (0, 假, 0)
- SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
- .判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
- 处理事件 ()
- .判断循环尾 ()
- CloseHandle (hTimer)
- .计次循环尾 ()
复制代码
监视热键
超级延时
这两个功能怎么用TC语言写出来?
就是纯粹用TC和系统的API。
监视热键&超级延时.e
(5.82 KB, 下载次数: 375)
|
|