Как перевести монитор в режим stand-by

Previous  Top  Next

    
 

Если монитор поддерживает режим Stand by, то его можно программно перевести в этот режим. Данная возможность доступна на Windows95 и выше.

 

Чтобы перевести монитор в режим Stand by:

 

Code:

SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0);

 

Чтобы вывести его из этого режима:

Code:

SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);

 

©Drkb::01461

http://delphiworld.narod.ru/

DelphiWorld 6.0