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

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

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.