本文整理自网络，侵删。
利用系统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
相关阅读 >>
Delphi 莫名奇妙的错误 Delphi is not a valid integer value
Delphi hook 指定程序窗体和控件的 wndproc
更多相关阅读请进入《Delphi》频道 >>
