EnableExplicit

Define SSaverIsActive

SystemParametersInfo_(#SPI_GETSCREENSAVEACTIVE, 0, @SSaverIsActive, 0)
If SSaverIsActive=1
  MessageRequester("","Bildschirmschoner ist aktiviert.",0)
Else
  MessageRequester("","Bildschirmschoner ist deaktiviert.",0)
EndIf