Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Процессор » Вычисление тактовой частоты процессора

Вычисление тактовой частоты процессора

Автор: Alex Novikov

function GetCPUSpeed: double;
const
  DelayTime = 500; // время измерения в миллисекундах
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
    dw 310Fh
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result := TimerLo / (1000.0 * DelayTime);
end;

begin
  LabelCPUSpeed.Caption := Format('CPU speed: %f MHz', [GetCPUSpeed]);
end;

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

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

Отзывы на https://uglichsm.date помогут сделать правильный выбор. | Простой процесс бронирования девушек на https://kerchlust.com. | https://kirovlust.com - большой выбор девушек по доступным ценам. | Хотите вызвать проститутку Коломны на вечер? Наши девушки готовы порадовать вас своими нежными объятиями и страстными поцелуями. | Вызвать проститутку Пушкино - у вас точно не возникнет скуки и одиночества с такой разнообразной выбором красоток. | Сайт проституток Ивантеевки - идеальное место для поиска и выбора незабываемых встреч. | Найдите проститутку Стерлитамака, которая удивит вас своими навыками и опытом. | Проститутки индивидуалки Якутска всегда рады встрече с новыми клиентами. | Вызвать проститутку Нижнекамска – это шаг к незабываемым впечатлениям и полному расслаблению. Наши девушки готовы подарить вам яркие моменты страсти. | Вызвать проститутку Коломны - означает открыть дверь в мир соблазна и страсти, который будет доступен только вам. | Анкеты проституток Красногорска - представлены самые разнообразные дамы, готовые порадовать вас по полной программе. | Найти проститутку Лыткарино - легко и просто насладиться моментами страсти и возбуждения с опытной дамой. | Проститутки Майкопа приглашают вас в мир наслаждений и удовольствий. (1) | Индивидуалки Миасса - это настоящие профессионалки своего дела, которые подарят вам незабываемые моменты удовольствия. | Найти проститутку Мурманска – значит найти ключ к миру наслаждений и удовольствий. | Проститутки Новомосковска ждут вас с нетерпением, чтобы сделать ваш вечер запоминающимся. | Анкеты проституток Рубцовска помогут вам выбрать идеальную спутницу для вечера. Наши дамы готовы порадовать вас своими умениями и страстью. | Вызвать проститутку Пскова - это шаг к новым ощущениям и удовольствиям. Не упустите возможность провести время с настоящей профессионалкой. | Сайт проституток Таганрога предлагает широкий выбор индивидуалок для самых взыскательных гурманов.

Последние комментарии:

Изменение размеров формы при BorderStyle=bsNone

Как выбрать хороший бесплатный хостинг

10 ошибок HTML верстки

Про корректную отрисовку PNG в IE6

Что такое CSS и как с ним работать?

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

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