Acceso Denegado Aplicacion inicio de Windows

[gersojn]

Hola amigos, les comento que estoy desarrollando una aplicación de control de cibers para la universidad. Pero trato de cargar la aplicación al inicio de Windows, pero al intentar compilar el programa me dice Acceso denegado y la aplicación, no compila.

El código que estoy utilizando(sacado de Delphi al Limite) es este:


procedure TFPrincipal.PonerProgramaInicio;
var Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER;

if Registro.OpenKey( 'Software\Microsoft\Windows\CurrentVersion\Run', FALSE ) then
begin
Registro.WriteString( ExtractFileName( Application.ExeName ), Application.ExeName );
Registro.CloseKey;
end;

Registro.Free;
end;


Hace como 1 año necesite una aplicación que iniciara con Windows y con este código no tuve ningún problema. Este código lo he probado en Windows 7 ultimate 64 Bits y Windows 8 Pro, en ambos sistemas operativos he compilado la aplicación desde una cuenta estándar y desde la cuenta del administrador y el error es el mismo.

Alguien sabe cual pueda ser el problema o conocen alguna solución adicional para esto que pueda aplicar.
Desde ya muchas gracias por la ayuda.
Saludos.

[newtron]

Hola.

¿No tendrás abierta por otro lado la aplicación que estás intentando compilar?

[radenf]

Estimao gersojn :

Yo utilizo en W7 64bits un código idéntico al tuyo, salvo que apunta a HKEY_LOCAL_MACHINE en vez de HKEY_CURRENT_USER y funciona perfecto.

Saludos