Dicas - BIOS

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Dica de como obter informações do BIOS.

Obtendo informações do BIOS

 

Esta função retorna várias informações sobre o BIOS, no formato String que você poderá facilmente armazenar o resultado em um memo veja como:

 

Memo1.Lines.Text := GetBiosInfoAsText;

 

O Memo apresentará todas as informações que a função retirou sobre a BIOS.

 

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;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?