GetTickCount的几个案例

一，获得运行时间；

var
    T1,T2 : double;
begin
    T1 := GetTickCount;
    //需要做的事情
    T2 := GetTickCount;
    ShowMessage( floatToStr(  ( (T2-T1)/1000))  )+'秒' );//获取程序运行时间
end;