如何获得bios的版本信息?

Question

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

Answer 1

//以下函数用以获得计算机BIOS系统信息。function GetBios(value: integer): String;// 1...Bios Type// 2.. Bios Copyright// 3.. Bios Date// 4.. Bios Extended Info// 5.. Bustype// 6.. MachineTypebeginresult:='(unavailable)';case value of1: 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;