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

[Kotyarko_O]

Кстати вот вопрос у меня - а чего не используете SFX архив с кастомизированным окном для сжатия всего инсталятора, вместо того чтобы сжимать ресуры внутри инсталла. Это ведь не удобно да и качество сжатия всегда хуже.

 

Многие же так делают

 

У них типа запускаешь exe а появляется окно SFX-распаковки оно автоматически распаковывает в тепм инсталлятор и сама его и запускает... все же сто раз видели.

 Это актуально, если инсталл по весу тяжёлый. Лично у меня 70мб (и в дальнейшем буду нерфить). И дополнительное вот такое сжатие не нужно..

Тут у некоторых инсталл по гигу весит, вот им будет полезно :)

[StranikS_Scan]

 Это актуально, если инсталл по весу тяжёлый. Лично у меня 70мб (и в дальнейшем буду нерфить). И дополнительное вот такое сжатие не нужно..

Тут у некоторых инсталл по гигу весит, вот им будет полезно :)

 

Было время я таким штуками занимался, могу тему создать, и выложить готовый инструмент с инструкциями для winrar и 7-zip. 

 

Удобно то, что компилишь мод пак вообще без сжатия, а потом вжиииик его по максимому, всем удобно и быстро.

Edited August 10, 2014 by StranikS_Scan

[Ekspoint]

Было время я таким штуками занимался, могу тему создать, и выложить готовый инструмент с инструкциями для winrar и 7-zip. 

 

Удобно то, что компилишь мод пак вообще без сжатия, а потом вжиииик его по максимому, всем удобно и быстро.

давай посмотрим 

[Kotyarko_O]

Было время я таким штуками занимался, могу тему создать, и выложить готовый инструмент с инструкциями для winrar и 7-zip. 

 

Удобно то, что компилишь мод пак вообще без сжатия, а потом вжиииик его по максимому, всем удобно и быстро.

давай посмотрим 

А вот и нашёлся тот, у кого инстальник не собирается худеть :)

[Metrix647]

Ребята! Что-то с пмодом не айс. У меня дефолтный конфиг копируется в начале, после уже конкретные включенные компоненты. Проблема в том что когда установил модпак посмотрел в папку пмода, а там должны были остаться некоторые дефолтный компоненты, но их нет. Когда выбирал то что надо они заменили папку дефолтного пмода,а не скопировались. Как просто копировать с заменой того что надо? за копирование какие флаги отвечают?

[Kotyarko_O]

Ребята! Что-то с пмодом не айс. У меня дефолтный конфиг копируется в начале, после уже конкретные включенные компоненты. Проблема в том что когда установил модпак посмотрел в папку пмода, а там должны были остаться некоторые дефолтный компоненты, но их нет. Когда выбирал то что надо они заменили папку дефолтного пмода,а не скопировались. Как просто копировать с заменой того что надо? за копирование какие флаги отвечают?

Смотря как у тебя расположены изначально (в инсталле) эти файлы.

ignoreversion recursesubdirs createallsubdirs

У меня они там извращённо расположены)

Edited August 10, 2014 by Kotyarko_O

[Metrix647]

Смотря как у тебя расположены изначально (в инсталле) эти файлы

вот так в mods находятся файлы

вот начало кода

Вот продолжение

Вроде правильно расположены

PS пмоды расположены на 3 скрине по папкам

Даааа. Чет я вообще туплю)) Нашел косяк)) У меня прицелы в двух пунктах вот в первый поставил копироваться пмод а во второй нет, а сам пользуюсь прицелами от второго пункта. То есть не копировал вообще)) Эхэхэх невнимательность)

Edited August 10, 2014 by Metrix647

[MEDNIKs]

@Kotyarko_O,не поможешь с прогресс баром?

[Kotyarko_O]

@Kotyarko_O,не поможешь с прогресс баром?

а чё с ним надо сделать?

Edited August 10, 2014 by Kotyarko_O

[MEDNIKs]

 

 

а чё с ним надо сделать?

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

Edited August 10, 2014 by MEDNIKs

[Kotyarko_O]

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

Это и так есть.

А то, что ты недавно просил (я просто забыл), вот:

[Code]
var
  FilesMemo: TNewMemo;

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 InitializeWizard();
begin
  FilesMemo := TNewMemo.Create(WizardForm);
  FilesMemo.SetBounds(ScaleX(0), ScaleY(80), ScaleX(418), ScaleY(120));
  FilesMemo.WordWrap := False;
  FilesMemo.Parent := WizardForm.InstallingPage;
  FilesMemo.ScrollBars := ssVertical;
  FilesMemo.ReadOnly := True;
  FilesMemo.Clear;
end;

[MEDNIKs]

 

 

А то, что ты недавно просил (я просто забыл), вот:

Спасибо!

 

 

Это и так есть.

 

У меня эта форма походу скрыта и показывает только полосу

[Kotyarko_O]

У меня эта форма походу скрыта и показывает только полосу

WizardForm.FilenameLabel, если что.

[MEDNIKs]

 

 

WizardForm.FilenameLabel, если что.

Спасибо!!! 

@Kotyarko_O, 

 а прозрачность этой форме можно сделать?

[Kotyarko_O]

 

 

а прозрачность этой форме можно сделать?

WizardForm.FilenameLabel ей?

или ей?

[MEDNIKs]

 

 

WizardForm.FilenameLabel ей? или ей?

 WizardForm.FilenameLabel

[Kotyarko_O]

 WizardForm.FilenameLabel

Простыми средствами альфу нельзя указывать ничему. Можешь попробовать дописать это:

WizardForm.FilenameLabel.Enabled := False;

Затемнит где-то на половину.

Или просто прописать серый цвет.

Edited August 10, 2014 by Kotyarko_O

[MEDNIKs]

А то получается вот так

 

[Kotyarko_O]

А то получается вот так

Аа, вот за что ты говоришь.. тут уже хз. Хотя можешь попробовать так:

[Code]
procedure InheritBoundsRect(ASource, ATarget: TControl);
begin
  ATarget.Left := ASource.Left;
  ATarget.Top := ASource.Top;
  ATarget.Width := ASource.Width;
  ATarget.Height := ASource.Height;
end;

procedure InitializeWizard;
var
  FilenameLabel1: TLabel;
begin
  FilenameLabel1 := TLabel.Create(WizardForm);
  FilenameLabel1.Parent := WizardForm.FilenameLabel.Parent;
  FilenameLabel1.Font := WizardForm.FilenameLabel.Font;
  FilenameLabel1.Caption := WizardForm.FilenameLabel.Caption;
  FilenameLabel1.WordWrap := WizardForm.FilenameLabel.WordWrap;
  InheritBoundsRect(WizardForm.FilenameLabel, FilenameLabel1);
  WizardForm.FilenameLabel.Visible := False;
end;

т.к. стандартный FilenameLabel не поддерживает Transparency (прозрачность), можно попробовать импортировать все его параметры в искусственный лейбл.

Edited August 10, 2014 by Kotyarko_O

[MEDNIKs]

т.к. стандартный FilenameLabel не поддерживает Transparency (прозрачность), можно попробовать импортировать все его параметры в искусственный лейбл.

 

Чет не получается,наверное опять с процедурами косяк!

Разжуй как с ними бороться?

Edited August 10, 2014 by MEDNIKs