如何打开/关闭显示器？

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