Delphi中利用中断获得系统启动以来的时间

woawn

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;

Angel丶L

支持楼主发扬Delphi