多春鱼小屋

登录
记住密码
  1. 首页
  2. 微妙级别的延迟函数
微妙级别的延迟函数
发布 | 2022-7-10 | 评论数:0 | 阅读数:2793 | 标签:Delphi
procedure DelayUSec(USec : Integer);
var
  Counter,Counter2,Freq:Int64;
  Tim :Double;
begin
  QueryPerformanceFrequency(Freq);
  QueryPerformanceCounter(Counter);
  repeat
    QueryPerformanceCounter(Counter2);
    Tim :=  (Counter2 - Counter) / Freq;
  until not (Tim < USec * 0.000001);
end;

分享至:

本文已关闭评论

  • 评论0
  • 粉丝1
  • 文章33

    • 多春鱼
    • 广州
    • 1970年2月26日
    • 联系 :capelin@qq.com 微信:imcapelin
    • 查看更多 >
    热门文章
    标签
    Delphi Android PHP Tools