如何打开/关闭显示器？

Question

我希望能够打开/关闭我的显示器从德尔福脚本，从Windows XP到7。

我在德尔福部分搜索stackoverflow并没有找到答案。

我还发现许多样本在Windows 7上无法使用（仅适用于XP）。

Answer 1

我已经成功地测试了这个在Windows XP 和的Windows 7：

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

要关闭显示器：

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

要打开显示器：

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