unit1.pas

delphi 的关闭显示器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
   MONITOR_OFF = $0002;
   MONITOR_ON = -1;
   MONITOR_LOWPOWER = $0001;

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    isOffMonitor: Boolean;
    procedure MonitorOn;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  self.MonitorOn;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  self.MonitorOn;
end;

procedure TForm1.MonitorOn;
begin
  if self.isOffMonitor then
  begin
    PostMessageW(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF);
    Application.Terminate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.isOffMonitor:= false;

  if PostMessageW(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF) then
  begin
    self.isOffMonitor:= true;
    LockWorkStation();
  end
  else
     Application.Terminate;
end;

end.