sexta-feira, 6 de janeiro de 2012

(Delphi) Pegar Família do Processador

Saudações!

A partir de hoje começarei a colocar algumas informações que servem para pegar informações básicas do computador. Os artigos já foram programados para postar, serão em media dois artigos por dia até semana que vem (pelo menos assim dá pra manter a média de 1.6 artigos por dia)

Segue a função de hoje:

function GetProcessorFamily: string;
var
  Reg: TRegistry;
begin
   Result  := '';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then
      Result := Reg.ReadString('Identifier');
  finally
    Reg.Free;
  end;
end;

Grande parte das funções são retiradas dos registro do windows.

Abraço

Nenhum comentário:

Postar um comentário