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;