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 adoconnection1连接mssql数据库方法

Delphi firemonkey的stylebook皮肤控件的使用

Delphi 获取文件所在路径

Delphi 中相对路径与绝对路径函数说明

Delphi的ttreeview类使用大全

Delphi 抓屏技巧

Delphi 枚举类型和integer整型之间的互换

Delphi 控制iis，检测、增加、删除虚拟目录

Delphi建立文件的快捷方式

Delphi 守护进程 杀死自己的进程再重新启动自己

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

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