Delphi 软关闭显示器的代码

本文整理自网络，侵删。

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


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

相关阅读 >>

Delphi sqlite vacuum 压缩数据库体积

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi 反转内存的函数

Delphi有用的函数extractfilename、extractfilepath

Delphi spcomm控件的安装

Delphi让form先于控件响应按键

Delphi api屏幕传输算法

Delphi 防局域网控制网速代码

Delphi分享pos函数。(比fastpos还要快)

Delphi 关于access的日期类型字段比较的一点认识

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

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