Отловить событие отключения\выключения монитора

[shvedoff]

Как можно отловить событие при выключении или отключения монитора?
Чтобы при его отключении или выключении высвечивалось какое-то сообщение, так же и при его включении.

[p51x]

SC_MONITORPOWER

[shvedoff]

Это я понял
Но не понял как его применять?
В таймере? Что с чем сравнивать?
Не поделитесь кусочком кода?
Перерыл весь интернет, нашел только как отправить запрос на то или иное действие, а вот как его получить - нет.

[p51x]

Что значит как применять? Причем тут таймер? В функции окна ловить, как и остальные и реагировать.

[shvedoff]

Сообщение от p51x

Что значит как применять? Причем тут таймер? В функции окна ловить, как и остальные и реагировать.

Можно кусок кода для примера?

[shvedoff]

procedure TForm2.WMSysCommand (var Message: TMessage);
begin
if Message.WParam = SC_MONITORPOWER then
 begin
   ShowMessage('Test!');
  exit;
end;
inherited;
end;

[BLACK_RAIN]

если lparam =-1: монитор включен
если lparam = 2 : выключен
вроде так

[shvedoff]

Сообщение от BLACK_RAIN

если lparam =-1: монитор включен
если lparam = 2 : выключен
вроде так

Как это в коде обыграть?

[p51x]

любым условным оператором - ифом или свитчем, например

[shvedoff]

Сообщение от p51x

любым условным оператором - ифом или свитчем, например

Куда этот lParam вставлять?!

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand (var Message: TMessage); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.WMSysCommand (var Message: TMessage);
begin
 if Message.lParam = -1 then
   showMessage('Включен');
 inherited;

 if Message.lParam = 2 then
   showMessage('Выключен');
 inherited;
end;

end.