VB-Homepage Tipp 101

Ausschalten der Screensaveraktivierung

Wenn in Ihrem Programm längere Abhandlungen vorkommen oder Sie einfach nicht möchten, daß Ihrem Programm der Screensaver in die Quere kommt, so läßt sich dieser deaktivieren.

Und dazu gehört auch nicht viel. (wenn man es weiß)

Fügen Sie in den
Allgemein/Deklarationen Abschnitt der Form oder wenn schon enthalten des Moduls [dann ohne Private] folgendes ein.

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Const SPI_SETSCREENSAVEACTIVE = &H11

Der Aufruf erfolgt mit ...
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, False, 0, 0&)

und Aufgehoben wird es mit ...
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, True, 0, 0&)

Bitte auch in Ihrer Fehlerbehandlungsroutine die Deaktivierung wieder aufheben !


Tipp-Download

Quelle : Matthias Schiffer

Zurück zur Übersichtsseite