Get Bios Info In Win9x

Award BIOS: To get Bios Info ........... Just paste and run. the following code.
with Memo1.Lines do
begin
Add('Modal:'+^I+String(Pchar(Ptr($FE061))));
Add('CopyRight:'+^I+String(Pchar(Ptr($FE091))));
Add('Date:'+^I+String(Pchar(Ptr($FFFF5))));
Add('Additional Informacion (serial
etc..):'+^I+String(Pchar(Ptr($FEC71))));
end;
***************
//以下函数用以获得计算机BIOS系统信息。
function GetBios(value: integer): String;
// 1...Bios Type
// 2.. Bios Copyright
// 3.. Bios Date
// 4.. Bios Extended Info
// 5.. Bustype
// 6.. MachineType
begin
result:='(unavailable)';
case value of
1: result:=String(Pchar(Ptr($FE061)));
2: result:=String(Pchar(Ptr($FE091)));
3: result:=String(Pchar(Ptr($FFFF5)));
4: result:=String(Pchar(Ptr($FEC71)));
end;
end;