Delphi 延迟时间函数

本文整理自网络，侵删。

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

相关阅读 >>

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi获取操作系统安装磁盘盘符

Delphixe jpg图片压缩

Delphi实现webservice带身份认证的数据传输

Delphi datamodule1 fdconnection1数据库连接

Delphi 获取unixtime

Delphi tzipfile 用法

Delphi windows 编程[8] - wm_paint 消息

Delphi 如何得到 winrar 处理解压缩文件的返回值 ？

Delphi d10.x 在安卓app开发中使用jar包的注意事项

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

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