Код:
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <ListBoxConstants.au3>
;
$mainwindow1 = GUICreate ( "Пример", 450, 350, -1, -1, -1, -1)
;
;Local $background
;Local $backgroundFile = @ScriptDir & "\444.jpg"
Local $read, $Reg, $Reglist
Dim $Array[10]
$Array[0]=""
$Button1 = GUICtrlCreateButton("Продолжить", 135, 310, 80)
$Button2 = GUICtrlCreateButton("Закончить", 235, 310, 80)
$read = GUICtrlCreateButton("Смотреть", 20, 20, 150)
$Reglist = GUICtrlCreateList("", 180, 30, 190, 200, $GUI_SS_DEFAULT_LIST + $LBS_NOINTEGRALHEIGHT)
GUICtrlSetLimit(-1, 200) ; ограничить прокрутку по горизонтали
;
GUISetState(@SW_SHOW)
For $i= 1 To 3
$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
If @error Then ExitLoop
$Array[$i]=$var
Next
;
GUISetState()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $read
For $i= 1 To 3
GUICtrlSetData($Reglist, $Array[$i])
Next
EndSelect
WEnd
