Comment allumer/éteindre le (s) moniteur (s)?

Je voulais être en mesure de activer/désactiver les moniteurs mes à partir d'un script Delphi, de Windows XP à 7. J'ai cherché dans la section Delphi sur stackoverflow et je n'ai pas trouvé de réponse.Comment allumer/éteindre le (s) moniteur (s)?

J'ai également trouvé de nombreux exemples qui ne fonctionnent plus sous Windows 7 (uniquement avec XP).

Source

2011-09-04 Whiler

Les premiers résultats googling pour "allumer/éteindre mes moniteurs à partir d'un script Delphi" à peu près tous la liste "yo ur "solution. – Mat

Je suis d'accord Mat; Je l'ajoute juste parce que je ne l'ai pas trouvé sur stackoverflow (et comme j'ai lu [ceci] (http://blog.stackoverflow.com/2011/07/its-ok-to-ask-and-answer-your -own-questions /)) ... – Whiler

Mon ['TSystemState'] (http://specials.rejbrand.se/dev/classes/systemstate/readme.html) fait cela. –

J'ai testé avec succès ce sous Windows XP et Windows 7:

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

Pour désactiver l'écran:

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

Pour allumer l'écran:

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

Source

2011-09-04 10:54:25 Whiler

Si vous savez pourquoi il se bloque avec la diffusion ... J'ai essayé avec Application.ProcessMessages; sans meilleur résultat! – Whiler

Vous devez probablement utiliser PostMessage au lieu de SendMessage. – tinman

Je viens de le tester! et il fonctionne! Merci beaucoup! Je mets à jour la deuxième partie de ma réponse. – Whiler

Comment allumer/éteindre le (s) moniteur (s)?

Répondre

Questions connexes