如何打开/关闭显示器？

Question

我希望能够从Delphi脚本打开/关闭我的显示器,从Windows XP到7.

我在stackoverflow的Delphi部分内搜索过,但没有找到答案.

我还发现许多样本在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);