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