запуск и остановка заставки

Question

Должно быть, было просто, я бы подумал. Я хочу заставить ПК перейти в режим экранной заставки и выйти из него, когда условия, на которые я проверяю D2006), станут реальностью. Он не работает:

if ScreenSaverExitRequested then 
     begin 
     SystemParametersInfoResult := SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @ScreenSaverIsRunning, 0); 
     if ScreenSaverIsRunning then 
      begin 
      SystemParametersInfoResult := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, UINT(false), nil, SPIF_SENDWININICHANGE); 
      end ; 
     end ; 
.... 
    if ScreenSaverEntryRequested then 
     begin 
     SystemParametersInfoResult := SystemParametersInfo (SPI_SETSCREENSAVEACTIVE, 1, nil, SPIF_SENDWININICHANGE) ; 
     end ; 

SystemParametersInfoResult возвращает true в каждом случае. Вызов SystemParametersInfo, похоже, не имеет никакого эффекта. Если я поместил ПК в режим SS, используя кнопку «Предварительный просмотр» в диалоговом окне «Свойства экрана панели управления», выполнение моего кода ничего не делает.

Answer 1

SPI_SETSCREENSAVEACTIVE фактически не запускает/останавливает заставку. Он предназначен для того, чтобы фактические заставки заставляли ОС знать, что они работают или выходят. Чтобы запустить скринсейвер, попробуйте отправить сообщение WM_SYSCOMMAND/SC_SCREENSAVE в окно GetDesktopWindow().