Add(InlineCode,3929185,154,154)
{
 WorkPoints=#12:doMonitorOFF|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,Kol,Share,Debug,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|57:     procedure doMonitorOFF(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|35:procedure THiAsmClass.doMonitorOFF;|3:var|14:  scm:integer;|5:begin|25:  if ReadBool(_Data) then|12:    scm := 1|6:  else|13:    scm := 0;|65:  SendMessage(Applet.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, scm)|4:end;|0:|4:end.|
}