hWnd = FindWindowEx_(#Null,#Null,"ProgMan",#Null)
hWnd = FindWindowEx_(hWnd,#Null,"SHELLDLL_DefView",#Null)
hWnd = FindWindowEx_(hWnd,#Null,"Internet Explorer_Server",#Null)
If hWnd=0
  MessageRequester("","Active Desktop ist nicht verfügbar.",0)
Else
  MessageRequester("","Active Desktop ist verfügbar.",0)
EndIf