获得消逝时间

在测试硬件或软件的效率时或跟踪用户的响应速度时，需要测定消逝的时间。多数程序员使用一个TDateTime变量和Now函数来实现测定消逝时间的目的。

但是，一种更简单的方法是使用Windows API函数GetTickCount。GetTickCount函数返回从启动Windows后消逝的毫秒数。如果函数成功地返回，返回值就是从启动Windows后消逝的毫秒数。下面是一个使用实例：

procedure TForm1.Button1Click(Sender: TObject);

var

i: longint;

StartTime, EndTime: Double;

const

CLOCK_TICK: Double = 1000;

begin

i := 0;

StartTime := GetTickCount;

while (i < 10000000) do i:= i+1;

EndTime := GetTickCount - StartTime;

ShowMessage(Format('消逝时间: %0.2f 秒',[EndTime/CLOCK_TICK]));

end;