//声明:
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;
posted on 2008-02-16 14:24  万一  阅读(3304)  评论(0编辑  收藏  举报