RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

Delphi不占CPU的延时函数

作者:admin 来源: 日期:2017/3/28 23:13:54 人气: 标签:

function HaveSigned(MaxWaitTime: Cardinal): Boolean;
var   I:Integer;
var   WaitedTime:Cardinal;
begin
          WaitedTime:=0;
          while      (WaitedTime<MaxWaitTime)   do
          begin
                  SleepEx(100,False);
                  Inc(WaitedTime,100);
                  Application.ProcessMessages ;
          end
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:delphi IDHttp Post