Se para al activarse el salvapantallas

[[nlsgarcia]]

mosco,

Empezado por mosco

El programa se ejecuta perfectamente hasta que salta el salvapantallas de windows (3 minutos).

Dudas:

1- ¿La falla se presenta con cualquier opción de Protector de Pantalla de forma automática y manual independientemente del lapso de tiempo?

2- ¿Haz probado comentar de manera selectiva (De lo general a lo específico) el código dentro del Repeat-Until para tratar de aislar la falla?

3- ¿Haz probado el programa en otro Computador con igual y diferente Sistema Operativo Windows?

4- ¿Haz probado el programa en el mismo Computador en Modo Safe?

En Resumen: La idea general es tratar de aislar la falla para posteriormente encontrar su solución.

Prueba hacer este cambio:

Código Delphi [-]
   Loop := True;

   Repeat

   // Tu Código.
 
   // Permite cancelar el ciclo externamente por medio de la variable global Loop
   until Loop = False;

Espero sea útil

Nelson.