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

利用系统2a号中中断获取系统启动以来的时间

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;

div 是取整函数 10 div 3就等于3

mod 是取模（取余）函数 10 mod 3 就等于1