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 этой структуры.
Вот разбивка того, что код делает:
Функция объявлена с типом возвращаемого значения integer и не принимает параметров.
Переменная sysInfo типа TSystemInfo объявляется для хранения информации о системе.
Функция GetSystemInfo из Windows API вызывается, передавая sysInfo в качестве параметра. Эта функция получает информацию о системе и хранит ее в структуре sysInfo.
Переменная 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.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.