delphi - 如何打开/关闭显示器？

Question

我希望能够通过Delphi脚本打开/关闭我的显示器，从Windows XP到7。

我在 Delphi 部分中搜索了 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);