¿Cómo encender/apagar el/los monitor (es)?

Question

que quería ser capaz de Encender/apagar mis monitores de un guión Delphi, desde Windows XP a 7.

He buscado en la sección Delphi en y no he encontrado la respuesta.

También encontré muchas muestras que ya no funcionan en Windows 7 (solo con XP).

Answer 1

que han probado con éxito esto en Windows XP y Windows 7:

const 
    MONITOR_ON  = -1; 
    MONITOR_OFF  = 2; 
    MONITOR_STANDBY = 1; 

Para apagar el monitor:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF); 

Para encender el monitor:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON);