Come per accendere / spegnere monitor con Delphi

Capire WM_SYSCOMMAND messaggio. Prima di illustrare i passi necessari per controllare il potere di arresto, vorrei spiegare un po 'come la WM_SYSCOMMAND messaggio. WM_SYSCOMMAND viene inviato alla finestra per informare l'utente che sta facendo un comando a livello di sistema. Spegnere il monitor è uno dei comandi di sistema che ha generato WM_SYSCOMMAND.

Accendere il monitor. Ci sono tre stati di controllare il potere: On, Off e Stand By (modalità a bassa potenza). Al potere il monitor, si invia WM_SYSCOMMAND con wParam impostato su SC_MONITORPOWER e lParam fissato a $ FFFFFFFF (o -1). Il codice riportato di seguito è un esempio di come farlo.

/ / potenza del monitor
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, $ FFFFFFFF);

Spegnere il monitor. Per spegnere il monitor, si invia WM_SYSCOMMAND con wParam impostato su SC_MONITORPOWER e lParam impostato su 2.

/ / spegnimento monitor
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

Potenza al monitor di stand by. E per ultimo, a mettere il monitor in modalità a bassa potenza (stand by), si invia WM_SYSCOMMAND con wParam impostato su SC_MONITORPOWER e lParam impostato su 1.

/ / spegnimento monitor
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);

Includi nella tua richiesta di unità utilizza clausola. Per farlo funzionare, è necessario includere nella vostra richiesta di unità utilizza clausola. Funzione SendMessage () è dichiarata in windows.pas unità e WM_SYSCOMMAND è dichiarata in messages.pas unità, quindi è necessario garantire che esso sia incluso nella clausola usi.