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 在windows平台下实现进程隐藏

Delphi根据字符分割字串成数组

Delphi10.3模拟读取百度网页，并读取相关头部信息

Delphi rs232c接脚与对连线

Delphi递归删除列表文件以外的所有文件

Delphi fmx使用 timage 显示动画图片

Delphi 如何在toolbar中的toolbutton上显示文字

Delphi 给动态数组添加一个元素

Delphi dbnavigator1 模拟点击

Delphi 简单的字符串加密和解密

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

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