delphi – 如何让我的应用程序运行时间？

概述如何找出自应用程序启动以来运行的时间？ 试试 GetProcessTimes功能 {$APPTYPE CONSOLE}{$R *.res}uses Windows, SysUtils;function FileTime2DateTime(FileTime: TFileTime): TDateTime; //Convert then FileTime to TDatetim 如何找出自应用程序启动以来运行的时间？解决方法 试试 GetProcessTimes功能

{$APPTYPE CONSolE}{$R *.res}uses  windows,SysUtils;function fileTime2DateTime(fileTime: TfileTime): TDateTime;    //Convert then fileTime to TDatetime formatvar  LocalTime: TfileTime;  DOSTime  : Integer;begin  fileTimetoLocalfileTime(fileTime,LocalTime);  fileTimetoDosDateTime(LocalTime,LongRec(DOSTime).Hi,LongRec(DOSTime).Lo);  Result := fileDatetoDateTime(DOSTime);end;Var  lpCreationTime,lpExitTime,lpKernelTime,lpUserTime: TfileTime;begin  try    GetProcesstimes(GetCurrentProcess,lpCreationTime,lpUserTime);    Sleep(1000); //do something    Writeln(Format('Running Time %s',[FormatDateTime('hh:nn:ss.zzz',Now-fileTime2DateTime(lpCreationTime))]));  except    on E: Exception do      Writeln(E.Classname,': ',E.Message);  end;  Readln;end.

总结

以上是内存溢出为你收集整理的delphi – 如何让我的应用程序运行时间？全部内容，希望文章能够帮你解决delphi – 如何让我的应用程序运行时间？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。