Ver Mensaje Individual
  #1  
Antiguo 03-08-2011
gersojn gersojn is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 85
Reputación: 13
gersojn Va por buen camino
Problemas de Privilegios en Delphi

Hola, he estado trabajando en un aplicacion en delphi2010, la cual lleva un control de procesos internos de una aplicacion y todo anda de maravilla con ello.

Pero esta aplicacion debe mostrar la velocidad del procesador y el nombre del procesador, para obtener el nombre del procesador utilizo la siguiente funcion:

Código Delphi [-]
function NombreProcesador:string;
var
Registro:TRegistry;
begin
  Result:='';
  Registro:= TRegistry.Create;
  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;

Bueno el problema es que al compilar un Tlabel deberia mostrar el nombre del procesador, pero simplemente no muestra nada.

Despues ejecute el .exe generado por el proyecto mediante ejecutar como administrador y me desplego excelete el nombre del procesador, de igual forma la velocidad del procesador.

Esta aplicacion es para una tarea de mi clase de programacion, pero lamentablemente mi catedratico dice que la aplicacion debe mostrar esta informacion sin tener que ejecutarla como administrador.

Si alguien tiene una idea de como solucionar esto, le agradeceria mucho, de antemano muchas gracias.

P.D. Trabajo en Windows 7 Ultimate 32 bits, procesador Intel(R) Core(TM) i3 CPU.
Responder Con Cita