Blokowanie uruchamiania wygaszacza

Aby po kliknięciu przycisku Button1 zablokować uruchamianie wygaszacza należy wywyłać funkcję Windows API SystemParametersInfo():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, FALSE, NULL, 0);
}

Natomiast, aby po kliknięciu przycisku Button2 odblokować uruchamianie wygaszacza należy ponownie wywyłać funkcję SystemParametersInfo():

Unit1.cpp

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, TRUE, NULL, 0);
}