你那个,点击按钮要去请求后台吧,或者做一系列 *** 作,你在点击之前,获取当前系统时间作为开始时间,在你 *** 作完成之后,再获得当前系统时间作为结束时间,两个时间相减就是 *** 作时间了。注意请求后台如果是异步 *** 作在 *** 作里面去获取结束时间。
在程序中获取当前时间:DateTimeNowToString()
简单的,在程序运行时直接获取当前时间可以理解为第一次运行时间
至于编译时候是不对注册表有任何修改的,运行时候也是。除非你运行的程序中有修改注册表的代码,运行时才会对注册表进行 *** 作。
Delphi 语言的 DateUtils 单元提供了功能丰富的日期、时间函数,针对“计算程序运行时间”这一应用,可以参考使用以下功能函数:
Now :获取当前的日期和时间
Now 函数的 Note 提示,Now 获取的时间精确到最接近的秒,如果还需要更精确的时间(比如:毫秒级),可以考虑使用以下 Win API 函数:
GetLocalTime、GetSystemTime 或 GetTickCout 等。
MilliSecondsBetween 函数:计算两个时间之间的差值(按毫秒计算)
SecondsBetween 函数:计算两个时间之间的差值(按秒计算)
综合以上功能函数的资料,就可以着手编写应用的代码了,以下是示例:
varForm1: TForm1;
AppTime: TDateTime;
implementation
uses SystemDateUtils;
{$R dfm}
procedure TForm1FormCreate(Sender: TObject);
var SysTime: TSystemTime;
begin
//AppTime = Now; //以秒计算时间
GetLocalTime(SysTime);
AppTime := SystemTimeToDateTime(SysTime);
end;
procedure TForm1FormDestroy(Sender: TObject);
var
SysTime: TSystemTime;
CurTime: TDateTime;
begin
//ShowMessage('程序共运行了 ' + SecondsBetween(AppTime,Now)ToString + ' 秒');
GetLocalTime(SysTime);
CurTime := SystemTimeToDateTime(SysTime);
s := '程序共运行了 ' + MilliSecondsBetween(AppTime,CurTime)ToString + ' 毫秒';
MessageBox(Handle, PChar(s), '信息提示', MB_OK + MB_ICONINFORMATION);
end;
代码运行截图:
以上就是关于jsp如何获得一个程序的执行时间全部的内容,包括:jsp如何获得一个程序的执行时间、C#中如何获程序第一次运行的时间、delphi怎么计算程序运行时间等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)