Odczyt i zmiana czasu, po którym uruchamia się wygaszacz

Aby po kliknięciu przycisku Button1 odczytać czas, po którym uruchamia się wygaszacz 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)
{
   int Timeout;
   SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, &Timeout, 0);      Label2->Caption = "Czas oczekiwania na uruchomienie = " + IntToStr(Timeout);
}

Czas, po którym uruchamia się wygaszacz podawany jest w sekundach.

Aby po kliknięciu przycisku Button2 zmienić czas, po którym uruchamia się wygaszacz (w tym przykładzie po 5 minutach = 300 sekundach):

Unit1.cpp

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

Przy zmianie czasu, po którym będzie się uruchamiał wygaszacz, podajemy ten czas w sekundach.