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 ! |