#DEFINE SPI_GETSCREENSAVEACTIVE 16 DECLARE SHORT SystemParametersInfo IN Win32API; INTEGER uiAction, SHORT uiParam,; INTEGER @pvParam, INTEGER fWinIni lnvparm = 0 llsuccess = (SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @lnvparm, 0) # 0)If the function succeeds (and it should), lnvparm will equal 1 (Active) or 0 (Inactive). In order to disable the screen saver, you need:
#DEFINE SPI_SETSCREENSAVEACTIVE 17 DECLARE SHORT SystemParametersInfo IN Win32API; INTEGER uiAction, SHORT uiParam,; INTEGER pvParam, INTEGER fWinIni lniparm = 0 llsuccess = (SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, lniparm, 0, 0) # 0)To activate the screen saver, if it's been disabled, set liniparm equal to 1.