取得自从开机到现在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
//转载请保留此信息
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
