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 webservices传base64字串

Delphi reset 以只读方式打开文件

Delphi中frame和form有何区别

Delphi 文件的操作：重命名、复制、移动、删除

Delphi cxgrid使用小结

Delphi idhttp数据自动编码

Delphi 二进制转换为文本

Delphi 字符串转换为16进制整数 整数转换为16进制字符串

Delphi inc () 计数用法

Delphi 递归遍历treeview树节点

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

转载请注明出处：木庄网络博客 » Delphi 在减少占用资源的情况下，等待MSecs毫秒