{关闭显示器}

SendMessage(FindWindow(nil,nil), WM_SYSCOMMAND, SC_MONITORPOWER, 1);
//关闭显示器 根据MSDN，这个参数如果是1，则 表示显示器处于低能耗状态。


{打开显示器}

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);