Come accendere/spegnere il/i monitor/i?

Question

volevo essere in grado di accendere/off miei monitor da una sceneggiaturaDelphi, da Windows XP a 7.

Ho cercato all'interno della sezione Delphi su stackoverflow e non ho trovato la risposta.

ho trovato anche molti campioni che non funziona più su Windows 7 (solo con XP).

Answer 1

Ho testato con successo questo su Windows XP e Windows 7:

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

Per spegnere il monitor:

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

Per accendere il monitor:

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