Delphi不占CPU的延时函数

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi使用xmlhttp组件代码

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

Delphi 10.4中新增功能：新的vcl tedgebrowser组件

Delphi中实现密码框“大写锁定打开”的提示

Delphi 10.3 控件遮挡 webbrowser

Delphi 将被其他窗体遮住的窗体弹到最前面

Delphi远程注入dll方法

Delphi xe firemonkey的几个特色属性

Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别

Delphi 关闭自己,重新运行

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

转载请注明出处：木庄网络博客 » Delphi不占CPU的延时函数