>#DEFINE SPI_GETSCREENSAVEACTIVE 16
>#DEFINE SPI_SETSCREENSAVEACTIVE 17
>
>DECLARE SHORT SystemParametersInfo IN WIN32API ;
> INTEGER uiAction, SHORT uiParam, ;
> INTEGER @pvParam, INTEGER fWinIni
>
>lnvparm = 0
>? (SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0, @lnvparm,0) # 0)
>
>IF lnvparm = 0
> liniparm = 1 && Enable Screen saver
> ? "Screen saver is being enabled"
>ELSE
> liniparm = 0 && Disable Screen Saver
> ? "Screen saver is being disabled"
>ENDIF
>
>? (SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,liniparm,0,0) # 0)
>
>