[Angelus]

Код:

#requireadmin 
#Include <GuiComboBox.au3>
#include <GUIConstants.au3> 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>

Opt( 'TrayIconDebug', 1 )

#Region - Постоянные переменные
Const $Titel_os = 'Автоматическая установка приложений v1.21'
Const $Font = 'Times New Roman' 																			
Global $Winrar
Global $sText, $iLeft, $iTop, $iWidth, $iHeight, $iStyle, $iExStyle
#EndRegion

_GUI ()
Local $msg, $Focus
	$Parent = GUICreate ( $Titel_os, 500, 470 )														
	GUICtrlCreatePic(@ScriptDir & "\fon2.jpg", 0, 0, 500, 470, $WS_CLIPSIBLINGS)
	GUISetFont ( 10, 1000, 0, $Font )																
	;GUICtrlCreatePic ( 'fon.jpg', -1, -1, 594, 525 )
	
	$LABLE_1 = GUICtrlCreateLabel ( 'Архиваторы:', 20, 20 )
	GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
	$Winrar = _Winrar ( 'WinRaR', 20, 50, 80, -1, -1 )
	$BUTTON_1 = GUICtrlCreateButton ( 'Установить', 360, 420, 100, -1 )
	GUISetState ( @SW_SHOW )

        While 1
		$msg = GUIGetMsg () 																		
		Switch $msg
		Case -3 																					
			Exit
		case $BUTTON_1
			_Winrar ($sText, $iLeft, $iTop, $iWidth, $iHeight, $iStyle = -1, $iExStyle = -1)
               EndSwitch
        WEnd
EndFunc

Func _Winrar ($sText, $iLeft, $iTop, $iWidth, $iHeight, $iStyle = -1, $iExStyle = -1)
	$1 = BitAND ( GUICtrlRead ( $Winrar ), $Gui_Checked )
	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
	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 )
	ElseIf $1 = 0 Then
		Return 0
	EndIf
EndFunc

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