Ir para conteúdo
Fórum Script Brasil
  • 0

Informações Da Bios


Guest José Eduardo

Pergunta

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

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...