Delphi 计算程序运行时间

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 编译发布安卓的app名字问题

Delphi treeview节点展开与折叠

Delphi 遍历硬盘所有文件目录

线程池的概念

Delphi文本文件读与写

汇编数据宽度和字节序

Delphi paramstr 获取外部参数

Delphi 移除u盘的两种方法

Delphi 备份恢复剪切板

Delphi xe5 android 调用手机震动

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

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