Delphi 计算程序运行时间

本文整理自网络，侵删。

 var
  StartTime, EndTime: cardinal;
begin
  StartTime := GetTickCount;
  sleep(1000);
  EndTime := GetTickCount;
  caption := (IntToStr(EndTime - StartTime) + ' ms');
end; 

相关阅读 >>

Delphi tms web core 从js调用pascal函数

Delphi 使用shellexecuteex运行应用程序并等待完成

Delphi vcl tmemo加速字符串读取

Delphi基于prewitte算子的图像边缘检测

Delphi firedac,ado性能测试

Delphi获取进程的命令行参数

Delphi idhashmessagedigest, idhash, idglobal md5

minsperday：一天中有多少分钟

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 用updateresource修改exe文件图标(已修正)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 计算程序运行时间