Как получить информацию о BIOS в Windows 9x

procedure
 TForm1.Button1Click(Sender: TObject);
begin

 with
 Memo1.Lines do

 begin

  Add('MainBoardBiosName: '+string
(Pchar(Ptr($FE061))));
  Add('MainBoardBiosCopyRight: '+string
(Pchar(Ptr($FE091))));
  Add('MainBoardBiosDate: '+string
(Pchar(Ptr($FFFF5))));
  Add('MainBoardBiosSerialNo: '+string
(Pchar(Ptr($FEC71))));
 end
;
end
;

Другое по теме:

• Прочитать ROM-BIOS
• Получить дату BIOS
• Получение серийного номера BIOS