Datum des BIOS ermitteln |
|
| System | Win9x |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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.