Activar el salvapantallas

[azulin]

Hola a todos

Estoy desarrollando una aplicación Kiosko con Turbo Delphi, y requiere que cuando esté en modo standby, reproduzca una animación (video, flash, lo que se pueda) a pantalla completa. El flujo del Kiosko, en cuanto a pantallas, sería algo así:

MENU (standby) --> CONTENIDO --> DESPEDIDA --> MENU (standby)

Básicamente se trata de poder controlar el salvapantallas desde delphi. La idea sería poder arrancarlo por código antes de mostrar la pantalla MENU.

Mi duda es: ¿es posible lanzar (no activar) el salvapantallas desde código?

No se si me he explicado bien...

Un saludo y gracias por vuestra ayuda!

[dec]

Hola,

De Zarko Gajic:

Código Delphi [-]
function ActivateScreenSaver
         (Activate: boolean): boolean;
var IntActive: byte;
begin
   if Activate then
     IntActive := 1
   else
     IntActive := 0;

   Result := SystemParametersInfo
             (SPI_SETSCREENSAVEACTIVE, IntActive,
              nil, 0) ;
end;

[azulin]

Estoy intentando ejecutar ese código pero no consigo que funcione...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ActivateScreenSaver(true);
end;

La idea es que al darle al botón arranque el salvapantallas.

[[Lepe]]

Intenta con:

procedure TForm1.Button1Click(Sender: TObject);
begin
  sleep(700);
  ActivateScreenSaver(true);
end;

lo mandas actiar, pero aún estás soltando el ratón, y probablemente moviéndolo unos pixels, por tanto ni siquiera aparece.

Me suele pasar al apagar el monitor.

Saludos

[azulin]

Sigo sin conseguirlo usando Sleep ...

¿estoy haciendo algo mal? ¿alguna idea?

Muchisimas gracias!

[dec]

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.

[azulin]

Ahora sí! Perfecto!

Muchísimas gracias!