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



Начало  Назад  Вперед