How to get BIOS information? (Views: 723)
Problem/Question/Abstract: This code shows you some information about your BIOS: Answer: procedure TForm1.FormCreate(Sender: TObject); begin try Label1.Caption := string(PChar(Ptr($FE061))); // BIOS Name Label2.Caption := string(PChar(Ptr($FE091))); // Copyright Label3.Caption := string(PChar(Ptr($FFFF5))); // BIOS Date Label4.Caption := string(PChar(Ptr($FEC71))); // Serial Number except Label1.Caption := 'Unsupported'; Label2.Caption := 'Unsupported'; Label3.Caption := 'Unsupported'; Label4.Caption := 'Unsupported'; end; end; Hint! This method doesn't work with NT based systems like Windows NT, 2000 and XP. |