怎样取得主板的序列号？

Question

procedure TRegObj.SetSerial; 
begin 
　　//取得主板的序列号 
　　FSerial := String(Pchar(Ptr($FEC71))); 
end;   为什么出错？

Answer 1

好象只能在win 9X才能运行

Answer 2

获取主板Bios信息  
CoDelphi.com
    添加一个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上运行通过。