System Delphi

//Kapat
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);
//AƧ
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);