Содержание материала

  

Code:

unit BiosDate;

 

interface

 

function GetBiosDate: String;

 

implementation

 

function SegOfsToLinear(Segment, Offset: Word): Integer;

begin

result := (Segment SHL 4) OR Offset;

end;

 

function GetBiosDate: String;

begin

result := String(PChar(Ptr(SegOfsToLinear($F000, $FFF5))));

end;

 

end.

 

Code:

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;

  

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить