$Form1 = GUICreate("Form1", 401, 272, 192, 124)
$Combo1 = GUICtrlCreateCombo("Combo1", 88, 72, 250, 25)
$Wins = WinList()
For $i = 1 To $Wins[0][0]
$State = WinGetState($Wins[$i][1])
If BitAND($State, 58) Then
If $Wins[$i][0] <> 'Program Manager' Then GUICtrlSetData($Combo1, $Wins[$i][0] & '|')
EndIf
Next
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
WEnd