Bildschirmschoner starten II Dieser Tipp zeigt, wie man den Bildschrimschoner aufruft.
Autor:   Microsys Kramer	Bewertung:     [ Jetzt bewerten ]	Views:  8.798
www.access-paradies.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Tipp zeigt, wie man den Bildschrimschoner aufruft.

Fügen Sie nachfolgenden Code in ein Modul ein:

Option Explicit
 
' Benötite API-Deklarationen 
Private Declare Function GetDesktopWindow Lib "user32" () As Long
 
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
Private Const WM_SYSCOMMAND As Long = &H112&
Private Const SC_SCREENSAVE As Long = &HF140&

Public Function StartScreenSaver() As Boolean
  On Error GoTo ErrHandler
 
  Dim lDesktopWindow  As Long
  Dim lRet            As Long
 
  lDesktopWindow = GetDesktopWindow()
  lRet = SendMessage(lDesktopWindow, _
    WM_SYSCOMMAND, SC_SCREENSAVE, 0)
 
  StartScreenSaver = (lRet = 0)
 
ErrHandler:
End Function