Определить Частоту Процессора

[Sascha]

Эта небольшая статья посвящена тому - как определить частоту процессора.

Буду с Вами предельно откровенным и признаюсь, что продемонстрированный метод не самый лучший. Все дело в том, что информация берется из реестра. Пользователь имеет туда доступ и может подменить значение. С другой стороны зачем ему это нужно. Код функции представлен ниже. Она возвращает частоту процессора в мегагерцах.

Функция поможет узнать частоту процессора:

function GetCpuMhz: Word;
begin
  with tregistry.Create do
    begin
    rootkey := HKEY_LOCAL_MACHINE;
    openkey('\hardware\description\system\centralprocessor\0\', false);
    result := readinteger('~mhz');
    free;
  end;
end;