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通过setupapi.dll列举和停用硬件设备

Delphi tidhttp+tidssliohandlersocket+ssl

Delphi randstring 随机字符串

Delphi 获取其它软件的tlistbox句柄,怎么取得listbox中的数据

Delphi 提取字符中的数字

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

tstringlist 常用操作

Delphi 使richedit中的链接可以点击

tsqlconnection连接mysql(utf8)的问题

Delphi中判断操作系统是否是windows7

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...