System Delphi

-start
SendMessage(handle, wm_syscommand, SC_SCREENSAVE, 0);
----------------------------------------------------------------------
-disable
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
----------------------------------------------------------------------
-enable
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
----------------------------------------------------------------------