WinAPI: QueryPerformanceCounter - 获取高性能定时器的当前值
WinAPI: QueryPerformanceCounter - 获取高性能定时器的当前值
涂孟超 发表于3年前
WinAPI: QueryPerformanceCounter - 获取高性能定时器的当前值
  • 发表于 3年前
  • 阅读 2
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 十分钟定制你的第一个小程序>>>   

//声明:
QueryPerformanceCounter(
  var lpPerformanceCount: TLargeInteger {获取定时器每秒的频率数; TLargeInteger = Int64}
): BOOL; {返回 False 表示调用失败, 或者是硬件不支持高性能定时器}

 
 
 
 
 

 

 

  
//一个有趣的示例: 判断你的鼠标点击速度; 我的最快记录是 151 毫米 var n1,n2,n,f: Int64; b: Boolean; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin n := 0; b := not b; if b then QueryPerformanceCounter(n1) else begin QueryPerformanceCounter(n2); n := n2 - n1; end; if n<>0 then begin QueryPerformanceFrequency(f); n := n*1000 div f; Text := IntToStr(n) + ' ms'; end else Text := '等待第二下...'; end;
共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: