delphi如何获得一段代码执行消耗的时间

  最近客户一直在问，为什么调用我们接口速度会这么慢，于是我首先就需要验证到底耗时是多少，对于delphi语言用的不是很多，后来几经周折有如下方法：

  关键是用到一个库函数GetTickCount

【函数名】 GetTickCount

【返回值】 Long，以毫秒为单位

通常用来计算某个操作所使用的时间：

var:

    start_time : LONG;

    stop_time:LONG;

begin:

start_time :=GetTickCount;

调用接口操作

stop_time :=GetTickCount;

ShowMessage( IntToStr(stop_time - art_time));

end;