خودم پیداش کردم!


روشن کردن
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1)


خاموش کردن
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2)