Delphi中利用中断获得系统启动以来的时间
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;
支持楼主发扬Delphi
页:
[1]