Delphi 计算程序运行时间

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 文件夹重命名

Delphixe8中获取apk的签名信息

Delphi版的创建高权限进程

Delphi winapi: getmodulehandle - 获取一个模块(exe 或 dll)的句柄

Delphi app如何禁掉安卓锁屏

Delphi webbrowser控件实现对ie浏览器的各种控制

Delphi 几个和当前路径相关的新函数

Delphi与进程、窗口句柄、文件属性、程序运行状态

Delphi savedialog覆盖询问

Delphi fdconnection取得excel工作表名

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

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