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.
Взято
из http://forum.sources.ru