![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Новый участник Сообщения: 41
|
Профиль | Отправить PM | Цитировать Всем привет.
Создаю инсталлятор (стиль Steam) со слайд-шоу. Обычно, когда начинается показ слайдов окно установщика становится "компактным" и перемещается в нижний правый угол экрана. После добавления скрипта "Закрепить ярлык на панели задач" (функция PinToTaskbar) - возникает следующая проблема: во время показа слайдов окно установщика не переходит в нижний правый угол экрана (не меняет размер и положение) и, тем самым, закрывает показываемые слайды ![]() Как это можно исправить? Код: https://yadi.sk/d/jq7ufVo1f7oVj |
Отправлено: 01:24, 09-03-2015 | #271 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 51
|
Профиль | Отправить PM | Цитировать На некоторых системах была замечена проблема с неправильным отображением содержимого в окне установщика. Почему такое происходит?
Скрытый текст
![]() ![]() Ссылка на установщик |
Отправлено: 09:08, 09-03-2015 | #272 |
Пользователь Сообщения: 76
|
Профиль | Отправить PM | Цитировать Raz3r, Тестируйте, перезалил скрипт, немного подправил фон, текст и ярлыки.
http://rghost.ru/69y2FKDpR |
Последний раз редактировалось TryRooM, 09-03-2015 в 15:08. Отправлено: 11:37, 09-03-2015 | #273 |
Пользователь Сообщения: 51
|
Профиль | Отправить PM | Цитировать TryRooM, попробую, спасибо
|
Последний раз редактировалось Raz3r, 09-03-2015 в 11:48. Отправлено: 11:39, 09-03-2015 | #274 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Подскажите код картинок (привью) для компонентов
|
Отправлено: 22:11, 09-03-2015 | #275 |
Пользователь Сообщения: 131
|
Профиль | Сайт | Отправить PM | Цитировать Доброго времени суток.
Вот скрипт инсталлятора "Закос под z10yded". Все работает отлично, но: 1. Подскажите как изменить фон "WizardForm.ComponentsList", например установить для него фоновое изображение или сделать прозрачным? 2. Обычно при использовании "DisableReadyPage=true" название кнопки "Далее" на предыдущей странице заменяется на "Установить". В данном скрипте это не происходит, т.е. страница исчезает, но название кнопки как было "Далее" таким и остается. Как это исправить? Надеюсь, вы поняли, что я имел в виду. |
------- Отправлено: 04:07, 10-03-2015 | #276 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Sotonisto, ваш скрипт не пошел, так как сижу на unicode, вот пример решения ваших проблем(фон "WizardForm.ComponentsList" и заменяется на "Установить")
Как вариант
Файл large.bmp должен находится рядом с инсталлятором. [Setup] AppName=test AppVersion=1.0 DefaultDirName={pf}\test DisableReadyPage=yes [Files] Source: large.bmp; Flags: dontcopy deleteafterinstall [Components] Name: one; Description: text; Name: two; Description: text; Name: bob; Description: text; Name: to; Description: text; Name: tw; Description: text; Name: wo; Description: text; [code] procedure InitializeWizard(); begin ExtractTemporaryFile(ExpandConstant('large.bmp')); WizardForm.ComponentsList.LoadBGBmpFromFile(ExpandConstant('{tmp}\large.bmp'), WizardForm.ComponentsList.Left, WizardForm.ComponentsList.Top); end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpSelectComponents then WizardForm.NextButton.Caption := 'Установить'; end; Цитата ekspoint:
123, 126 |
|
------- Последний раз редактировалось Dodakaedr, 10-03-2015 в 16:55. Отправлено: 16:49, 10-03-2015 | #277 |
Пользователь Сообщения: 72
|
Профиль | Отправить PM | Цитировать Цитата ShadeUa:
|
|
Отправлено: 21:24, 10-03-2015 | #278 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата ShadeUa:
пример
[setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf} ShowLanguageDialog=auto [Languages] Name: rus; MessagesFile: compiler:Languages\Russian.isl Name: eng; MessagesFile: compiler:Default.isl [CustomMessages] ; Русский rusButtonBack=< &Назад rusButtonNext=&Далее > rusButtonCancel=Отмена rusSetupWindowTitle=Установка — %1 rusWelcomeLabel1=Вас приветствует Мастер установки %1 rusWelcomeLabel2=Программа установит %1, версия %2 на Ваш компьютер.%n%nРекомендуется закрыть все прочие приложения перед тем, как продолжить.%n%nНажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти из программы установки. rustest=футбол rusfish=рыбалка rusjoke=прикол ; English engButtonBack=< &Back engButtonNext=&Next > engButtonCancel=Cancel engSetupWindowTitle=Setup — %1 engWelcomeLabel1=Welcome to the %1 Setup Wizard engWelcomeLabel2=This will install %1 version %2 on your computer.%n%nIt is recommended that you close all other applications before continuing.%n%nClick Next to continue, or Cancel to exit Setup. engtest=football engfish=fishing engjoke=joke [Code] var lang: String; langBtn: TButton; test, fish, joke: TNewCheckBox; procedure ChangeLang(); begin WizardForm.BackButton.Caption:= CustomMessage(lang+'ButtonBack'); WizardForm.NextButton.Caption:= CustomMessage(lang+'ButtonNext'); WizardForm.CancelButton.Caption:= CustomMessage(lang+'ButtonCancel'); WizardForm.Caption:= FmtMessage(CustomMessage(lang+'SetupWindowTitle'), ['{#SetupSetting('AppName')}']); WizardForm.WelcomeLabel1.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel1'), ['{#SetupSetting('AppName')}']); WizardForm.WelcomeLabel2.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel2'), ['{#SetupSetting('AppName')}', '{#SetupSetting('AppVersion')}']); //добавляем свои элементы (чекбоксы, радиокнопки, лейблы и т.д.) test.Caption := CustomMessage(lang+'test'); fish.Caption := CustomMessage(lang+'fish'); joke.Caption := CustomMessage(lang+'joke'); end; procedure LangBtnClick(Sender: TObject); begin if lang='rus' then begin lang:= 'eng'; langBtn.Caption:= 'рус'; end else begin lang:= 'rus'; langBtn.Caption:= 'eng'; end; ChangeLang(); end; procedure RedesignWizardForm; begin { test } test := TNewCheckBox.Create(WizardForm); with test do begin Parent := WizardForm.WelcomePage; Left := ScaleX(184); Top := ScaleY(200); Width := ScaleX(65); Height := ScaleY(17); Caption := 'футбол'; end; { fish } fish := TNewCheckBox.Create(WizardForm); with fish do begin Parent := WizardForm.WelcomePage; Left := ScaleX(184); Top := ScaleY(224); Width := ScaleX(65); Height := ScaleY(17); Caption := 'рыбалка'; end; { joke } joke := TNewCheckBox.Create(WizardForm); with joke do begin Parent := WizardForm.WelcomePage; Left := ScaleX(184); Top := ScaleY(248); Width := ScaleX(65); Height := ScaleY(17); Caption := 'прикол'; end; end; procedure InitializeWizard; begin RedesignWizardForm; langBtn:= TButton.Create(WizardForm); with langBtn do begin SetBounds(10,WizardForm.CancelButton.Top,30,WizardForm.CancelButton.Height) OnClick:= @LangBtnClick; Parent:= WizardForm; end; if ActiveLanguage='rus' then begin lang:= 'rus'; langBtn.Caption:= 'eng'; end else begin lang:= 'eng'; langBtn.Caption:= 'рус'; end; end; |
|
------- Отправлено: 22:02, 10-03-2015 | #279 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
|
|
Отправлено: 03:03, 11-03-2015 | #280 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 7] | El Sanchez | Автоматическая установка приложений | 2499 | 02-02-2015 08:59 | |
Скрипты Inno Setup. Помощь и советы [часть 6] | El Sanchez | Автоматическая установка приложений | 2494 | 10-03-2014 11:51 | |
Скрипты Inno Setup. Помощь и советы [часть 5] | El Sanchez | Автоматическая установка приложений | 1999 | 28-03-2013 19:09 | |
Скрипты Inno Setup. Помощь и советы [часть 4] | El Sanchez | Автоматическая установка приложений | 2099 | 22-05-2012 23:16 | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 |
|