Delphi 软关闭显示器的代码

本文整理自网络，侵删。

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


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

相关阅读 >>

Delphi 一个文件重复生成的小工具[附源码]

Delphi crc32算法

Delphi trim 删除字符串左右两边的空格

Delphi创建密钥文件

Delphi 调用外部 dll 中的函数(2. 晚绑定)

Delphi isleapyear、isinleapyear - 是否是闰年

Delphi mscomm 实时串口通讯

Delphi 让程序主窗口不响应“显示桌面”

Delphi读写utf-8、unicode格式文本文件

Delphi 验证guid的函数

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

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