获得BIOS信息

　2006-02-04 13:30:33　来源：WEB开发网　　　

核心提示：摘要：用Delphi调用Bios的信息关键字：BIOS类别：系统控制添加一个Tbutton和一个Tmemo组件到窗体并写如下代码到按钮的OnClick事件：with Memo1.Lines do begin Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE

摘　要：用Delphi调用Bios的信息关键字：BIOS 类　别：系统控制

添加一个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;

以上代码在Win9X上运行通过。