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 vcl gif 动画

Delphi checklistbox 用法

Delphi完美的线程注入和卸载

Delphi debug与release的区别

Delphi 校验文件大小

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

Delphi 读写文本

Delphi 自我复制源码

Delphi xe5实现android 安卓 左侧或者右侧菜单功能

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

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