鱼C论坛

 找回密码
 立即注册
查看: 2081|回复: 1

[技术交流] Delphi中利用中断获得系统启动以来的时间

[复制链接]
发表于 2012-8-21 01:44:49 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
function GetSysTime:dword;
asm
  int $2a //调用2a号中断获取系统从启动运行时间(微秒)
end;
procedure TForm1.Button1Click(Sender: TObject);//某个按钮的单击事件
var
  hours:dword; //小时
  sec:dword;  //分钟 www.delphitop.com
begin
  hours:=GetSysTime() div 3600000; //1秒=1000微秒 60秒=1分钟 60分钟=1小时所以60乘60再乘1000就等于3600000了
  sec:=GetSysTime() mod 3600000 div 60000;  //这个的道理同上 就不用说了吧
  edit1.Text:='系统从启动到现在一共运行了:'+inttostr(hours)+'小时'+inttostr(sec)+'分钟';
end;

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2015-2-1 16:38:41 | 显示全部楼层
支持楼主发扬Delphi
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 17:41

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表