Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для habib2302

Ветеран


Сообщения: 855
Благодарности: 101

Профиль | Отправить PM | Цитировать


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

-------
Помог? От "Полезное сообщение" не откажусь!!!


Последний раз редактировалось habib2302, 26-12-2021 в 17:07.

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:17, 26-12-2021 | #13