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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.