delphi 关闭显示器

本文整理自网络，侵删。

 {关闭显示器} 

SendMessage(FindWindow(nil,nil), WM_SYSCOMMAND, SC_MONITORPOWER, 1);
//关闭显示器 根据MSDN，这个参数如果是1，则 表示显示器处于低能耗状态。


{打开显示器} 

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

 

相关阅读 >>

Delphi 免杀下载者代码

Delphi图像匹配算法

Delphi正则表达式匹配中文

settimer函数用法

Delphi unigui获取连接的客户端列表

Delphi 免杀下载者源代码

Delphi怎么实现一定范围内的随机数呢？

Delphi xe android platform uses-permission[1] 权限列表

Delphi canvas.lineto 画线

Delphi 实现程序 动态 类名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 关闭显示器