Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7]

Закрытая тема
Настройки темы
Скрипты Inno Setup. Помощь и советы [часть 7]

Аватара для El Sanchez

Ветеран


Contributor


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


Конфигурация

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


Изменения
Автор: El Sanchez
Дата: 16-02-2015
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме
Inno Setup. Прочие вопросы.


Показать/скрыть: Справка, руководство, примеры:

Показать/скрыть: Ссылки на примеры скриптов:

Показать/скрыть: Дополнительные программы для Inno Setup:
  • ISTool - неплохой редактор скриптов Inno Setup.
    Последняя версия: 5.3.0.1 [29.09.2009] - Скачать | зеркало;

  • Inno Script Generator - генератор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
    Последняя версия: 1.0.3.1 [23.03.2008] - Скачать | зеркало на русифицированную программу;
    Примечание: Родной сайт www.hisoft2000.de более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы.
    Последняя версия: 2.0.8 [12.11.2006] - Скачать;
    Примечание: Родной сайт http://isfd.kaju74.de/index.php?isfd более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup GameScript Generator - программа генерирует скрипты для Inno Setup . С помощью GameScript Generator и Inno Setup вы сможете быстро создать простенький инсталляционный пакет для любой игры. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации;

  • ISSkin - Программа для создания и добавления в инсталлятор скинов. Инструкция.
    Последняя версия: 3.0.0.0 [19.01.2010] - Скачать;

  • ISSJoiner - Программа для объединения нескольких скриптов InnoSetup в один.
    Последняя версия: 3.0 [23.07.2009]

  • Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
    Последняя версия: 0.1.4 [13.03.2010] - Скачать;

  • RegExporter - Фриварная утилита для экспорта реестра и конвертации файлов *.reg и *.ini в инсталляционные скрипты Inno Setup и NSIS.
    Последняя версия: 1.2.0 [23.09.2014] - Скачать;



Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах:

Скрипты Inno Setup. Помощь и советы [часть 6]

Отправлено: 11:48, 10-03-2014

 

Аватара для nik1967

Старожил


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

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


ROMKA-1977,
Если сильно не заморачиваться
Код: Выделить весь код
[Setup]
AppName=Name
VersionInfoVersion=5.0
AppVerName=VerName
DefaultDirName={pf}\My program
OutputDir=.

[Languages]
Name: Ru; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[code]
var
	ResizeButton: TButton;
	PageResized, Show: Boolean;

function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure MinimizeInstallPage();
begin
	WizardForm.MainPanel.Hide;
	WizardForm.Bevel1.Hide;
	WizardForm.Width:= ScaleX(395);
	WizardForm.Height:= ScaleY(142);
	WizardForm.Left:= GetSystemMetrics(16)-ScaleX(420);
	WizardForm.Top:= GetSystemMetrics(17)-ScaleX(150);
	WizardForm.InnerNotebook.Left:= ScaleX(10);
	WizardForm.InnerNotebook.Top:= ScaleY(10);
	WizardForm.InnerNotebook.Width:= ScaleX(370);
	WizardForm.StatusLabel.Left:= ScaleX(0);
	WizardForm.StatusLabel.Top:= ScaleY(0);
	WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
	WizardForm.FileNameLabel.Left:= ScaleX(0);
	WizardForm.FileNameLabel.Top:= ScaleY(20);
	WizardForm.FileNameLabel.Width:= WizardForm.InnerNotebook.Width;
	WizardForm.ProgressGauge.Top:= ScaleY(40);
	WizardForm.ProgressGauge.Width:= WizardForm.InnerNotebook.Width;
	WizardForm.CancelButton.Left:= ScaleX(220);
	WizardForm.CancelButton.Top:= ScaleY(80);
	WizardForm.CancelButton.BringToFront;
	ResizeButton.Left:= ScaleX(60);
	ResizeButton.Top:= ScaleY(80);
	ResizeButton.Caption:= 'Normalize';
	PageResized:= True;
end;

procedure ResumeInstallPage();
begin
	WizardForm.Width:= ScaleX(503);
	WizardForm.Height:= ScaleY(388);
	WizardForm.Position:= poScreenCenter;
	if Show then begin	
		WizardForm.MainPanel.SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(58));
		WizardForm.MainPanel.Show;
		WizardForm.Bevel1.Show;
	end;
	WizardForm.InnerNotebook.SetBounds(ScaleX(40), ScaleY(72), ScaleX(417), ScaleY(237));
	WizardForm.StatusLabel.SetBounds(ScaleX(0), ScaleY(0), ScaleX(417), ScaleY(16));
	WizardForm.FilenameLabel.SetBounds(ScaleX(0), ScaleY(16), ScaleX(417), ScaleY(16));
	WizardForm.ProgressGauge.SetBounds(ScaleX(0), ScaleY(42), ScaleX(417), ScaleY(21));
	WizardForm.CancelButton.SetBounds(ScaleX(412), ScaleY(327), ScaleX(75), ScaleY(23));
	ResizeButton.SetBounds(ScaleX(20), ScaleY(327),ScaleX(75), ScaleY(23));
	ResizeButton.Caption:= 'Minimize';
	PageResized:= False;
end;

procedure ResizeButtonOnClick(Sender: TObject);
begin
	If PageResized then
		ResumeInstallPage
	else
		MinimizeInstallPage;
end;

procedure InitializeWizard();
begin
	ResizeButton:= TButton.Create(WizardForm);
	ResizeButton.SetBounds(ScaleX(20), ScaleY(327),ScaleX(75), ScaleY(23));
	ResizeButton.OnClick:= @ResizeButtonOnClick;
	ResizeButton.Caption:= 'Minimize';
	ResizeButton.Hide;
	ResizeButton.Parent:= WizardForm;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
		ResizeButton.Hide;
	case CurPageID of
		wpInstalling: 
		begin
			Show:= true;
			ResizeButton.Show;
		end;
		wpFinished: 
		begin
			Show:= false;
			ResumeInstallPage;
		end;
	end;
end;

---------------------------------------------------------------------------------
Цитата Nightwishh:
Знающие люди помогите довести до ума »
А что не так?

-------
Если сообщение оказалось полезным для Вас, то помимо спасибо, можно нажать на "Полезное сообщение".


Последний раз редактировалось nik1967, 21-09-2014 в 12:51.

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

Отправлено: 12:41, 21-09-2014 | #1591



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

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


Пользователь


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

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


nik1967, Папка в "Пуск" создаётся при отмеченном чекбоксе

Отправлено: 14:19, 21-09-2014 | #1592


Аватара для nik1967

Старожил


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

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


Nightwishh,
читать дальше »
Код: Выделить весь код
[Setup]
OutputDir=.
AppName=рапнркаапкапкп
AppVerName=вапваукапа
DefaultDirName={pf}\авапвавав
DefaultGroupName=Home\авапвавав
AllowNoIcons=true
UsePreviousGroup=no

[Icons]
Name: {group}\пкапк; Filename: {app}\fjshck.exe; Flags: createonlyiffileexists;
Name: {group}\удаление; Filename: {uninstallexe}; 

[Code]
var
  NewCheckListBox1: TNewCheckListBox;
	
procedure CheckNoIcons(Sender: TObject);
begin
  WizardForm.GroupEdit.Enabled:= not NewCheckListBox1.Checked[0];
  WizardForm.GroupBrowseButton.Enabled:= not NewCheckListBox1.Checked[0];
  WizardForm.NoIconsCheck.Checked:= NewCheckListBox1.Checked[0];
end;

procedure InitializeWizard();
begin
  WizardForm.NoIconsCheck.Hide;

  NewCheckListBox1 := TNewCheckListBox.Create(WizardForm);
  with NewCheckListBox1 do
  begin
    Parent := WizardForm.NoIconsCheck.Parent;
    Color:= WizardForm.Color;
    BorderStyle:= bsNone;
    WantTabs:= true;
    Left := ScaleX(0);
    Top := ScaleY(216);
    Width := ScaleX(332);
    Height := ScaleY(21);
    AddCheckBoxEx(WizardForm.NoIconsCheck.Caption, '', 0, False, True, True, True, nil, True);
    OnClickCheck:= @CheckNoIcons;
  end;
end;

-------
Если сообщение оказалось полезным для Вас, то помимо спасибо, можно нажать на "Полезное сообщение".

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

Отправлено: 15:30, 21-09-2014 | #1593


Пользователь


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

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


nik1967, Ой, спасибо большое, всё как надо!

Отправлено: 17:12, 21-09-2014 | #1594


Аватара для ROMKA-1977

Пользователь


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

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


Nordek, Не то. В твоём варианте после распаковки инстал закрывается без отбражения страницы завершения.

Отправлено: 17:54, 21-09-2014 | #1595


Пользователь


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

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


Все еще не разобрался, поэтому повторяю свой вопрос.

Мне нужно, чтобы на странице каталога была 2 чекбокса
-Удалить все старые моды
--Сохранить бекап старых модов
Выглядеть это должно так:


1 чекбокс, должен удалять содержимое в res_mods\0.9.2\* и удалять папку xvm по пути res_mods\xvm.
2 чекбокс, должен делать бекап папки res_mods, по пути ModPack\BackUp\res_mods, а после удаление репака возвращал бекап в папку res_mods.

Есть еще 1 проблема:

У меня в репаке есть файл "path" и в папке куда я ставлю репак он тоже есть. В следствии чего если я ставлю репак, то файл заменяется, а когда удаляешь репак то файл тоже удаляется и не запускается игра. Как сделать, чтобы когда устанавливаешь репак, то файл "path" из папки куда ставишь репак копировался по пути ModPack\OriginalFiles, а после удаление возвращался на свое место.

Как это реализовать? Заранее спасибо всем за помощь.

Отправлено: 20:56, 21-09-2014 | #1596


Аватара для nik1967

Старожил


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

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


Цитата Kashtan007:
Мне нужно »
Это уже не просьба о помощи - это уже похоже на заказ инсталлятора. А с заказами сюда.

-------
Если сообщение оказалось полезным для Вас, то помимо спасибо, можно нажать на "Полезное сообщение".


Отправлено: 21:36, 21-09-2014 | #1597


Аватара для AlekseyPopovv

Старожил


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

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


procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssPostInstall) then
begin
if Installer.Checked and CheckParam('/P') then
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 updateservice1.systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 www.systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 systemspeedup.systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 systweak.com/STCheckGenuineness', True);
end;

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

Отправлено: 17:51, 22-09-2014 | #1598


Аватара для Dodakaedr

Ветеран


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

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


Цитата AlekseyPopovv:
Как сделать что бы при распаковке и тихой распаковке эти строки не прописывались? »
Попробуйте так:
читать дальше »
Код: Выделить весь код
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssPostInstall) then
begin
if Installer.Checked then
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 updateservice1.systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 www.systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 systemspeedup.systweak.com', True);
SaveStringToFile(ExpandConstant('{sys}')+'\drivers\etc\hosts', #13#10'127.0.0.1 systweak.com/STCheckGenuineness', True);
end;

-------
Inno Setup 5 Ultra Unicode


Отправлено: 17:53, 22-09-2014 | #1599


Аватара для AlekseyPopovv

Старожил


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

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


Dodakaedr, И так пробовал. Не получается. Пробовал по всякому:
if Installer.Checked and not Portable.Checked then
if Installer.Checked or not Portable.Checked then
if Installer.Checked and CheckParam('/I') and not Portable.Checked and not CheckParam('/P') then
if Installer.Checked or CheckParam('/I') or not Portable.Checked or not CheckParam('/P') then
и так далее.

Отправлено: 18:36, 22-09-2014 | #1600



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7]

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипты 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
[архив] Скрипты Inno Setup. Помощь и советы [часть 2] Serega Автоматическая установка приложений 2651 08-11-2010 18:34




 
Переход