Wyłączanie i włączanie monitora

Aby po kliknięciu przycisku Button1 wyłączyć monitor wysyłamy odpowiednią wiadomość za pomocą funkcji Windows API SendMessage():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
}

Później program musi jeszcze sam włączyć monitor (użytkownik tego nie może zrobić ponieważ nic nie widzi) np. w funkcji obsługującej zdarzenie OnTimer komponentu Timer:

Unit1.cpp

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
}