Zablokowanie przełączania aplikacji kombinacją ALT+TAB

Aby po kliknięciu przycisku Button1 zablokować użytkownikowi możliwość przełączania się z naszego programu do innych za pomocą kombinacji ALT+TAB informujemy Windowsa, że nasz program jest wygaszaczem ekranu (sztuczka ta działa w systemie Windows 95 i 98, natomiast nie działa w systemie Windows NT i nie wiadomo, czy będzie działała w przyszłych wersjach Windowsa). W tym celu wywołujemy funkcję Windows API SystemParametersInfo(), która przechowuje i ustawia różne opcje systemu:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   LongBool OldValue;
   SystemParametersInfo(97, Word(true), &OldValue, 0);
}

natomiast, aby po kliknięciu przycisku Button2 z powrotem przywrócić możliwość przełączania aplikacji kombinacją ALT+TAB:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   LongBool OldValue;
   SystemParametersInfo(97, Word(false), &OldValue, 0);
}