ferget, собсно обычный код из примера, совмещенный с другим кодом из другого примера
читать дальше »
#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[3]
$Array[0]=1
$Array[1]=2
$Array[2]=3
$Button1 = GUICtrlCreateButton("Продолжить", 135, 310, 80)
$Button2 = GUICtrlCreateButton("Закончить", 235, 310, 80)
$read = GUICtrlCreateButton("Смотреть", 20, 20, 150)
;
GUISetState(@SW_SHOW)
;
GUISetState()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $read
For $i= 0 To 3
$Reg = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
$Reglist = GUICtrlCreateList("", 180, 30, 190, 200, $GUI_SS_DEFAULT_LIST + $LBS_NOINTEGRALHEIGHT)
GUICtrlSetData($Reglist, Array[$i])
GUICtrlSetLimit(-1, 200) ; ограничить прокрутку по горизонтали
Next
EndSelect
WEnd
;
While 1
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $Button1
MsgBox(0, "Нажали кнопку1", "Вы нажали OK!")
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $mainwindow1
MsgBox(0, "Событие GUI", "Вы нажали ЗАКРЫТЬ в главном окне! Завершаем...")
ExitLoop
Case $msg[0] = $Button2 And $msg[1] = $mainwindow1
MsgBox(0, "Событие GUI", "Вы нажали ЗАКРЫТЬ в главном окне! Завершаем...")
ExitLoop
EndSelect
WEnd
