Ofline
Эта небольшая статья посвящена тому - как определить частоту процессора.
Буду с Вами предельно откровенным и признаюсь, что продемонстрированный метод не самый лучший. Все дело в том, что информация берется из реестра. Пользователь имеет туда доступ и может подменить значение. С другой стороны зачем ему это нужно. Код функции представлен ниже. Она возвращает частоту процессора в мегагерцах.
Функция поможет узнать частоту процессора:
Буду с Вами предельно откровенным и признаюсь, что продемонстрированный метод не самый лучший. Все дело в том, что информация берется из реестра. Пользователь имеет туда доступ и может подменить значение. С другой стороны зачем ему это нужно. Код функции представлен ниже. Она возвращает частоту процессора в мегагерцах.
Функция поможет узнать частоту процессора:
Код:
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;