Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Processus actifs", 490, 490, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 489, 489)
GUICtrlSetData(-1, "Liste de Processus Actif :")
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
while 1
$list = ProcessList()
for $i = 3 to $list[0][0]
Guictrlsetdata($Edit1, $list[$i][0])
Next
WEnd
Code : Tout sélectionner
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; declaration des variables
Global $list = ProcessList()
; creation et affichage de la GUI
#Region ### START Koda GUI section ### Form=
$GuiAppli = GUICreate("Process List", 405, 307)
$EditProcesslist = GUICtrlCreateEdit("", 0, 0, 401, 265)
$Actualise = GUICtrlCreateButton("Actualisé",300,200,100,100)
GUICtrlSetColor($EditProcesslist, 0x00FF00)
GUICtrlSetBkColor($EditProcesslist, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; pour le retour a la ligne utiliser @CRLF
for $i = 2 to $list[0][0]
; il faut metre 1 comme dernier parametre a GUICtrlSetData... sinon pas de retour a la ligne
GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
next
; Boucle sans fin
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Actualise
$list = ProcessList()
GUICtrlSetData($EditProcesslist, "")
for $i = 2 to $list[0][0]
GUICtrlSetData($EditProcesslist, $list[$i][0] & " : " & $list[$i][1] & @CRLF,1)
next
EndSwitch
WEnd