How To Turn On / Off Monitor avec Delphi

Comprendre WM_SYSCOMMAND message. Avant d'expliquer les mesures nécessaires pour contrôler la puissance d'arrêt, je vais expliquer un peu plus sur la WM_SYSCOMMAND message. WM_SYSCOMMAND est envoyé à la fenêtre de l'informer que l'utilisateur est en fait un niveau du système de commande. Arrêter le suivi est l'une des commandes que le système WM_SYSCOMMAND générés.

Puissance sur l'écran. Il ya trois états de contrôler le pouvoir: On, Off et Stand By (mode basse puissance). Pour pouvoir les contrôler, vous envoyez WM_SYSCOMMAND avec wParam mis à SC_MONITORPOWER et lParam mis à $ FFFFFFFF (ou -1). Le code suivant est un exemple de comment le faire.

/ / puissance sur le moniteur
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, $ FFFFFFFF);

Éteignez le moniteur. Pour éteindre le moniteur, vous envoyez WM_SYSCOMMAND avec wParam mis à SC_MONITORPOWER et lParam fixé à 2.

/ / mise hors tension moniteur
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

Puissance à l'écran en mode stand by. Et en dernier, pour mettre le moniteur en mode de faible puissance (stand by), vous envoyez WM_SYSCOMMAND avec wParam mis à SC_MONITORPOWER et lParam mis à 1.

/ / mise hors tension moniteur
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);

Inclure les unités requises dans votre clause utilisations. Pour la faire fonctionner, vous devez inclure les unités requises dans votre utilise clause. Fonction SendMessage () est déclarée dans windows.pas unité et WM_SYSCOMMAND est déclarée dans messages.pas unité, vous devez donc veiller à ce qu'il soit inclus dans les utilisations clause.