Delphi 软关闭显示器的代码

本文整理自网络，侵删。

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


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

相关阅读 >>

Delphi dll初始化和退出处理

Delphi 获取打开文件的pid

Delphi 在瑞星2010全保护下创建文件夹

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 获取ie7 ie8 ie9 地址栏网址

Delphi文本文件读写

Delphi中调用http xml

Delphi sccoloredid，星际争霸彩色 id 修改器 v0.2.0，支持 windows vista

Delphi inttostransi

Delphi获取闲置时间

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

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