//可以用 GetTickCount 函数
//例如
var lstart,lend:integer;
begin
Application.MessageBox('开始记时','提示:',0);
lStart := GetTickCount;
//..开始Application.MessageBox('记时结束','提示:',0);//.....结束
lEnd := GetTickCount;
Application.MessageBox(Pchar('用时:'+FloatToStr((lEnd - lStart) / 1000.0)),'提示!',0);
end;
//例如
var lstart,lend:integer;
begin
Application.MessageBox('开始记时','提示:',0);
lStart := GetTickCount;
//..开始Application.MessageBox('记时结束','提示:',0);//.....结束
lEnd := GetTickCount;
Application.MessageBox(Pchar('用时:'+FloatToStr((lEnd - lStart) / 1000.0)),'提示!',0);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货