Fórum Iniciar Programa com windows 10 - Delphi #572038

var

  ArquivoINI: TIniFile;   // IniFiles em uses
  Reg: TRegistry;
  S: string;


  begin

case RadioGroup1.ItemIndex of


   0: begin
   try
   Reg := TRegistry.Create;
   S:=ExtractFileDir(Application.ExeName)+'\\'+ExtractFileName(Application.ExeName);
   Reg.rootkey:=HKEY_LOCAL_MACHINE;
   Reg.Openkey('SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN',false);
   Reg.WriteString('RK_BACKUP',S);
   Reg.closekey;
   Reg.Free;
   ArquivoINI := TIniFile.Create('C:\\RKbackup\\BackupConfig.ini');
   ArquivoINI.WriteInteger('CONFIGURAÇõES', 'Autoinciar',RadioGroup1.ItemIndex);
   ArquivoINI.Free;

       except
       on e : exception do

      showmessage('Feche o programa:'+#13+
      '1- Clique com o botão direito no atalho do programa de backup"!!!'+#13+
      '2- Opção Propriedade / Aba compatibilidade'+#13+
      '3- Marque a caixa "Executar esse programa como administrador"'+#13+
      'Pronto, agora sim, e volte a marcar essa opção!!!' );
 
   end;
end;

    1: begin
   Reg := TRegistry.Create;
   S:=ExtractFileDir(Application.ExeName)+'\\'+ExtractFileName(Application.ExeName);
   Reg.rootkey:=HKEY_LOCAL_MACHINE;
   Reg.Openkey('SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN',false);
   Reg.DeleteValue('RK_BACKUP');
   Reg.closekey;
   Reg.Free;
   ArquivoINI := TIniFile.Create('C:\\RKbackup\\BackupConfig.ini');
   ArquivoINI.WriteInteger('CONFIGURAÇõES', 'Autoinciar',RadioGroup1.ItemIndex);
   ArquivoINI.Free;
  // Showmessage('Valor Excluido!');
   
end;
    end;
    end;