标签：
一，获得运行时间；
var T1,T2 : double; begin T1 := GetTickCount; //需要做的事情 T2 := GetTickCount; ShowMessage( floatToStr( ( (T2-T1)/1000)) )+‘秒‘ );//获取程序运行时间 end;
GetTickCount的几个案例
原文地址：http://www.cnblogs.com/delphiclub/p/4296399.html
