Получение типа процессора

Delphi , ОС и Железо , Процессор

function GetProcessorType: integer;
{Определение типа процессора.
Функция возвращает следующие значения,
определенные в модуле Windows:
PROCESSOR_INTEL_386
PROCESSOR_INTEL_486
PROCESSOR_INTEL_PENTIUM
PROCESSOR_MIPS_R4000 - Windows NT only
PROCESSOR_ALPHA_21064 - Windows NT only}
var
  sysInfo: TSystemInfo;
begin
  GetSystemInfo(sysInfo);
  Result := sysInfo.dwProcessorType;
end;

Here is the translation of the text into Russian:

Функция Delphi под именем GetProcessorType возвращает тип процессора, работающего на системе. Функция использует структуру TSystemInfo из Windows API для получения информации о системе и затем возвращает поле dwProcessorType этой структуры.

Вот разбивка того, что код делает:

1. Функция объявлена с типом возвращаемого значения integer и не принимает параметров.
2. Переменная sysInfo типа TSystemInfo объявляется для хранения информации о системе.
3. Функция GetSystemInfo из Windows API вызывается, передавая sysInfo в качестве параметра. Эта функция получает информацию о системе и хранит ее в структуре sysInfo.
4. Переменная Result устанавливается в значение поля dwProcessorType структуры sysInfo. Это поле содержит тип процессора, работающего на системе, который может быть одним из следующих значений:
   • PROCESSOR_INTEL_386: Intel 80386
   • PROCESSOR_INTEL_486: Intel 80486
   • PROCESSOR_INTEL_PENTIUM: Pentium
   • PROCESSOR_MIPS_R4000: MIPS R4000 (только на Windows NT)
   • PROCESSOR_ALPHA_21064: Alpha 21064 (только на Windows NT)

Функция затем возвращает значение Result, которое является типом процессора, работающего на системе.

Вот альтернативное решение с более современным подходом:

function GetProcessorType: TProcessorType;
begin
  Result := GetSystemInfo.dwProcessorType;
end;

type
  TProcessorType = (ptIntel386, ptIntel486, ptPentium, ptMIPS_R4000, ptAlpha_21064);

В этом варианте мы определяем тип enum TProcessorType для представления возможных типов процессоров. Функция остается той же, но теперь она возвращает значение типа TProcessorType вместо целого числа. Это делает код более читаемым и само-документирующимся, поскольку возвращающие значения четко определены константами enum.

Описание функции GetProcessorType позволяет получать тип процессора, возвращая значения, определенные в модуле Windows.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессор ::