Bildschirmschoner starten Mit der nachfolgenden API-Funktion können Sie den Bildschirmschoner direkt aus Ihrem Programm heraus starten.
Autor:   Andreas Wolff	Bewertung:     [ Jetzt bewerten ]	Views:  31.543
www.andreaswolff.de	System:  Win9x, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit der nachfolgenden API-Funktion können Sie den Bildschirmschoner direkt aus Ihrem Programm heraus starten.

' Hier die benötigte API-Deklaration
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
 
' und die zu verwendenden Konstanten
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
 
' Bildschirmschoner starten
Public Sub StartScreenSaver(ByVal hWnd As Long)
  Dim Result As Long
  Result = SendMessage(hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

Beispielsaufruf:

Private Sub Command1_Click()
  StartScreenSaver Me.hWnd
End Sub