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 setcurrentdir 设置当前文件夹路径

Delphi查找程序坐标 获取鼠标 模拟鼠标

Delphi读取一个access数据库中的表名

Delphi中frame和form有何区别

Delphi使用tclientdataset时不携带midas.dll的方法

Delphi 保证当前程序显示在最前

Delphi reset 以只读方式打开文件

Delphi 四舍五入保留一位或两位小数

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

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

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