Delphi 在减少占用资源的情况下,等待MSecs毫秒


本文整理自网络,侵删。

 
//在减少占用资源的情况下,等待MSecs毫秒
procedure WaitSomeTime(MSecs:LongInt);
var FirstTickCount,Now:LongInt;
begin
  FirstTickCount := GetTickCount();
  repeat
  Application.ProcessMessages;
  Now := GetTickCount();
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

相关阅读 >>

Delphi源码基础源码-按下回车取得焦点

Delphi2010中字符串汇编需要注意的一点,以及支持2010的aes加密库

Delphi 让scrollbox响应鼠标的滚动消息

Delphi 字符串查找替换函数

Delphi 双击richedit高亮所有关键字

Delphi整理二(object pascal语言)

Delphi twebbrowser 设置焦点

使用indy解决base64回车换行问题

Delphi中判断一个字符的位置在字符串开头或者末尾

Delphi inttohex

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...