procedure SetDisableSysKey(Value: boolean); var Dummy: integer; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Integer(Value), @Dummy, 0) end;