🚀 go-pugleaf

Hello, what about to do it like this way
----------------------------------------



BEGIN_MESSAGE_MAP
           MESSAGE_HANDLER(WM_SYSCOMMAND,TMessage,SysCommand)
END_MESSAGE_MAP(TForm)
...........
...........

void __fastcall TForm1::SysCommand(TMessage& Msg)
{
int ii;
ii = Msg.WParam & 0xFFF0;
if (ii==SC_SCREENSAVE)
    {
    screensaved = 1;
    }
TForm::Dispatch(&Msg);
}
..............
..............
..............
..............
// some event shuts down the screensaver
     if (screensaved)
        {
        hwnd_sc = FindWindow("WindowsScreenSaverClass",NULL);
        if (hwnd_sc==NULL) hwnd_sc = HWND_BROADCAST;
        SendMessage (hwnd_sc,WM_KEYDOWN,0,0);
        screensaved = 0;
        }
     SendMessage (Handle,WM_ACTIVATE,WA_ACTIVE,0);
..............
..............
..............
..............
..............




//   You can also activate screensaver (for example by button click)
.... Button1Click (*Sender)
{
SendMessage (HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
}