código de Delphi para activar el protector de pantalla no funciona en Windows 7

Question

Tengo una aplicación de Delphi que coloca el equipo en screensave utilizando

hWnd := GetDesktopWindow ;
SendMessage (hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0) ;

Esto funciona bien en XP, pero me parece que no funciona bajo (incrustado) de Windows 7.

¿Alguna idea?

Answer 1

A mí me funciona (Windows 7 Home Premium de 64 bits). ¿Ha intentado enviar el mensaje a otra ventana, como Handle? (Además, ¿está seguro de que Tienes un protector de pantalla instalado?)

Answer 2

El mensaje dice SC_SCREENSAVE la ventana de destino para ejecutar la aplicación de protector de pantalla se especifica en la sección [boot] del archivo System.ini. Como las ventanas o / s está incorporada, que es una versión reducida de ventanas, tranquila probable que el archivo system.ini está configurado para ningún protector de pantalla. Compruebe el archivo system.ini.