笔记本手动关闭显示器(附测试代码)

最新推荐文章于 2024-12-26 09:12:14 发布

xiuzhentianting

最新推荐文章于 2024-12-26 09:12:14 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/xiuzhentianting/article/details/48491961

delphi 专栏收录该内容

68 篇文章

订阅专栏

这篇博客介绍了如何使用Delphi编写代码来手动控制笔记本显示器的关闭和开启。通过发送WM_SYSCOMMAND消息，当点击按钮时关闭显示器，而当检测到键盘或鼠标活动时则自动打开显示器。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用 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.