Автор: cracklover
Дата сообщения: 16.10.2007 10:19
BEndER Tech
Давай расставим все точки над i.
Ещё раз при всех спрашиваю, ГДЕ ИМЕННО ТЫ УВИДЕЛ ФРАЗУ ПРО 8 ПУНКТОВ?! Или где ты видишь признак редактирования поста, если даже предположить, что я поправил первоначальное его содержание?
Ещё раз повторяю, я никого не собирался обделять. Кто был в шапке, тот попал в голосование. В шапке было на тот момент 10 сборок, форумный движок позволяет выбрать также только 10 пунктов голосования. Я всё сделал так, как сделал бы любой другой на моем месте.
Ну а чтобы топик не превращался в пустой треп, продолжу заниматься делом. Я обещал переделать автоинсталлятор и сделал это.
Компилить я его не стал, так как это сделает и ребёнок при наличии вот этого моего скрипта для весьма известного компилятора AutoIt:
[more]
#cs
----------------------
Приложение: Автоинсталлятор для TC_by_cracklover
Автор: cracklover
----------------------
#ce
;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;скрыть в системной панели индикатор AutoIt
;AutoItSetOption("TrayIconHide", 1)
;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)
#cs
-----------------------------------
объявление переменных
-----------------------------------
$file - установочный файл
$Title - заголовок окна установки
$files - директория с дополнительными файлами
$InstPath - директория установки
-----------------------------------
#ce
Global $Title='Установка', $file='TC_7.02a_by_cracklover_16.10.07.exe', $files=@ScriptDir & '\files', $InstPath='c:\totalc'
Run( @ScriptDir&'\'&$file )
WinWait ( $Title, 'Добро пожаловать' )
Send ( '{ENTER}' )
WinWait ( $Title, 'Прочти меня' )
Send ( '{ENTER}' )
WinWait ( $Title, 'Путь установки' )
Send ( '{ENTER}' )
WinWait ( $Title, 'Программа' )
Send ( '{ENTER}' )
;BlockInput ( 0 )
;копирование дополнительных фaйлов в каталог сборки (если файлы существуют)
If FileExists ( $files & '\*.*' ) Then FileCopy ( $files & '\*.*', $InstPath & '\', 1 )
[/more]
Примечания:
Файл Autosetup.exe автоматически устанавливает сборку в каталог с:\totalc и копирует в каталог с установленной сборкой все файлы с любым именем и расширением, которые предварительно были размещены в подкаталоге files каталога с дистрибутивом сборки и файлом Autosetup.exe.
Если файлов в подкаталоге files нет, то файл Autosetup.exe просто автоматически устанавливает сборку в каталог с:\totalc.
Пример правильного расположения файлов:
===========================================
Autosetup.exe
TC_7.02a_by_cracklover_16.10.07.exe
Files\
arj32.exe
CompleX_pro.key
rarreg.key
wincmd.key
