Home » Tipps & Tricks » System » Hardware » Datum des BIOS ermitteln

Datum des BIOS ermitteln

Mithilfe dieser Funktion kann das Datum des BIOS ermittelt werden.

function GetBiosDate: string;
  function SegOfsToLinear(Segment, Offset: Word): Integer;
  begin
    result := (Segment shl 4) or Offset;
  end;
begin
  result := string(PChar(Ptr(SegOfsToLinear($F000, $FFF5))));
end;

Hinweis: Diese Funktion funktioniert nur unter W9X. Unter NT/2000/XP und auch in zukünftigen Windows-Versionen wird dieser Aufruf nicht mehr möglich sein.