Delphi 延迟时间函数

本文整理自网络，侵删。

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

相关阅读 >>

Delphi日期和时间

Delphi 向其他程序发送模拟按键

Delphi 中拖动无边框窗口的5种方法

Delphi webservices base64编码

Delphi使用idhttp模拟提交页面方法总结

postmessage和sendmessage的区别

Delphi写的简单的文件的打开和关闭

Delphi中窗体的方法

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi的判断文件和文件夹

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

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