如何获得bios的版本信息?

[byteh]

如题!向优化大师那样!我知道注册表里有个地方保存着版本号,还有其他方法吗?

[jackie168]

//以下函数用以获得计算机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;