Privilegios en Aplicacion Delphi

[[Chris]]

Empezado por gersojn

Hola, les cuento que estoy haciendo una aplicacion la cual necesita permisos de administrador para que algunas funciones sirvan, como leer el nombre del procesador por medio de un Registry, etc.

Para leer el nombre del procesador no es necesario que tu aplicación tenga privilegios de administrador. Simplemente establece la propiedad ReadOnly de TRegistry a True y dicho componente no te producirá problemas al leer cualquier clave/valor del registro.

Saludos,
Chris

[gersojn]

Bueno, veran tengo el siguiente codigo

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;

No se como colocar el TRegistry a true, tampoco puedo colocarlo a Readonly.

En cuanto a compilar con brcc35 el archivo.RC, pues, lo compile todo bien, y me genero el archivo.RES (Nota: no se si habra problema con la extension, si sea necesario, archivo.res, ya que yo tengo archivo.RES) despues agrego

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Registry;{$r win7.RES}

No me genera ningun tipo de error, solo unos warning

[DCC Warning] W1056 Warning: Duplicate resource:  Type 24 (user-defined), ID 1; File C:\Users\gersojn\Documents\RAD Studio\Projects\Tarea\Nombre_Procesador\Project1.res resource kept; file C:\Users\gersojn\Documents\RAD Studio\Projects\Tarea\Nombre_Procesador\win7.RES resource discarded.

Pero no me presenta el nombre del procesador, debo de integrar el RES al proyecto desde el Embarcadero, porque solo lo he agregado a la carpeta del proyecto , tambien hize una prueba agregandolo a Project -> Resources, pero tampoco.

Que puedo hacer al respecto? de antemano muchas, gracias.

[[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.