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

Delphi不占CPU的延时函数

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

function Delay(MaxWaitTime: Cardinal): Boolean;
   var   I:Integer;
   var   WaitedTime:Cardinal;
begin
   WaitedTime:=0;
   while      (WaitedTime
   begin
      SleepEx(100,False);
      Inc(WaitedTime,100);
      Application.ProcessMessages ;
   end
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料