笔记本手动关闭显示器(附测试代码)
2015-09-16 11:53
302 查看
使用 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.
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.
相关文章推荐
- 【Java 之 JVM】Java内存结构概述
- java中将数组、对象、Map、List转换成JSON数据
- JDK源码阅读之List接口
- spring AOP切入点表达式规则
- java 读取mysql中数据 并取出
- 枚举用法实例
- php 将excel文件写到word中
- Python调用第三方接口实现nagios短信报警
- ruby 使用gem安装换source
- VS2005格式化代码
- 初探 Qt Opengl【2】
- Java中泛型数组的使用
- java io详解
- java基础-ArrayList
- C语言命令行参数的使用
- 当eclipse导入工程时报"The builder launch configuration could not be found"错误时的解决方法
- Eclipse调试进入JDK源码
- java 图片上写文字
- Python MySQLdb模块的安装与使用
- java中两个for循环的区别