Delphi 软关闭显示器的代码

本文整理自网络，侵删。

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


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

相关阅读 >>

Delphi crc32算法

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

tidhttpresponseinfo 中文乱码问题解决

Delphi遍历指定目录下指定类型文件的函数

Delphi win7,win2008,win2003,winxp 屏蔽ctrl+alt+del

Delphi 删除字符串中首个字符

Delphi文件管理类函数

Delphi richedit根据鼠标位置定位光标的方法

Delphi shellexecute多种用法

Delphi 10 下提示sharedactivitycontext错误的解决方法

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

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