Hola,
Creo que metí la pata. La función anterior sirve para habilitar o deshabilitar el activado automático del salvapantallas, pero, no para activarlo.
He encontrado aquí lo siguiente, que, puede usarse para activar el salvapantallas que esté utilizándose en el sistema:
Código Delphi
[-]
SendMessage(GetDesktopWindow(),
WM_SYSCOMMAND, SC_SCREENSAVE, 0);
En la ayuda de la
función "SystemParameterInfo()" del API de Windows, encontrarás también que puedes "hacer cosas" con el salvapantallas. En fin, a ver si ahora te apaña.