#DEFINE SPI_SETSCREENSAVEACTIVE 17 DECLARE SHORT SystemParametersInfo IN Win32API; INTEGER uiAction, SHORT uiParam,; INTEGER pvParam, INTEGER fWinIni * Turn screen saver off lniparm = 0 * lnresult will not be equal to zero if the function succeeds lnresult = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, lniparm, 0, 0) * * Your routine here * * Turn screen save back on lniparm = 1 lnresult = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, lniparm, 0, 0)This assumes that the screen saver has not been already turned off. There is a way to test this condition which requires a slightly different version of this declaration and parameter list.