//声明:
QueryPerformanceFrequency(
  var lpFrequency: TLargeInteger {此参数获取定时器每秒的频率数; TLargeInteger = Int64}
): BOOL;                         {返回 False 表示硬件不支持高性能定时器}

//举例: var i: Int64; begin if QueryPerformanceFrequency(i) then ShowMessage(IntToStr(i)) {3579545; 这是我的手提返回的值} else ShowMessage('该电脑硬件不支持高性能定时器'); end;
posted on 2008-02-16 13:56  万一  阅读(6086)  评论(7编辑  收藏  举报