Mega Code Archive
Getting the BIOS Date
<![CDATA[
Title: Getting the BIOS Date
Question: How to get the BIOS date from Delphi?
Answer:
{
BiosDate.Pas
Sample showing how to retrieve the BIOS date
Author: Rubem Nascimento da Rocha
(rubemrocha@fucapi.br)
It's FREEWARE !!!!
}
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.
]]>