Uruchamianie wygaszacza ekranu

Aby po kliknięciu przycisku Button1 uruchomić wygaszacz ekranu wysyłamy do systemu odpowiedni komunikat za pomocą funkcji Windows API SendMessage():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
}