#pas
unit hiMonitor;

interface

uses Windows,Kol,Share,Debug,Messages;

type
  THIMonitor = class(TDebug)
    procedure _work_doMonitorOFF(var _Data:TData; Index:word);
  end;

implementation

procedure THIMonitor._work_doMonitorOFF;
var
scm:integer;
begin
   if ReadBool(_Data) then
     scm := 1
   else scm := 0;
    SendMessage(Applet.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, scm)
end;
end.