如何在Windows2000/XP下取得系统BISO的信息？请高手进来解答。

Question

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;
不过，是9X下的

Answer 1

楼上的不错，可这在Win2000/XP下使用要出错的，还有哪位能帮我吗？

Answer 2

在Win2000下不允许对端口直接操作。
给我发邮件，我发给你一个对Win2000／NT端口操作的例子。
[email protected]

Answer 3

windows2000/nt下不能直接使用int13中断！

Answer 4

解决办法：
1、Windows2000/XP提供了读写这些内容的函数，我不清楚，或者BIOS的供应商提供了。
2、写一个设备驱动程序，用这设备驱动程序来读写，然后设备驱动程序提供了应用程序的调用接口。
3、利用Windows2000/XP的漏洞，这个方法不会长久。

Answer 5

http://www.delphibyte.com/download/softlist.php?category=56