Dann mal konkreter... Lern ich das halt Pfftt..
Case $Menu_Program_Choose funktioniert in diesem Fall wegen der For Schleife ja nur beim letzten gelisteten Eintrag. Wie muss ich das umbauen das alle Einträge im Case erfasst und ausgewertet werden?
Spoiler anzeigen
#include <File.au3>
#include <Array.au3>
#Include <GuiListBox.au3>
Dim $array1,$main1,$list1
[/autoit] [autoit][/autoit] [autoit]$windows = WinList()
$main1 = GUICreate("Auto Refresher",400,400,200,200)
$Menu_Program = GUICtrlCreateMenu ("ChooseProgram")
$Menu_Open = GUICtrlCreateMenu ("Open", $Menu_Program)
For $i = 1 To UBound ($windows) - 1
If $windows[$i][0] <> "" AND IsVisible($windows[$i][1]) Then
$Menu_Program_Choose = GUICtrlCreateMenuItem ($windows [$i][0], $Menu_Open)
EndIf
Next
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
ExitLoop
Case $Menu_Program_Choose
MsgBox(0, "", "")
EndSwitch
WEnd
Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc