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