Как получить дату BIOS?

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.

Взято с Исходников.ru



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

---

---