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

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

« Предыдущая статья		Следующая статья »