"AND" "OR"
Главная Информер Журнал Форум

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

Компилятор: Delphi

Добавьте на форму компоненты TButton и TMemo. В событие кнопки OnClick добавьте следующий код:

  with Memo1.Lines do
  begin
    Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
    Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
    Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
    Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
  end;