会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
zhuxiaobing
博客园
首页
新随笔
联系
订阅
管理
2017年3月7日
延时程序
摘要: 1 procedure delay(msecs: integer); 2 var 3 Tick: DWord; 4 Event: THandle; 5 begin 6 Event := CreateEvent(nil, False, False, nil); 7 try 8 Tick := GetTickCount + DWord(msecs); ...
阅读全文
posted @ 2017-03-07 15:13 zhuxiaobing
阅读(266)
评论(0)
推荐(1)
编辑