Подписаться на RSS рассылку
Главная » Статьи по Delphi » Процессор » Вычисление количества тактов процессора с момента его включения

Вычисление количества тактов процессора с момента его включения

Автор: ixTitan

В процессоре имеется специальный регистр с адресом 16 (0x10) - счетчик тактов. В нем хранится колличество тактов произведенных процессором за время его работы.

Вызов команды RDTSC считывает содержимое этого регистра.

function GetCPUTacts: int64;
asm
  RDTSC
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetCPUTacts));
end;

Либо так (следить удобнее):

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := IntToStr(GetCPUTacts);
end;

Просмотров: 5452

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта