System Delphi

//kapatmak için
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,0);
//açmak için
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,0);