Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

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

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Автоматическая установка Delphi6 (AutoIt)

Ответить
Настройки темы
Автоматическая установка Delphi6 (AutoIt)

Новый участник


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

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

Интересует автоматизация концовки установки Delphi 6 через AutoIt.
Вот мой код:
Код: Выделить весь код
Func MySendCom($NameWindow,$TextWinControl,$command)
     WinWaitActive($NameWindow,$TextWinControl)
	 Send($command)
EndFunc
 
Run("setup.exe")
$a1="Borland Delphi 6 Enterprise Edition - Installation Wizard"
$a2="Welcome to Borland Delphi 6, Enterprise Edition"
MySendCom($a1,$a2,'!n')
$a2="Serial Number"
MySendCom($a1,$a2,'12345678901234')
MySendCom($a1,$a2,'{TAB}')
MySendCom($a1,$a2,'123456')
MySendCom($a1,$a2,'{TAB}')
MySendCom($a1,$a2,'{ENTER}')
$a2="License Agreement"
MySendCom($a1,$a2,'!a')
MySendCom($a1,$a2,'!n')
MySendCom($a1,'Important Installation Information','!n')
$a2="Setup Type"
MySendCom($a1,$a2,'!u')
MySendCom($a1,$a2,'!n')
$a2="Custom Setup"
MySendCom($a1,$a2,'{TAB 4}')
MySendCom($a1,$a2,'{ENTER}')
MySendCom($a1,'BDE SQL Driver Configuration','!n')
MySendCom($a1,'Choose VisiBroker','!n')
MySendCom($a1,'Microsoft Office Controls','!n')
MySendCom($a1,'Install Additional Components','!n')
MySendCom($a1,'Remote Dataset License Agreement','!a')
MySendCom($a1,'Remote Dataset License Agreement','!n')
MySendCom($a1,'Destination Folder','!n')
MySendCom($a1,'Save Installation Database','!n')
MySendCom($a1,'Ready to Install the Program','!i')
WinWaitActive("Borland Delphi 6 Installer Information");
$a=0;
while $a<45;
 sleep(50);
 Send("!i");
 $a=$a+1;
WEnd;
WinWaitActive("InterBase Client setup");
MySendCom('InterBase Client setup','','{TAB}')
MySendCom('InterBase Client setup','','{ENTER}')
MySendCom('Important installation information','','{ENTER}')
MySendCom('Software License Agreement','','{TAB}')
MySendCom('Software License Agreement','','{TAB}')
MySendCom('Software License Agreement','','{ENTER}')
MySendCom('InterBase component selection','','{TAB}')
MySendCom('InterBase component selection','','{TAB}')
MySendCom('InterBase component selection','','{TAB}')
MySendCom('InterBase component selection','','{TAB}')
MySendCom('InterBase component selection','','{ENTER}')
MySendCom('InterBase Client setup complete','','{ENTER}')
MySendCom('InterBase Client setup complete','','!f')
Код окончания установки:
Код: Выделить весь код
$a1='Borland Delphi 6 Enterprise Edition - Installation Wizard'
Sleep(100)
WinActivate($a1)
Send("{SPACE}")

$a1='Borland Delphi 6 Installer Information'
Sleep(100)
WinActivate($a1)
Send("{TAB}")
Send("{SPACE}")

MsgBox(0,"ВНИМАНИЕ!","Не забудь перезагрузить компьютер!",5);
Если код завершения установки дописать к первому "главному" коду - он работать не будет... Остановиться на окне с кнопкой "Finish"

Если же выполнить отдельно "главный" код, а потом (не закрывая при этом последнее окно), выполнить код автоматизации завершения установки - всё будет гуд (окно "Borland Delphi 6 Enterprise Edition - Installation Wizard" закроется, автоматически нажмётся кнопка Нет (на запрос - нужно ли перезагружать ПК?) и появится сообщение в течении 5 секунд про необходимость перезагрузки компьютера.



Отсюда и вопрос - как правильным образом дописать код завершения установки к главному коду?..

Заранее, спасибо!

Отправлено: 13:15, 12-05-2008

 

Новый участник


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

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

Если есть другой способ тихой установки Delphi 6 - подскажите, плиз!

Отправлено: 18:57, 12-05-2008 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


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

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

http://forum.oszone.net/thread-106386.html - ставил так 7-ю версию. На 6-й тоже должно прокатить. И никакого AutoIT

Отправлено: 13:48, 13-05-2008 | #3


Аватара для projectsoft

Новый участник


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

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

Я юзаю Delphi 7
вот мой код:
Код: Выделить весь код
Run("setup.exe")
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Welcome to Borland Delphi 7, Enterprise Edition')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Serial Number')
Sleep(500) ; Обязательно нужна задержка!
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','License Agreement')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button3')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button5')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Important Installation Information')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Setup Type')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Choose VisiBroker')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button4')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Microsoft Office Controls')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Install Additional Components')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button3')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Destination Folder')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Save Installation Database')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Ready to Install the Program')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
WinWaitActive('Borland Delphi 7 Enterprise Edition - Installation Wizard','Installation Wizard Completed')
ControlClick('Borland Delphi 7 Enterprise Edition - Installation Wizard','','Button1')
А в Setup.ini делаю вот такие изменения в секции [startup]:

Код: Выделить весь код
[Startup]
CmdLine= PRODUCT_ID=6AKD-PD29Q9-RDF?JQ-X65Z AUTH_KEY=QX8-EEC
Я просто не пользуюсь InterBase и VisiBroker, поэтому в своей установке я их не устанавливаю.

-------
http://nick-name.ru/nickname/projectsoft/

Отправлено: 03:30, 21-06-2010 | #4



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Автоматическая установка Delphi6 (AutoIt)

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
FreeBSD - Freebsd. Автоматическая установка NightRider Общий по FreeBSD 10 07-12-2010 18:48
автоматическая установка и Wi-Fi tussinchik Автоматическая установка Windows 2000/XP/2003 1 31-05-2008 01:59
[AutoIt] автоматическая установка CorelDraw X4 korochinskiy Автоматическая установка приложений 1 21-03-2008 14:04
AutoIt 3.2.8.1. Тихая установка. Hugh Автоматическая установка приложений 0 15-11-2007 18:37
Автоматическая установка VDialer 3.9.7 e9990638 Автоматическая установка приложений 6 04-02-2006 19:22


« Предыдущая тема | Следующая тема »


 
Переход