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执行cmd命令

Delphi 不管什么datetime日期格式时间格式转换都不会错了

Delphi 递归实现从m 个集合中 任取一个元素 生成组合

Delphi vclskin 5.40在2010安装方法

Delphi ioutils 单元(6): tpath(结构体)路径的提取和处理

Delphi 用sql语句添加删除修改字段

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi与正则表达式

Delphi 安卓原生的toast温柔提示

Delphi xe2 - 万一“获取程序自身大小的函数”改进版

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

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