//声明: QueryPerformanceFrequency( var lpFrequency: TLargeInteger {此参数获取定时器每秒的频率数; TLargeInteger = Int64} ): BOOL; {返回 False 表示硬件不支持高性能定时器}
//举例: var i: Int64; begin if QueryPerformanceFrequency(i) then ShowMessage(IntToStr(i)) {3579545; 这是我的手提返回的值} else ShowMessage('该电脑硬件不支持高性能定时器'); end;