Guest José Eduardo Postado Junho 24, 2004 Denunciar Share Postado Junho 24, 2004 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 obrigadoJ.Eduardojalbuque@hotmail.com Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Léo Postado Junho 25, 2004 Denunciar Share Postado Junho 25, 2004 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 afunçã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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Diabloline Postado Junho 27, 2004 Denunciar Share Postado Junho 27, 2004 Eu tentei utilizar mas deu erro nessa linhaif p^ in ['!'..'~' , '©' , '¸' ] then Citar Link para o comentário Compartilhar em outros sites More sharing options...
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
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.