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

取得自从开机到现在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//转载请保留此信息