#NoTrayIcon
Global $file1, $file2, $but1, $but2, $but3, $but4
$Gui = GUICreate("Glue", 300, 120, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateInput("Иконка", 2, 35, 250, 15)
$Input2 = GUICtrlCreateInput("Первый exe", 2, 55, 250, 15)
$Input3 = GUICtrlCreateInput("Второй exe", 2, 75, 250, 15)
$but1 = GUICtrlCreateButton ("...", 260, 55, 30, 15)
$but2 = GUICtrlCreateButton ("...", 260, 75, 30, 15)
$but4 = GUICtrlCreateButton ("...", 260, 35, 30, 15)
$but3 = GUICtrlCreateButton ("Склеить", 2, 95, 295, 20)
$in = GUICtrlCreateLabel("Строка состояния", 2, 2, 150, 20)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $but4
$ICON = FileOpenDialog('Choose Icon file', '', 'Icon (*.ico)', '', '', GUICreate('', 563, 417))
GUICtrlSetData ($Input1, $ICON)
Case -3
Exit
Case $but1
Ifile()
Case $but2
IIfile()
Case $but3
GUICtrlSetData ($in, "Склеивание...")
FileWrite (@TempDir&"\Glued.au3", '#NoTrayIcon' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'FileDelete (@TempDir & "\Setup_1.exe")' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'FileDelete (@TempDir & "\Setup_2.exe")' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'FileInstall ('&'"'&$file1&'"'&', @TempDir&"\Setup_1.exe")' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'FileInstall ('&'"'&$file2&'"'&', @TempDir&"\Setup_2.exe")' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'Run (@TempDir&"\Setup_1.exe")' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'Run (@TempDir&"\Setup_2.exe")' & @CRLF)
FileWrite (@TempDir&"\Glued.au3", 'Exit' & @CRLF)
$AU3 = @TempDir & '\Glued.au3'
$AUT2EXE = @ScriptDir & '\comp.exe'
$EXE = @ScriptDir & '\Glued.exe'
Run($AUT2EXE & ' /in ' & $AU3 & ' /out ' & $EXE & ' /icon ' & $ICON & ' /comp 0 /nopack')
;~ Run($AUT2EXE & ' /in ' & $AU3 & ' /icon ' & $ICON & ' /comp 0 /nopack')
Sleep(3000)
GUICtrlSetData ($in, "Склеено")
FileDelete (@TempDir & "\Glued.au3")
;~ Run(@Comspec & " /C start Aut2exe.exe /in " & FileGetShortName(@ScriptDir & "\" & $sFolderName & "\script.au3"))
;~ Run('"' & @AutoItExe & '" "' & $par & '"', "", @SW_HIDE, 1)
;~ Run("engine.exe /in Programm.au3")
;~ ShellExecute ( "engine.exe" , "/in "&"Programm.au3")
;~ FileDelete (@ScriptDir&"\Progamm.au3")
EndSwitch
WEnd
Func Ifile()
$file1 = FileOpenDialog('Choose a first EXE file', '', 'Exe (*.exe)', '', '', GUICreate('', 563, 417))
GUICtrlSetData ($Input2, $file1)
EndFunc
Func IIfile()
$file2 = FileOpenDialog('Choose a second EXE file', '', 'Exe (*.exe)', '', '', GUICreate('', 563, 417))
GUICtrlSetData ($Input3, $file2)
EndFunc