Delphi - база знаний

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


Как получить дату 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



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