Помогите как сделать так чтоб функция ProcessList помещала процессы в List

[max1300]

Помогите как сделать так чтоб функция ProcessList помещала процессы в элемент List у меня имеется такой код

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=D:\KodaFormDesinger\Forms\GetProccesInform.kxf
$Form1 = GUICreate("GetProgInform", 525, 355, 193, 125)
$List1 = GUICtrlCreateList("", 0, 0, 521, 292)
$Button1 = GUICtrlCreateButton("получить процессы", 176, 312, 161, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1 
			$qlist = ProcessList()
			GUICtrlSetData($List1,$qlist)
	EndSwitch
WEnd

ни чего не работает

 

[gloss]

Держи

Спойлер

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=D:\KodaFormDesinger\Forms\GetProccesInform.kxf
$Form1 = GUICreate("GetProgInform", 525, 355, 193, 125)
$List1 = GUICtrlCreateList("", 0, 0, 521, 292)
$Button1 = GUICtrlCreateButton("получить процессы", 176, 312, 161, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $qlist = ProcessList()
			For $i = 1 To $qlist[0][0]
				GUICtrlSetData($List1,$qlist[$i][0],1)
			Next
    EndSwitch
WEnd

 

[InnI]

max1300
При наличии нескольких процессов с одинаковыми именами, пример gloss'a отображает в списке имя только одного из них.
Если вам нужны имена ВСЕХ процессов, можно сделать так

Case $Button1
            GUICtrlSetData($List1, "") ; очистка
            $qlist = ProcessList()
            For $i = 1 To $qlist[0][0]
                ; GUICtrlSetData($List1,$qlist[$i][0],1)
                GUICtrlSendMsg($List1, 0x0180, 0, $qlist[$i][0]) ; $LB_ADDSTRING
            Next