Informações Da Bios

[Guest José Eduardo]

A quem possa estar lendo este e-mail.

Senhores, alguém dispõe de um componente e/ou rotina para pegar as informações da BIOS do computador, isso tudo sendo feito em tempo de execução pelo Delphi.

Muito obrigado

J.Eduardo

jalbuque@hotmail.com

[Léo]

Esta função retorna várias informações sobre a BIOS, no formato String que você poderá facilmente jogar para um memo usando o seguinte:

Memo1.Lines.Text := GetBiosInfoAsText;

O Memo apresentará todas as informações que a

função retirou sobre a BIOS.

Texto:

function GetBiosInfoAsText: string;

var

p, q: pchar;

begin

q := nil;

p := PChar(Ptr($FE000));

repeat

if q <> nil then begin

if not (p^ in [#10, #13, ' '..'~' , '©' , '¸' ]) then begin

if (p^ = #0) and (p - q >= 8) then begin

Result := Result + TrimRight(String(q)) + #13#10;

end;

q := nil;

end;

end else

if p^ in ['!'..'~' , '©' , '¸' ] then

q := p;

inc(p);

until p > PChar(Ptr($FFFFF));

Result := TrimRight(Result);

end;

[Diabloline]

Eu tentei utilizar mas deu erro nessa linha

if p^ in ['!'..'~' , '©' , '¸' ] then