笔记本手动关闭显示器(附测试代码)
来源:互联网 发布:dota2画质优化 编辑:程序博客网 时间:2024/05/18 01:28
使用 Colse LCD,运行就关闭显示器,有鼠标或者键盘事件就会打开
unit OpenCloseMonitor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ButtonCloseMonitor: TButton;
procedure FormCreate(Sender: TObject);
procedure ButtonCloseMonitorClick(Sender: TObject);
private
procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButtonCloseMonitorClick(Sender: TObject);
begin
// 关闭显示
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Width := Screen.Width;
Height := Screen.Height;
ButtonCloseMonitor.Align := alClient;
Application.OnMessage := OnAppMessage;
end;
procedure TForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.message of
WM_CHAR:
begin
// 打开显示
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
Application.Terminate;
end;
end;
end;
end.
- 笔记本手动关闭显示器(附测试代码)
- 关闭笔记本显示器
- [VC]关闭笔记本显示器
- [VC]关闭笔记本显示器
- Ubuntu笔记本关闭显示器
- 笔记本合上以后不关闭外接显示器
- ubuntu12.04外接显示器,关闭笔记本的显示器
- 关闭显示器
- 关闭显示器
- Linux 笔记本显示器配置
- 笔记本外接显示器
- 笔记本双显示器设置
- C++ 关闭显示器 打开显示器
- C#关闭显示器,打开显示器
- 笔记本外接显示器,同时使用双显示器
- 黑屏助手V1.0(本本不能手动关闭显示器?不想屏保?)
- C#实现笔记本上网设置的切换(附代码)
- ubuntu12.04笔记本连接显示器
- jquery.tmpl.js 字符串不转码,像Razor里面的@html.Raw()一样输出
- 分享pdf文件转换成txt格式的方法
- STM32时钟学习1
- APP文档的导入
- iTween 用法总结
- 笔记本手动关闭显示器(附测试代码)
- 支付宝接口开发总结(php)
- MySql 里的IFNULL、NULLIF和ISNULL用法
- 用python和shell检测centos版本
- AIX系统下RAC故障之一--CRS服务启动失败(coredump)
- HDU - bc - Xiao Ming climbing (优先队列)
- 利用functools模块防止被修饰器修改属性
- Android 中的 Service 全面总结
- C#必知的基础