Определить дату 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;
|
| 
