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

[Andrew_Dark 8]

ты мне?

ты мне?

ты мне?

Угу

[AtotIK 580]

На флаге external не работает:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
Compression=none

[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}; BeforeInstall: AddToMemo;

[```Code```]
var
  DetailsButton: TNewButton;
  FilesMemo: TNewMemo;
  Flag: Boolean;

procedure AddToMemo();
var
  AFile: String;
begin
  AFile:=ExpandConstant(CurrentFilename);
  If ExtractFileExt(AFile)='' then
  FilesMemo.Lines.Add('CreateFolder: '+RemoveBackslash(AFile)) else
  FilesMemo.Lines.Add('Extract: '+AFile);
end;

procedure HideShow(Sender: TObject);
begin
  If not Flag then begin
    FilesMemo.Hide;
    DetailsButton.Caption:='Детали...';
    Flag:=True;
  end else begin
    FilesMemo.Show;
    DetailsButton.Caption:='Скрыть';
    Flag:=False;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.ProgressGauge.Top:=ScaleY(34);

  FilesMemo:=TNewMemo.Create(WizardForm);
  with FilesMemo do
  begin
    SetBounds(WizardForm.InstallingPage.Left, ScaleY(88), WizardForm.ProgressGauge.Width, ScaleY(145));
    Parent:=WizardForm.InstallingPage;
    WordWrap:=True;
    ScrollBars:=ssVertical;
    ReadOnly:=True;
    Visible:=false;
    Clear;
  end;

  DetailsButton:=TNewButton.Create(WizardForm);
  with DetailsButton do
  begin
    Parent:=WizardForm.InstallingPage;
    SetBounds(ScaleX(334), ScaleY(60), ScaleX(75), ScaleY(25));
    Caption:='Детали';
    OnClick:=@HideShow
  end;
  Flag:=True;
end;

[Andrew_Dark 8]

О, прикольно, отдельный установщик шрифтов получился:)

[Ekspoint 2,122]

На флаге external не работает:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
Compression=none

[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}; BeforeInstall: AddToMemo;

[```Code```]
var
  DetailsButton: TNewButton;
  FilesMemo: TNewMemo;
  Flag: Boolean;

procedure AddToMemo();
var
  AFile: String;
begin
  AFile:=ExpandConstant(CurrentFilename);
  If ExtractFileExt(AFile)='' then
  FilesMemo.Lines.Add('CreateFolder: '+RemoveBackslash(AFile)) else
  FilesMemo.Lines.Add('Extract: '+AFile);
end;

procedure HideShow(Sender: TObject);
begin
  If not Flag then begin
    FilesMemo.Hide;
    DetailsButton.Caption:='Детали...';
    Flag:=True;
  end else begin
    FilesMemo.Show;
    DetailsButton.Caption:='Скрыть';
    Flag:=False;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.ProgressGauge.Top:=ScaleY(34);

  FilesMemo:=TNewMemo.Create(WizardForm);
  with FilesMemo do
  begin
    SetBounds(WizardForm.InstallingPage.Left, ScaleY(88), WizardForm.ProgressGauge.Width, ScaleY(145));
    Parent:=WizardForm.InstallingPage;
    WordWrap:=True;
    ScrollBars:=ssVertical;
    ReadOnly:=True;
    Visible:=false;
    Clear;
  end;

  DetailsButton:=TNewButton.Create(WizardForm);
  with DetailsButton do
  begin
    Parent:=WizardForm.InstallingPage;
    SetBounds(ScaleX(334), ScaleY(60), ScaleX(75), ScaleY(25));
    Caption:='Детали';
    OnClick:=@HideShow
  end;
  Flag:=True;
end;

спасибо

На флаге external не работает:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
Compression=none

[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}; BeforeInstall: AddToMemo;

[```Code```]
var
  DetailsButton: TNewButton;
  FilesMemo: TNewMemo;
  Flag: Boolean;

procedure AddToMemo();
var
  AFile: String;
begin
  AFile:=ExpandConstant(CurrentFilename);
  If ExtractFileExt(AFile)='' then
  FilesMemo.Lines.Add('CreateFolder: '+RemoveBackslash(AFile)) else
  FilesMemo.Lines.Add('Extract: '+AFile);
end;

procedure HideShow(Sender: TObject);
begin
  If not Flag then begin
    FilesMemo.Hide;
    DetailsButton.Caption:='Детали...';
    Flag:=True;
  end else begin
    FilesMemo.Show;
    DetailsButton.Caption:='Скрыть';
    Flag:=False;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.ProgressGauge.Top:=ScaleY(34);

  FilesMemo:=TNewMemo.Create(WizardForm);
  with FilesMemo do
  begin
    SetBounds(WizardForm.InstallingPage.Left, ScaleY(88), WizardForm.ProgressGauge.Width, ScaleY(145));
    Parent:=WizardForm.InstallingPage;
    WordWrap:=True;
    ScrollBars:=ssVertical;
    ReadOnly:=True;
    Visible:=false;
    Clear;
  end;

  DetailsButton:=TNewButton.Create(WizardForm);
  with DetailsButton do
  begin
    Parent:=WizardForm.InstallingPage;
    SetBounds(ScaleX(334), ScaleY(60), ScaleX(75), ScaleY(25));
    Caption:='Детали';
    OnClick:=@HideShow
  end;
  Flag:=True;
end;

а можно 

BeforeInstall: AddToMemo;

написать один раз как нибудь чтоб не прописывать к каждому 

Source

?

[Andrew_Dark 8]

Кстати, а как пофиксить для винды 8.1 отображение скроллбара, видел фикс на ос зоне, но не помню где.

[Kotyarko_O 1,906]

Теперь всё заработало, но картинки не показывает. В чём проблема? Могу скинуть скрипт в лч

Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать.

 

почему у меня звук лезет на нижний компонент тоже который не прописан?

Компонент - дочерний?

 

это хрень не рабочая,я прошу рабочий!!

Попробовал, поле пустое, текста 0

Проблемы с вашей стороны. Инициализацию хотя бы объединяли?..

'Пруф.'

а можно 

BeforeInstall: AddToMemo;

написать один раз как нибудь чтоб не прописывать к каждому 

Source

?

Неа.

Edited November 22, 2014 by Kotyarko_O

[Prost 1]

Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать.

 

 

 

 

От него нет помощи) Я вставил код и немного изменил в тех строчках где нужно написать название картинок, но перед этим добавил их в Files. Но когда делаю модпак есть 2 окна но картинки нет что делать?  

[Kotyarko_O 1,906]

От него нет помощи)

Не сомневался.

 

что делать?

Прикрепите скрипт.

Edited November 22, 2014 by Kotyarko_O

[Prost 1]

Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать.

 

 

Если что, вот скрипт. Посмотри что не так?

Модпак2.zip

[Kotyarko_O 1,906]

 

 

Если что, вот скрипт.

Ага, и только он. Желательно всё, что от него есть (можно без самих модов).

[Prost 1]

Ага, и только он. Желательно всё, что от него есть (можно без самих модов).

Модпак2 (2).zip

[Andrew_Dark 8]

Просто добавив этот код картинок не будет. Впрочем, вон вам уже рвутся помогать.

 

Компонент - дочерний?

 

Проблемы с вашей стороны. Инициализацию хотя бы объединяли?..

'Пруф.'

22.11.png

Неа.

С нашей? Котярко, я знал, что ты *****, но не настолько же;)

Не сомневался.

 

Прикрепите скрипт.

Слушай, ты бы сопляк [мат] свой на привязи держал, ок? Держите Ваше мнение при себе, уважаемый;)

[Kotyarko_O 1,906]

Кому-то не нравлюсь? - Застрелитесь, не исправлюсь

 

@Prost, "Архив повреждён или имеет неизвестный формат".

Edited November 22, 2014 by Kotyarko_O

[Andrew_Dark 8]

Улыбнуло :)

 

@Prost, "Архив повреждён или имеет неизвестный формат".

Долго вы думали, чтобы минус поставить и написать это:)

[Prost 1]

Улыбнуло :)

 

@Prost, "Архив повреждён или имеет неизвестный формат".

Модпак2 (2).zip

[Ekspoint 2,122]

Prost,прочитай всю тему и все поймешь!!!

[Kotyarko_O 1,906]

@Prost,

'Прицел от Jove.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\5.bmp'; // пишем точно так же, как прописано в компонентах
'Дамаг панель от GambitER.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\25.bmp';

UndefPic должен содержать имя изображения, без пути.

Описание компонента должно быть в точности такое, как и прописано в секции [Components]. Или уберите точки из кода, приведённого выше, или добавьте их к описанию компонентов в одноимённой секции ([Components]).

[Prost 1]

@Prost,

'Прицел от Jove.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\5.bmp'; // пишем точно так же, как прописано в компонентах
'Дамаг панель от GambitER.': UndefPic := 'F:\СЮДА СКАЧИВАЕТСЯ ВСЁ ЧТО С ЯНДЕКСА КАЧАЮ\New Script\25.bmp';

UndefPic должен содержать имя изображения, без пути.

Описание компонента должно быть в точности такое, как и прописано в секции [Components]. Или уберите точки из кода, приведённого выше, или добавьте их к описанию компонентов в одноимённой секции ([Components]).

Спс теперь работает

[Ekspoint 2,122]

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

[Kotyarko_O 1,906]

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

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

Procedure InitializeSetup(): Boolean; или InitializeWizard(): Boolean;
...
Procedure DeinitializeSetup(): Boolean; или DeinitializeWizard(): Boolean;

А при удалении нужно:

Procedure InitializeUninstall(): Boolean; и DeinitializeUninstall(): Boolean;

Edited November 23, 2014 by Kotyarko_O