Obter Numero BIOS computador
Boa Noite pessoal,
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
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
Curtidas 0
Respostas
Fer_nanda
11/05/2004
[quote:9a9d2ac02b=´800 dicas dephi´]
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
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
Alex.costa
11/05/2004
Este componente me impressionou a 1a vez que o vi.
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
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
Vinicius2k
11/05/2004
Este componente me impressionou a 1a vez que o vi.
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
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
Fer_nanda
11/05/2004
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...
realmente é verdade...acabei de testar aki =(
foi mals... mas é bom saber do componente.
ateh
GOSTEI 0
Nigro
11/05/2004
Olá pessoal, até ondee eu sei a única informação que pode ser vista em todas as plataformas é a data da BIOS
GOSTEI 0
Khundalini
11/05/2004
Companheiros,
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
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