Sprawdzenie czy wygaszacz jest aktywny

Aby po kliknięciu przycisku Button1 sprawdzić, czy wygaszacz jest aktywny skorzystamy z funkcji Windows API SystemParametersInfo, która w zależności od przekazanego jej parametru daje możliwość odczytu różnych ustawień systemowych:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   BOOL czyAktywny;
  
   SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, &czyAktywny, 0);
   
   if
(czyAktywny)
      Label1->Caption = "Wygaszacz aktywny";
   else
      Label1->Caption = "Wygaszacz nieaktywny";
}