void __fastcall TForm1::Button3Click(TObject *Sender)
{
ShowWindow(FindWindow("Shell_TrayWnd", NULL), SW_HIDE);
int ilRetVal = 0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, true, &ilRetVal, NULL);
}
//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender)
{
ShowWindow(FindWindow("Shell_TrayWnd", NULL), SW_SHOW);
int ilRetVal = 0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, false, &ilRetVal, NULL);
}
//---------------------------------------------------------------------------