Inno Setup (создание инсталяционных пакетов)

EvilAlex · 5 Сен 2013

sergey3695 написал(а):
EvilAlex, во вложении скрипт. (думаю заменить скрипт в папке с файлами не проблема).
Что касается строчек приоритета, для isdone изменений в приоритете не будет. это для установщика! (правдо само использование приоритета в скрипте что-то не заметил. ну чтоб знал). Добавил в принцепи что просил. (ну и для кнопки обзор цвет при неактивной кнопке изменил. бесило когда исчезает надпись. непривычно как-то)

Огромное спасибо за проделаную работу...

sergey3695 · 5 Сен 2013

EvilAlex кнопочка есть для этого. Незачто

XLASER · 9 Сен 2013

Люди,скажите пожалуйста,как в готовый скрипт вставить модуль распаковки фри арк?и пожалуйста по подробнее, а то я новичёк в этом деле ещё. Без показывания процентов и всего прочего. Чтобы он просто молча распаковался куда указано в установке и всё.

DICI BF · 11 Сен 2013

Всем привет можно ли деинсталлятору прикрутить эффект прозрачности и лого

Yalsrof · 14 Сен 2013

Ребят, подскажите как пользоваться SREP. Можно ли его прикрепить к IS? Не нашёл понятного мануала.

YURSHAT · 14 Сен 2013

DICI BF написал(а):
Всем привет можно ли деинсталлятору

Форма деинсталлятора ничем не отличается от формы инсталлятора.

andrey_167 · 14 Сен 2013

Здравствуйте может кто знает как добавить распаковку архивов с паролем в модуле is exec

Alloc · 16 Сен 2013

sergey3695, большое спасибо за помощь! Все прекрасно работает!

AlexandR · 19 Сен 2013

Здравствуйте, подскажите как делается начальная страница с кнопками(ссылками), как тут(с.м. ниже)?

vint56 · 19 Сен 2013

AlexandR
http://rghost.ru/48847093

Yalsrof · 28 Сен 2013

Добрый день.
Я забыл как сделать при помощи Inno Tools Downloader так: на странице инстала сделать чекбокс, положительным результатом которого (если он активен), должна произойти закачка файлов, если чекбокс снят, то этап загрузки файлов пропускается.

Вот пример кода Inno Tools Downloader:

#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.mycompany.com"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=example1
Compression=lzma
SolidCompression=true
CreateAppDir=true
ShowLanguageDialog=yes

[Languages]
Name: english; MessagesFile: compiler

efault.isl

#include ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Downloader','ScriptPath','');

Код:

procedure InitializeWizard();
begin
 itd_init;

 //Let's download two zipfiles from my website..
 itd_addfile('http://ucp-anticheat.ru/download/ucpsetup.exe',expandconstant('{tmp}\ucpsetup.exe'));
 itd_addfile('http://cs3-3v4.vk.me/p18/3f3a30e80fd0ee.mp3',expandconstant('{tmp}\3f3a30e80fd0ee.mp3'));

 //Start the download after the "Ready to install" screen is shown
 itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
 if CurStep=ssInstall then begin //Lets install those files that were downloaded for us
  filecopy(expandconstant('{tmp}\ucpsetup.exe'),expandconstant('{app}\ucpsetup.exe'),false);
  filecopy(expandconstant('{tmp}\3f3a30e80fd0ee.mp3'),expandconstant('{app}\3f3a30e80fd0ee.mp3'),false);
 end;
end;
[/spoiler]

vint56 · 29 Сен 2013

Yalsrof

#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.mycompany.com"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=example1
Compression=lzma
SolidCompression=true
CreateAppDir=true
ShowLanguageDialog=yes

[Languages]
Name: english; MessagesFile: compiler

efault.isl

#define ITDRoot ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Downloader','InstallPath','')
#include ITDRoot+'\it_download.iss'

Код:

var
  Downloader: TNewCheckBox;

procedure DownloaderClick(Sender: TObject);
begin
  itd_init;
  itd_addfile('http://www.sherlocksoftware.org/petz/files/dogz5.zip',expandconstant('{tmp}\dogz5.zip'));
  itd_addfile('http://www.sherlocksoftware.org/petz/files/petz4.zip',expandconstant('{tmp}\petz4.zip'));
  itd_downloadafter(wpReady);
end;

procedure InitializeWizard();
begin
  Downloader := TNewCheckBox.Create(WizardForm);
with Downloader do
begin
  Parent := WizardForm.SelectDirPage;
  Left := ScaleX(0);
  Top := ScaleY(112);
  Width := ScaleX(120);
  Height := ScaleY(17);
  Caption := 'Закачать файлы';
  OnClick := @DownloaderClick;
  Checked := True;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssInstall then begin //Lets install those files that were downloaded for us
  filecopy(expandconstant('{tmp}\dogz5.zip'),expandconstant('{app}\dogz5.zip'),false);
  filecopy(expandconstant('{tmp}\petz4.zip'),expandconstant('{app}\petz4.zip'),false);
end;
end;[/SPOILER]

Yalsrof · 29 Сен 2013

vint56 написал(а):

Yalsrof

#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.mycompany.com"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=example1
Compression=lzma
SolidCompression=true
CreateAppDir=true
ShowLanguageDialog=yes

[Languages]
Name: english; MessagesFile: compiler

efault.isl

#define ITDRoot ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Downloader','InstallPath','')
#include ITDRoot+'\it_download.iss'

Код:

var
  Downloader: TNewCheckBox;

procedure DownloaderClick(Sender: TObject);
begin
  itd_init;
  itd_addfile('http://www.sherlocksoftware.org/petz/files/dogz5.zip',expandconstant('{tmp}\dogz5.zip'));
  itd_addfile('http://www.sherlocksoftware.org/petz/files/petz4.zip',expandconstant('{tmp}\petz4.zip'));
  itd_downloadafter(wpReady);
end;

procedure InitializeWizard();
begin
  Downloader := TNewCheckBox.Create(WizardForm);
with Downloader do
begin
  Parent := WizardForm.SelectDirPage;
  Left := ScaleX(0);
  Top := ScaleY(112);
  Width := ScaleX(120);
  Height := ScaleY(17);
  Caption := 'Закачать файлы';
  OnClick := @DownloaderClick;
  Checked := True;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssInstall then begin //Lets install those files that were downloaded for us
  filecopy(expandconstant('{tmp}\dogz5.zip'),expandconstant('{app}\dogz5.zip'),false);
  filecopy(expandconstant('{tmp}\petz4.zip'),expandconstant('{app}\petz4.zip'),false);
end;
end;[/SPOILER][/QUOTE]

Вы не могли бы скинуть файл скрипта с необходимыми файлами. А то у меня ошибки полезли везде разные.

[size="1"][color="#808080"]Добавлено через 56 минут[/color][/size]
[quote="vint56, post: 18586"][B]Yalsrof[/B]
[SPOILER="пример"]#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.mycompany.com"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=example1
Compression=lzma
SolidCompression=true
CreateAppDir=true
ShowLanguageDialog=yes

[Languages]
Name: english; MessagesFile: compiler:Default.isl

#define ITDRoot ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Downloader','InstallPath','')
#include ITDRoot+'\it_download.iss'

[Code]
var
  Downloader: TNewCheckBox;

procedure DownloaderClick(Sender: TObject);
begin
  itd_init;
  itd_addfile('http://www.sherlocksoftware.org/petz/files/dogz5.zip',expandconstant('{tmp}\dogz5.zip'));
  itd_addfile('http://www.sherlocksoftware.org/petz/files/petz4.zip',expandconstant('{tmp}\petz4.zip'));
  itd_downloadafter(wpReady);
end;

procedure InitializeWizard();
begin
  Downloader := TNewCheckBox.Create(WizardForm);
with Downloader do
begin
  Parent := WizardForm.SelectDirPage;
  Left := ScaleX(0);
  Top := ScaleY(112);
  Width := ScaleX(120);
  Height := ScaleY(17);
  Caption := 'Закачать файлы';
  OnClick := @DownloaderClick;
  Checked := True;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssInstall then begin //Lets install those files that were downloaded for us
  filecopy(expandconstant('{tmp}\dogz5.zip'),expandconstant('{app}\dogz5.zip'),false);
  filecopy(expandconstant('{tmp}\petz4.zip'),expandconstant('{app}\petz4.zip'),false);
end;
end;[/SPOILER][/QUOTE]

[url="http://krinkels.org/imagehosting/2013/09/29/10c36c86fe.jpg"][img]http://krinkels.org/imagehosting/2013/09/29/thumb_10c36c86fe.jpg[/img][/url]

vint56 · 29 Сен 2013

Yalsrof У меня расшириный компилятор unicode от InnoUltra а какие файлы это itd0.3.5.exe и пример от туда

Yalsrof · 29 Сен 2013

У меня не Unicod но расширенный, да я использовал itd0.3.5.exe
Сможешь оптимизировать под ANSI?
заранее благодарю.

vint56 · 29 Сен 2013

del
Yalsrof у меня тоже появилась ошибка

Yalsrof · 29 Сен 2013

vint56 написал(а):
del
Yalsrof у меня тоже появилась ошибка

Эх... Но я помню раньше где то находил рабочую версию того, что я прошу. Но не здесь и на руборде. Но это было давно очень. Всё позабыл.
Неужели, тот код который предлагается перестал быть совместимым с расширенной версией ANSI.

vint56 · 29 Сен 2013

Yalsrof с расширенной версией ANSI
http://rghost.ru/49055418

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
if Download.Checked then
DownloadFile('http://restools.hanzify.org/inno/InnoCompiler120808(7zip).zip', ExpandConstant('{app}\InnoCompiler120808(7zip).zip'), @DownloadProgress); // ..., nil); - no Callback
DownloadFile('http://restools.hanzify.org/inno/Inno_ISCmplr_Setup120726(7zip).zip', ExpandConstant('{app}\Inno_ISCmplr_Setup120726(7zip).zip'), @DownloadProgress); // ..., nil); - no Callback
end;

Yalsrof · 29 Сен 2013

vint56, Выражаю огромную благодарность. Всё отлично, быстро и просто работает.

Yalsrof · 30 Сен 2013

Ещё один вопрос, как можно реализовать подобное: (InnoUltra)

Inno Setup (создание инсталяционных пакетов)

Старожил

Ветеран

Новичок

Новичок

Мимокрокодил

Тех. админ

Новичок

Новичок

Новичок

Ветеран

Мимокрокодил

Ветеран

Мимокрокодил

Ветеран

Мимокрокодил

Ветеран

Мимокрокодил

Ветеран

Мимокрокодил

Мимокрокодил