Define state.l : SystemParametersInfo_(#SPI_GETSCREENSAVEACTIVE,0,@state,0)
If state = #True
  SystemParametersInfo_(#SPI_SETSCREENSAVEACTIVE,0,0,0)
  MessageRequester("", "Bildschirmschoner wurde deaktiviert",#PB_MessageRequester_Ok)
Else
  SystemParametersInfo_(#SPI_SETSCREENSAVEACTIVE,1,0,0)
  MessageRequester("", "Bildschirmschoner wurde aktiviert",#PB_MessageRequester_Ok)
EndIf