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

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

其实这个例子非常简单就是利用系统2a号中中断获取系统启动以来的时间，写这篇文章的目的也是为了让大家知道如何在delphi中内嵌汇编。

下面给出源代码:

function GetSysTime:dword;
asm
  int $2a //调用2a号中断获取系统从启动运行时间(毫秒)
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  hours:dword;//小时
  sec:dword;  //分钟
begin
//if LoadWinMMDll then
  hours:=GetSysTime() div 3600000;
  sec:=GetSysTime() mod 3600000 div 60000;
  edit1.Text:='系统从启动运行了:'+inttostr(hours)+'小时'+inttostr(sec)+'分钟';
end;