Отключение монитора под Windows 10

/// выключение монитора:
  SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
/// включение:
  SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled:=False;
Timer1.Enabled:=True;
Application.Minimize;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var
t: TTime;
begin
t:=Time;
ProgressBar1.Position:=ProgressBar1.Position-1;
if ProgressBar1.Position=0 then
  begin
  Timer2.Enabled:=False;
  Timer1.Enabled:=True;
  fstart:=False;
  fstop:=True;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Fini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'start.ini');
Start:=StrToTime(Fini.ReadString('work','start','08:00'));
Stop:=StrToTime(Fini.ReadString('work','stop','17:30'));
DTP1.Time:=Stop; //DateTimePicker
DTP2.Time:=Start;
fstart:=False;
fstop:=True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
t: TTime;
begin
t:=Time;
if fstop and (((t>=Timeof(DTP1.Time)) and (t<StrToTime('23:59'))) or
             ((t>=StrToTime('00:00')) and (t<Timeof(DTP2.Time)))) then
  begin
  PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
  fstop:=False;
  fstart:=True;
  end;
if fstart and (t>=Timeof(DTP2.Time)) and (t<Timeof(DTP1.Time)) then
  begin
  if (DayOfWeek(Date) in [1,7]) and CheckBox1.Checked then exit;
{  PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1); не работат!!!}
  fstart:=False;
  fstop:=True;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Button2.Visible:=False;
Button1.Enabled:=True;
Progressbar1.Position:=0;
end;