如何打开/关闭显示器？

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