Buscar

Como retornar várias informações sobre a bios?

Código

{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.}


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;  

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 3227 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009