Как в 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;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как в Delphi определить дату BIOS", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!