[beve]

Фон создается как надо, но при этом программа не устанавливается, может подскажете что я делаю не так? »

Это, из твоего скрипта:

Код:

	
$1 = BitAND ( GUICtrlRead ( $Winrar ), $Gui_Checked )

If $1 = 1 Then
	MsgBox ( 64, '', 'asd' )
	RunWait ( @ScriptDir & '\' & "Arhiv\WRAR350RU.exe /s") 
	GUICtrlSetState ( $Winrar, $GUI_UNCHECKED )
	GUICtrlCreateLabel ( 'OK', 180, 54, -1, -1 )
	GUICtrlSetColor ( -1 , 0x33CC33 )
EndIf

нужно ставить в обработку:

Код:

case $BUTTON_1
сдесь...

Вот для нагладности только (ибо многое придется перепроверять и уточнять в скрипте), как можно:

читать дальше »

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $iTopForCheckbox=10

Global $aTitleNameID[5][3]
;$aTitleNameID[0][0]=содержит текст-название программы
;$aTitleNameID[0][1]=содержит название программы
;$aTitleNameID[0][2]=будет содержать Id созданного чекбокса для этой программы
;и т.д. от 0 до 4 для других программ
$aTitleNameID[0][0]="прога 1"
$aTitleNameID[0][1]="notepad.exe параметр.txt"
$aTitleNameID[1][0]="прога 2"
$aTitleNameID[1][1]="cmd.exe"
$aTitleNameID[2][0]="прога 3"
$aTitleNameID[2][1]="notepad.exe"
$aTitleNameID[3][0]="прога 4"
$aTitleNameID[3][1]="notepad.exe"
$aTitleNameID[4][0]="прога 5"
$aTitleNameID[4][1]="notepad.exe"


GUICreate("Установка программ", 320, 450)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreatePic(@ScriptDir & "\fon2.jpg", 0, 0, 500, 470, $WS_CLIPSIBLINGS)
For $i=0 to UBound ($aTitleNameID)-1
    $aTitleNameID[$i][2] = _GUICtrlCreateCheckbox($aTitleNameID[$i][0], 10, $iTopForCheckbox, 90, 15)
    $iTopForCheckbox+=25
Next
$BUTTON_1 = GUICtrlCreateButton ( 'Установить', 210, 420, 100, -1 )
GUISetState()

While 1
$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $BUTTON_1
            $iTopForCheckbox=10
            for $i=0 to UBound($aTitleNameID)-1
                if BitAND ( GUICtrlRead ($aTitleNameID[$i][2]), $Gui_Checked ) then
                    RunWait($aTitleNameID[$i][1])
                    GUICtrlSetState ( $aTitleNameID[$i][2], $GUI_UNCHECKED )
                    GUICtrlCreateLabel ( 'OK', 10+90, $iTopForCheckbox)
                    GUICtrlSetColor ( -1 , 0x33CC33 )
                    $iTopForCheckbox+=25
                else
                    $iTopForCheckbox+=25
                endif
            next
            exit
    EndSwitch
WEnd

Func _GUICtrlCreateCheckbox($sText, $iLeft, $iTop, $iWidth, $iHeight, $iStyle = -1, $iExStyle = -1)
    Local $ID = GUICtrlCreateCheckbox($sText, $iLeft, $iTop + Round(($iHeight - 13) / 2), 13, 13, $iStyle, $iExStyle)
    If $ID = 0 Then
        Return 0
    EndIf
    GUICtrlCreateLabel($sText, $iLeft + 16, $iTop + Round(($iHeight - 13) / 2) - 0, $iWidth - 16, 14)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    Return $ID
EndFunc   ;==>_GUICtrlCreateCheckbox