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:
Código Delphi
[-]
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.