function MonitorOff(off:boolean;hWnd:HWND):boolean;
begin
if off = true then
SendMessage(hWnd,wm_SysCommand,
SC_MonitorPower,
1) else
SendMessage(hWnd,wm_SysCommand,
SC_MonitorPower,
0);
end;