 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
tiagosaprogramador
Aprendiz
Registrado: Quinta-Feira, 18 de Setembro de 2008
Mensagens: 101
|
 Enviada: Qua Dez 29, 2010 4:25 pm Assunto: Informacoes de Hardware no Registro do Windows |
 |
|
Ola senhores Active, to precisando de uma ajuda
Quero obter as informacoes do hardware local
processador
memoria
isso deve ser de maneira em que aparece qdo precionamos a tecla windows+break e aparece aquela tela com as informacao, sei que pode ser encontrado nos registros do windows, no entanto, ainda nao conseguir acessá-lo.
Agradeco toda ajuda
Abraco |
|
| Voltar ao Topo |
|
 |
felipe.carlos
Novato
Registrado: Quarta-Feira, 29 de Dezembro de 2010
Mensagens: 10
|
| Enviada: Qua Dez 29, 2010 5:13 pm Assunto: |
|
|
As informações não ficam no registro do windows.....
Segue a função para retorno do mac.
| Código: |
function MacAddress: string;
var
Lib: Cardinal;
Func: function(GUID: PGUID): Longint; stdcall;
GUID1, GUID2: TGUID;
begin
Result := '';
Lib := LoadLibrary('rpcrt4.dll');
if Lib <> 0 then
begin
@Func := GetProcAddress(Lib, 'UuidCreateSequential');
if Assigned(Func) then
begin
if (Func(@GUID1) = 0) and
(Func(@GUID2) = 0) and
(GUID1.D4[2] = GUID2.D4[2]) and
(GUID1.D4[3] = GUID2.D4[3]) and
(GUID1.D4[4] = GUID2.D4[4]) and
(GUID1.D4[5] = GUID2.D4[5]) and
(GUID1.D4[6] = GUID2.D4[6]) and
(GUID1.D4[7] = GUID2.D4[7]) then
begin
Result :=
IntToHex(GUID1.D4[2], 2) + '-' +
IntToHex(GUID1.D4[3], 2) + '-' +
IntToHex(GUID1.D4[4], 2) + '-' +
IntToHex(GUID1.D4[5], 2) + '-' +
IntToHex(GUID1.D4[6], 2) + '-' +
IntToHex(GUID1.D4[7], 2);
end;
end;
end;
end;
|
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
