本文整理自网络,侵删。
{关闭显示器}
SendMessage(FindWindow(nil,nil), WM_SYSCOMMAND, SC_MONITORPOWER, 1);
//关闭显示器 根据MSDN,这个参数如果是1,则 表示显示器处于低能耗状态。
{打开显示器}
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
相关阅读 >>
Delphi 10.3版本获取windows系统版本和cpu信息
Delphi的initialization和finalization
Delphi trestclient + trestrequest + trestresponse
更多相关阅读请进入《Delphi》频道 >>