Создание инсталляторов для модпаков на базе Inno Setup

[Ekspoint]

А кто будет угадывать, где это изображение должно отображаться?

вот так Parent := WizardForm.NextButton;

[Kotyarko_O]

, вообще, лучше сначала создать панель, а на ней уже построить изображение.

Edited January 12, 2015 by Kotyarko_O

[Ekspoint]

, вообще, лучше сначала создать панель, а на ней уже построить изображение.

ой,тупанул

а для кнопки установить и завершить как сделать 

[Kotyarko_O]

а для кнопки установить и завершить как сделать

По такому же принципу.

 

'Вот рабочий пример для кнопки "Далее":'

[Files]
Source: WizardForm.MyImage.bmp; Flags: dontcopy

[Code]
Var
 MyImage: TBitmapImage;
 MyImagePanel: TPanel;

Procedure OrigNextButtonClick(Sender: TObject);
begin
 WizardForm.NextButton.OnClick(nil);
end;

Procedure InitializeWizard();
begin
 ExtractTemporaryFile('WizardForm.MyImage.bmp');
 MyImagePanel := TPanel.Create(WizardForm);
 MyImagePanel.Parent := WizardForm;
 //Где-то видел более компактный способ, не смог вспомнить\\
 MyImagePanel.SetBounds(WizardForm.NextButton.Left, WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height);
 MyImage := TBitmapImage.Create(MyImagePanel);
 MyImage.Parent := MyImagePanel;
  MyImage.Enabled := True
  MyImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.MyImage.bmp'));
  MyImage.OnClick := @OrigNextButtonClick;
 WizardForm.NextButton.Hide;
 MyImage.Show;
end;

Edited January 12, 2015 by Kotyarko_O

[Ekspoint]

По такому же принципу.

 

'Вот рабочий пример для кнопки "Далее":'

[Files]
Source: WizardForm.MyImage.bmp; Flags: dontcopy

[Code]
Var
 MyImage: TBitmapImage;
 MyImagePanel: TPanel;

Procedure OrigNextButtonClick(Sender: TObject);
begin
 WizardForm.NextButton.OnClick(nil);
end;

Procedure InitializeWizard();
begin
 ExtractTemporaryFile('WizardForm.MyImage.bmp');
 MyImagePanel := TPanel.Create(WizardForm);
 MyImagePanel.Parent := WizardForm;
 //Где-то видел более компактный способ, не смог вспомнить\\
 MyImagePanel.SetBounds(WizardForm.NextButton.Left, WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height);
 MyImage := TBitmapImage.Create(MyImagePanel);
 MyImage.Parent := MyImagePanel;
  MyImage.Enabled := True
  MyImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.MyImage.bmp'));
  MyImage.OnClick := @OrigNextButtonClick;
 WizardForm.NextButton.Hide;
 MyImage.Show;
end;

а панель для чего?

[Kotyarko_O]

а панель для чего?

Без него изображение не отобразится, визард может перекрыть.

[Ekspoint]

Без него изображение не отобразится, визард может перекрыть.

ах да,точно

как называется кнопка установки?

я написал instalButton но ошибка 

[Kotyarko_O]

как называется кнопка установки?

я написал instalButton но ошибка 

Ты с потолка это всё берёшь, я не пойму? Ведь есть справка, редактор..

NextButton, так и называется. Для манипуляций с ней на страницах, где она изменяется программой, нужно применять процедуру CurPageChanged.

Edited January 12, 2015 by Kotyarko_O

[Ekspoint]

Ты с потолка это всё берёшь, я не пойму? Ведь есть справка, редактор..

NextButton, так и называется. Для манипуляций с ней на страницах, где она изменяется программой, нужно применять процедуру CurPageChanged.

я справку не смотрел 

[Kotyarko_O]

я справку не смотрел 

Это первое, что надо смотреть.

[Ekspoint]

Это первое, что надо смотреть.

за все время одни раз смотрел)

[Kotyarko_O]

за все время одни раз смотрел)

Я бы по этому поводу не радовался.

[AtotIK]

Ботва же есть. И скрывать ничего не надо, и крутить с панелями.

[Kurzdor]

del

Edited November 19, 2020 by Kurzdor
clean up

[-zav-]

 

 

Как сделать чтобы не было файлов удаления модпака? Тоесть файлы unistall.exe и т.д?

 

видимо так:

[setup]
// Не создавать деинсталлятор.
Uninstallable=no

// не показывать диалог выбора языка
ShowLanguageDialog=no 

// НЕ добавлять папку World_of_Tanks.
AppendDefaultDirName = no

 // не выводить сообщение "такая папка уже существует"
DirExistsWarning=no 

// Сворачивание компонентов в главную строку
;ComponentsListTVStyle=yes

// Отключение страниц.
DisableProgramGroupPage=yes
// Выводит сообщение об авторских правах в правом нижнем углу фонового окна инсталятора
;AppCopyright=Copyright ©  2014 ZAV, Inc.

// Не создавать запись в меню Установка и удаление программ Панели управления.
;CreateUninstallRegKey=yes

//Создание ключа деинсталляции в зависимости от выбранного компонента
;CreateUninstallRegKey=not IsComponentSelected('portable')
//Или так, если деинсталятор не нужен совсем
;Uninstallable=not IsComponentSelected('portable')

// Не создавать деинсталлятор.
Uninstallable=no

[Ekspoint]

Всем добрый вечер.

Как сделать чтобы не было файлов удаления модпака?

Тоесть файлы unistall.exe и т.д?

а зачем их убирать,как удалять то потом?

[-zav-]

 

 

а зачем их убирать,как удалять то потом?

если модпак никуда не устанавливается то и удалять не надо.
А что касается модов то тут палка о двух концах. Например поставил прицел из модпака, потом не понравился поставил прицел левый не из модпака.
Но после деинсталяции модпак удалит такие файлы которые используют многие прицелы ( CameraNode.pyc,  __init__.pyc,  sights.pyc,  sights.xml )

[Ekspoint]

если модпак никуда не устанавливается то и удалять не надо.

 

а если установил,то как потом удалить

[Kotyarko_O]

Но после деинсталяции модпак удалит такие файлы которые используют многие прицелы ( CameraNode.pyc, __init__.pyc, sights.pyc, sights.xml )

Вернее удалит все файлы, которые совпадают по имени и расположению с теми, которые были установлены этим модПаком и занесены в список деинсталлятора. Но возможно и не только по этим атрибутам. Манифест компилятора записывает и размер, и суммы, и версию файлов. А что записывается в деинсталлятор кроме имени и расположения мне пока не известно.

Edited January 13, 2015 by Kotyarko_O

[Ekspoint]

А можно в деинсталляцию реализовать музыку? Типо такого "не удаляй меня!!:)"