Active Desktop verfügbar? Mit dieser Funktion ermitteln Sie, ob der "Active Desktop" auf dem Rechner des Benutzers verfügbar ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.588
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit dieser Funktion ermitteln Sie, ob der "Active Desktop" auf dem Rechner des Benutzers verfügbar ist.

Fügen Sie hierzu nachfolgenden Code in ein Modul ein:

Option Explicit
 
' Benötigte API-Deklarationen
Private Declare Function FindWindowEx Lib "user32" _
  Alias "FindWindowExA" ( _
  ByVal hWnd1 As Long, _
  ByVal hWnd2 As Long, _
  ByVal lpsz1 As String, _
  ByVal lpsz2 As String) As Long

' Active Desktop verfügbar?
Public Function ActiveDesktopAvail() As Boolean
  Dim hWnd As Long
 
  ' Programm-Manager suchen
  hWnd = FindWindowEx(0&, 0&, "ProgMan", vbNullString)
  If hWnd > 0 Then
    ' Kindfenster "SHELLDLL_DefView" suchen
    hWnd = FindWindowEx(hWnd, 0&, "SHELLDLL_DefView", vbNullString)
    If hWnd > 0 Then
      ' Kindfenster "Internet Explorer_Server" suchen
      hWnd = FindWindowEx(hWnd, 0&, "Internet Explorer_Server", vbNullString)
    End If
  End If
 
  ActiveDesktopAvail = (hWnd > 0)  
End Function