Bildschirmschoner verhindern

[Hartl]

Hallo zusammen,
ich habe eine Anfänger Frage.
Ich möchte das einsetzten des Bildschirschoners verhindern (keine Admin Rechte zum deaktivieren) , evtl. durch Mauszeigerbewegungen.
Ein Teil für das erkennen von Mausbewegungen funktioniert schon.
Könnte mir da Bitte jemand etwas weiter helfen.

Grüße
Gerhard

[RSBasic]

http://www.rsbasic.de/aktualisierung/wi ... ivieren.pb
Adminrechte werden nicht benötigt.

[Hartl]

... vielen Dank für den Tip.
Es ging vorerst nur am privaten Rechner und am Arbeitsplatz Rechner nicht.
Nach ein paar änderungen hat es auch dort funktioniert.

Nochmals vielen Dank

Grüße
Gerhard

[Waldixxl]

Hallo Hartl
Wäre schon wenn Du uns diese Änderungen auch bekannt geben würdest.
danke
Walter

[Hartl]

Ich hatte zudem vergessen die Variable "Status" auf Global zu setzen.

Code: Alles auswählen

Procedure Bildschirmschoner_Ein()
  SystemParametersInfo_ (#SPI_GETSCREENSAVEACTIVE, 0, @Status , 0)
  If Status = 1
    SystemParametersInfo_ (#SPI_SETSCREENSAVEACTIVE, 0,0,0)
    DisableMenuItem(#Popmenue_1, #MenuItem_3, 1)   
    DisableMenuItem(#Popmenue_1, #MenuItem_2, 0)       
    MessageRequester ("Tool Meldung:", "Bildschirmschoner wurde deaktiviert", # PB_MessageRequester_OK | #MB_ICONINFORMATION)
  EndIf
EndProcedure

Gruß
Gerhard

[Waldixxl]

Danke
Walter