Delphi調用WinAPI: QueryPerformanceCounter - 獲取高性能定時器的當前值

//聲明: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;