Советы по Delphi

         

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

[001743]



Содержание раздела