Delphi 软关闭显示器的代码

本文整理自网络，侵删。

 
// Monitor Off
procedure MonitorOff;
begin
  SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MonitorOff;
end;
 

相关阅读 >>

Delphi tstrings类的一些技巧

Delphi 3句话绕过xxx拦截删除桌面快捷方式

Delphi delete 字符串函数

最简单的Delphi驱动结束进程

Delphi 系统任务栏 窗口状态显示进度

推荐一套免费跨平台的Delphi 哈希及加密算法库

Delphi 之 标签组件(tlabel组件)

Delphi 从一个html返回所有的图片链接

indy 中idhttp元件出现http status 302错误

Delphi 在firemonkey应用程序中设置application.title

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

转载请注明出处：木庄网络博客 » Delphi 软关闭显示器的代码