Fórum Obter Numero BIOS computador #231548
11/05/2004
0
Alguem ja fez alguma rotina para pegar o numero da BIOS do computador,pois estou desenvolvendo um sistema para uma assistencia tecnica e gostaria de implementar esta rotina na hora que o tecnico for checar a maquina do cliente e outras coisas como placar de video,rede,numero de serie do hd entre outras informacoes sobre o computador que ele esta arrumando.
Se alguem puder me ajudar ficarei muito agradecido..
ate +
Carlos Henrique R.Melo
Analista de Sistema
Quattro C Sistemas
Chmelo
Curtir tópico
+ 0Posts
12/05/2004
Fer_nanda
431 - Como Retornar Várias informações Sobre a BIOS
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)) + 1310;
end;
q := nil;
end;
end else
if p^ in [´!´..´~´ , ´©´ , ´¸´ ] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;
[/quote:9a9d2ac02b]
Talvez essa função lhe ajude
Gostei + 0
12/05/2004
Alex.costa
Traz absolutamente tudo sobre o computador onde é executado.
É excelente.
O link para download e mais informações é:
http://www.delphipages.com/result.cfm?ID=1720
Espero ter ajudado
Gostei + 0
13/05/2004
Vinicius2k
Este é o MiTec... é muito bom mesmo...
Fernanda, infelizmente, essa e todas as funções que conheço para leitura de informações do Bios não funcionam, gerando exceção, sobre a plataforma NT... NT/2000/XP e cia restringem muito o acesso direto ao hardware...
T+
Gostei + 0
13/05/2004
Fer_nanda
realmente é verdade...acabei de testar aki =(
foi mals... mas é bom saber do componente.
ateh
Gostei + 0
13/05/2004
Nigro
Gostei + 0
14/05/2004
Khundalini
essa dica de acesso a data da BIOS só funciona em plataformas Windows 9x. Em ambientes baseados em Windows NT, essa dica não funciona. Sugiro que vocês pesquisem sobre WMI. Ela pode obter essas e outras informações referentes ao computador.
[]s
Rubem Rocha
Manaus, AM
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)