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