频道分类

Delphi 在减少占用资源的情况下,等待MSecs毫秒

作者:admin 来源: 日期:2020/2/8 14:18:14 人气: 标签:

 
//在减少占用资源的情况下,等待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;