Delphi 延迟时间函数

本文整理自网络，侵删。

 function   ritime(m:integer):integer;
var
  ot:integer;
begin
  ot :=  GetTickCount;
  Repeat
    Application.ProcessMessages;
  Until ((GetTickCount - ot)>= longInt(m));
end;
 

相关阅读 >>

Delphi 如何识别应用程序没有响应

Delphi常用获取系统信息的函数单元

Delphi判断exe文件是否正在运行的函数

Delphi 2009 之 tstringbuilder 类[7]: tostring

Delphi 搭配hotkeyedit控件来解决问题

Delphi xe7使用本身的md5单元进行字符串加密

Delphi多线程学习：多线程数据库查询（ado）

Delphi将excel导入access

Delphi sqlite vacuum 压缩数据库体积

Delphi 网页数据抓取

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

转载请注明出处：木庄网络博客 » Delphi 延迟时间函数