Народная примета: если программист в девять утра уже на работе, значит, он еще на работе.
unit BiosDate;
interfacefunction GetBiosDate: string;
implementationfunction 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.
Статья Как получить дату BIOS раздела ОС и Железо BIOS может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.