Privilegios en Aplicacion Delphi

[[escafandra]]

En Win7 es mas complicado ejecutar como administrador que usar un archivo de recursos.

Para tu caso la función puedes hacerla así:

Código Delphi [-]
function NombreProcesador:string;
var
Registro:TRegistry;
begin

  Result:='';
  Registro:= TRegistry.Create;
  Registro.Access:= KEY_READ;
  try
    Registro.RootKey:= HKEY_LOCAL_MACHINE;
    if Registro.OpenKey('\Hardware\Description\System\CentralProcessor\0', True) then
     Result:= Registro.ReadString('ProcessorNameString');
  finally
  Registro.Free;
  end;
end;

Saludos.

[[Chris]]

Utiliza este código:

Código Delphi [-]
function NombreProcesador:string;
var
Registro:TRegistry;
begin

  Result:='';
  Registro:= TRegistry.Create;
  try
    Registro.ReadOnly := True; // esto es lo que te intente decir
    Registro.RootKey:= HKEY_LOCAL_MACHINE;
    if Registro.OpenKey('\Hardware\Description\System\CentralProcessor\0', True) then
     Result:= Registro.ReadString('ProcessorNameString');
  finally
  Registro.Free;
  end;
end;

Saludos,
Chris

[gersojn]

muchas gracias por las respuestas, ya funciona excelente el programa con la funcion anterior

Código Delphi [-]
function NombreProcesador:string; 
var 
  Registro:TRegistry; 
begin    
  Result:= '';   
  Registro:= TRegistry.Create;   
  Registro.Access:= KEY_READ;   
  try     
    Registro.RootKey:= HKEY_LOCAL_MACHINE;     
    if Registro.OpenKey('\Hardware\Description\System\CentralProcessor\0', True) then      
      Result:= Registro.ReadString('ProcessorNameString');   
   finally   
     Registro.Free;   
  end; 
end;

Muchas gracias por la ayuda.