[DELPHI] PEGAR O NOME DA CPU

// uses registry

procedure TForm1.Button1Click(Sender: TObject); 

var

  reg: tregistry;

begin

  reg := tregistry.Create;

  try

    reg.RootKey := HKEY_LOCAL_MACHINE;

    reg.OpenKeyReadOnly('HARDWARE\DESCRIPTION\System\CentralProcessor\0');

    ShowMessage(reg.ReadString('ProcessorNameString'));

  finally

    reg.Free;

  end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】