Как в Delphi определить дату BIOS

Delphi , ОС и Железо , BIOS

Автор: Nomadic

Определить дату BIOS, равно как тип ПК или поиметь другие данные, находящиеся по фиксированому _физическому_ адресу, в Delphi можно так:

var
  BiosDate: array[0..7] of char absolute
  $FFFF5;
  PCType: byte absolute $FFFFE;

procedure TForm1.FormCreate(Sender: TObject);
var
  S: string;
begin
  case PCType of
    $FC: S := 'AT';
    $FD: S := 'PCjr';
    $FE: S := 'XT =8-O';
    $FF: S := 'PC';
  else
    S := 'Нестандартный';
  end;
  Caption := 'Дата BIOS: ' + BiosDate + '  Тип ПК: ' + S;
end;

Here is the translation of the text into Russian:

Ключевое слово absolute В Delphi ключевое слово absolute позволяет объявить переменную на конкретной адресе памяти. В этом случае мы объявляем две переменные: BiosDate и PCType. Эти переменные не хранятся в куче или стеке программы; вместо этого они мапируются напрямую на физические адреса памяти.

Адреса памяти Используемые адреса:

• $FFFF5: Это адрес строки даты BIOS. Дата хранится в виде 8-значной ASCII-строки (например, "08/11/99").
• $FFFFE: Это адрес байта типа ПК. Тип представлен одним байтом значения, соответствующим конкретному типу ПК (например, AT, PCjr, XT-80 или PC).

Процедура FormCreate Эта процедура вызывается при создании формы. Она читает значения из памяти BIOS и использует их для заполнения двух переменных:

• S: строка, представляющая тип ПК (например, "AT" или "PCjr").
• Caption: текст, отображаемый в заголовке формы.

Код использует оператор case для сопоставления значения PCType с одним из предопределенных строк. Если значение не соответствует ни одному из этих типов, оно по умолчанию defaults к "Нестандартному".

Альтернативное решение Хотя это код старомодный, он все еще функционирует. Однако, если вам нужно доступ к более современным данным BIOS или обработка различных типов систем, вы можете захотеть использовать более надежный метод.

Один из альтернативных подходов заключается в использовании единицы WinAPI и вызове функции GetSystemInfo, которая предоставляет информацию о системе, включая дату BIOS и тип ПК. Этот метод более платформо-независим и может предоставить более детализированную информацию о системе.

Вот пример, как можно модифицировать код для использования GetSystemInfo:

uses
  WinAPI;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  SysInfo: TSystemInfo;
begin
  GetSystemInfo(SysInfo);
  Caption := 'Дата BIOS: ' + SysInfo.BIOSDate + ' Тип ПК: ' + SysInfo.PCType;
end;

В этом примере функция GetSystemInfo заполняет запись TSystemInfo информацией о системе. Свойства BIOSDate и PCType этой записи предоставляют желаемую информацию.

Обратите внимание, что этот подход требует Windows Vista или более поздней, так как он основан на функции GetSystemInfo, которая была введена в Windows Vista. Если вам нужно поддерживать старые системы, оригинальный код может все еще быть подходящим.

В Delphi можно определить дату BIOS и тип ПК, используя absolute-оператор для доступа к фиксированному физическому адресу в памяти.

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

:: Главная :: BIOS ::