Ich hab noch eine ich such die mal kurz raus.
Edit: Hab mich vertan, die Funktion macht etwas ähnliches. Hab ne Idee gehabt, aber die Funktioniert nicht ganz richtig:
Spoiler anzeigen
#include <array.au3>
$aFenster = _Fenster()
_ArrayDisplay($aFenster)
While 1
$Desktop = _Desktop($aFenster)
ToolTip($Desktop)
Sleep(5)
WEnd
Func _Fenster()
Dim $aFenster[1][2]
$aWinlist = WinList()
If @error Then
Return -1
EndIf
Local $j = 0
For $i = 0 To $aWinlist[0][0]
$iState = WinGetState($aWinlist[$i][1])
If BitAND($iState, Or BitAND($iState, 2) And StringIsSpace($aWinlist[$i][1]) = 0 Then
$j += 1
ReDim $aFenster[$j + 1][2]
$aFenster[$j][0] = $aWinlist[$i][0]
$aFenster[$j][1] = $iState
EndIf
Next
$aFenster[0][0] = $j
Return $aFenster
EndFunc ;==>_Desktop
Func _Desktop($aFenster)
For $i = 1 To $aFenster[0][0]
If Not BitAND($aFenster[$i][1], 16) Then
If $aFenster[$i][0] <> "Program Manager" And $aFenster[$i][0] <> "Start" And $aFenster[$i][0] <> "" Then
Return 0
EndIf
EndIf
Next
Return 1
EndFunc
Das Problem ist das manche "Fenster" in der Liste erscheinen die keinen Namen haben. Dadurch funktioniert das ganze nicht...