Ich hatte zudem vergessen die Variable "Status" auf Global zu setzen.
Procedure Bildschirmschoner_Ein()
SystemParametersInfo_ (#SPI_GETSCREENSAVEACTIVE, 0, @Status , 0)
If Status = 1
SystemParametersInfo_ (#SPI_SETSCREENSAVEACTIVE, 0,0,0)
DisableMenuItem(#Popmenue_1, #MenuItem_3, 1 ...