ispolin, вот пример... Я использую AutoIt 3.3.14.5 и SciTE4AutoIt3 19.1127.1402.0
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=1306.ico
#AutoIt3Wrapper_Outfile=UnPack.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UPX_Parameters=--best
#AutoIt3Wrapper_Res_Description=EDeclaration UnPack DB by Xabib
#AutoIt3Wrapper_Res_Fileversion=22.7.2018.0
#AutoIt3Wrapper_Res_ProductVersion=22.7.2018
#AutoIt3Wrapper_Res_LegalCopyright=Xabib © 2018
#AutoIt3Wrapper_Res_Language=1049
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#Region
$Form1 = GUICreate("Заголовок окна", 226, 163, 259, 189)
$Label1 = GUICtrlCreateLabel("Название", 0, 8, 226, 31, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
$Button1 = GUICtrlCreateButton("Программа №1", 16, 56, 193, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Программа №2", 16, 100, 193, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE)
FileInstall('Оператор - обучение.exe', @TempDir & '\*')
ShellExecuteWait(@TempDir & '\Оператор - обучение.exe')
FileDelete(@TempDir & '\Оператор - обучение.exe')
GUISetState(@SW_SHOW)
Case $Button2
GUISetState(@SW_HIDE)
FileInstall("7z.exe", @TempDir & "\*")
ShellExecuteWait(@ScriptDir & '\gpuzPortable.exe')
FileDelete(@TempDir & "\7z.exe")
GUISetState(@SW_SHOW)
EndSwitch
WEnd
Будут вопросы, спрашивайте. Так же скрипт можно использовать вместе с inno и упаковывать файлы не сам скрипт, а в инсталлятор только надо удалить строки FileInstall и FileDelete
|
