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防止因系统崩溃而丢失任务栏的图标(重建托盘图标)

Delphi 如何让 tgpimage 直接从流中加载图片?

Delphi静态和动态调用dll的实例

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

Delphi实现dbgrid全选和反选功能

Delphi窗体置顶

Delphi 如何确定windows安装的语言

Delphi package

Delphi tparallel.for 老外得示例代码

Delphi中使用goo.gl（google的缩短url服务）api

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

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