取得自从开机到现在CPU运行的周期数,超毫秒级的…

2008-04-09 04:29:00来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

取得自从开机到现在CPU运行的周期数,超毫秒级的精度
function Ticker : DWord; register;
begin
asm
push EAX
push EDX
db $0f,$31
mov Result, EAX
pop EDX
pop EAX
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr( Ticker));
end;

//rock
//转载请保留此信息

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:delphi常用文档之一

下一篇:《Delphi高手突破》第一章——预览版