会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
CodeGear
博客园
首页
新随笔
新文章
联系
管理
订阅
2017年3月9日
延时程序
摘要: procedure delay(msecs: integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) ...
阅读全文
posted @ 2017-03-09 09:11 宝兰
阅读(159)
评论(0)
推荐(0)
编辑
公告