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

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Windows,SysUtils;

function FileTime2DateTime(FileTime: TFileTime): TDateTime;    //Convert then FileTime to TDatetime format
var
  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.