如何打開/關閉顯示器？

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);