Jump to content
Korean Random
EvilAlex

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

Recommended Posts

Не могу понять этот параметр

 

[Setup]: MergeDuplicateFiles

Как он работает на практике.

 

Если у меня в одной папке находятся 10 одинаковых по имени файлов, во второй тоже такие же файлы в компонентах указано 1) установить, 2 ) установить но эти файлы должны установиться сначала первые , поверх вторые 

 

мне надо использовать этот параметр YES или необходимо ставить NO 

 

В справке написано так , что понять просто не реально. 

 

Какие одинаковые файлы считаются одинаковыми , по имени , по размеру, по содержимому 

 

Ищет он по всем источникам одинаковое или только по группам .

 

Кто то может объяснить

 

Спасибо.

 

Share this post


Link to post

Short link
Share on other sites

@ferrat , одинаковые файлы - имеется ввиду здесь как файлы, имеющие одинаковое имя (присутствует регистрозависимость). Размер и содержимое не учитывается. Проверяются все файлы, указанные в секции [Files].

Подробнее: https://github.com/jrsoftware/issrc/blob/master/Projects/Compile.pas#L6056

Share this post


Link to post

Short link
Share on other sites

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

  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

а если в логе установленных модов присутствуют символы шрифта? в данный момент в логе вместо символов вопросики

 

r6pjPXPI.jpg

 

 

  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

@ЛОМ , тогда нужно сделать фильтр, который будет отсекать все глифы. В идеале, для строк с глифами нужен отдельный список, - в таком случае будет легче отсекать всё "ненужное".

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites
37 минут назад, Kotyarko_O сказал:

@ЛОМ , тогда нужно сделать фильтр, который будет отсекать все глифы. В идеале, для строк с глифами нужен отдельный список, - в таком случае будет легче отсекать всё "ненужное".

 

а пример можно? 

  • Downvote 1

Share this post


Link to post

Short link
Share on other sites
4 minutes ago, ЛОМ said:

а пример можно? 

Делал давно, для закрытого проекта. Заморочено. Пояснять не буду, лень. Если не понятно - ищи способы попроще.

Glyphs.iss

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

Доброе времени суток,
Подскажите скрип на замену стандартных чекбоксов и радиобутонов на свои в формате (bmp)
Заранее огромное спасибо

Share this post


Link to post

Short link
Share on other sites
9 часов назад, sergy2010 сказал:

Доброе времени суток,
Подскажите скрип на замену стандартных чекбоксов и радиобутонов на свои в формате (bmp)
Заранее огромное спасибо

Вроде так:

[Files]
Source: "Embedded\BTNImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression;

[Code]
procedure InitializeWizard;
var
  BTNImage: TBitmapImage;
  BTNImageStream: TMemoryStream;
begin
  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BTNImage.bmp', BTNImageStream);
  BTNImageStream.Position := ScaleX(0);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);

  with WizardForm.ComponentsList do
  begin
    LoadBtnBmpFromBitmap(BTNImage.Bitmap);
  end;
end;

 

BTNImage.bmp

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites
11 часов назад, AtotIK сказал:

Вроде так:


[Files]
Source: "Embedded\BTNImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression;

[Code]
procedure InitializeWizard;
var
  BTNImage: TBitmapImage;
  BTNImageStream: TMemoryStream;
begin
  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BTNImage.bmp', BTNImageStream);
  BTNImageStream.Position := ScaleX(0);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);

  with WizardForm.ComponentsList do
  begin
    LoadBtnBmpFromBitmap(BTNImage.Bitmap);
  end;
end;

 

BTNImage.bmp

Спс конечно это то , НО при использовании скина выходит вот такая вот фигня((((

На VCL Styles тоже самое, может есть на botva2, если есть поделитесь пожалуйста

Новый точечный рисунок.bmp

Edited by sergy2010

Share this post


Link to post

Short link
Share on other sites
В 07.11.2018 в 13:57, sergy2010 сказал:

Спс конечно это то , НО при использовании скина выходит вот такая вот фигня((((

На VCL Styles тоже самое, может есть на botva2, если есть поделитесь пожалуйста

Проблема явно у вас на компьютере. У меня прекрасно натягивается текстура. Скиньте пустой exe'шник для проверки.

Share this post


Link to post

Short link
Share on other sites
1 час назад, AtotIK сказал:

Проблема явно у вас на компьютере. У меня прекрасно натягивается текстура. Скиньте пустой exe'шник для проверки.

Возможно и так что у меня проблема, но если она есть у меня то в принципе  может быть такое что и у некоторых других так будет 

Install.rar

Edited by sergy2010

Share this post


Link to post

Short link
Share on other sites
1 час назад, sergy2010 сказал:

Возможно и так что у меня проблема, но если она есть у меня то в принципе  может быть такое что и у некоторых других так будет 

Install.rar

Не используйте скины - это дурной тон. Как и музыка в инсталляторе.

Share this post


Link to post

Short link
Share on other sites
25 минут назад, AtotIK сказал:

Не используйте скины - это дурной тон. Как и музыка в инсталляторе.

а без скина рамка стандарт не устраивает, я так понял решения в этой проблеме нету?

Share this post


Link to post

Short link
Share on other sites
1 час назад, sergy2010 сказал:

рамка стандарт не устраивает

 

Можешь полностью отключить ее отображение:

with WizardForm do begin
  BorderStyle:=bsNone;
end;

Это повлечет за собой невозможность двигать окно установщика, но это поправимо.

 

А так если что то не нравится в оформлении стандартного установщика - ботва тебе в помощь. При должном желании и времени (для понимания какие возможности предоставляет библиотека и как ей пользоваться) можешь хоть все элементы перерисовать на свой лад.

Edited by night_dragon_on

Share this post


Link to post

Short link
Share on other sites
12 часов назад, night_dragon_on сказал:

Это повлечет за собой невозможность двигать окно установщика, но это поправимо.

Теперь окно будет двигаться.

[Code]
function ReleaseCapture: Longint; external '[email protected] stdcall';

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(WizardForm.Handle, $0112, $F012, 0);
end;

procedure InitializeWizard;
begin
  with WizardForm do
  begin
    OnMouseDown := @LabelOnMouseDown;
  end;
end;

 

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites
В 07.11.2018 в 16:56, AtotIK сказал:

Вроде так:


[Files]
Source: "Embedded\BTNImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression;

[Code]
procedure InitializeWizard;
var
  BTNImage: TBitmapImage;
  BTNImageStream: TMemoryStream;
begin
  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BTNImage.bmp', BTNImageStream);
  BTNImageStream.Position := ScaleX(0);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);

  with WizardForm.ComponentsList do
  begin
    LoadBtnBmpFromBitmap(BTNImage.Bitmap);
  end;
end;

 

BTNImage.bmp

В ComponentList и TasksList изменил. помогите как изменить в SelectDirPage Спасибо.

screenshot 2018-12-25 001.png

Share this post


Link to post

Short link
Share on other sites
6 часов назад, m4rs сказал:

В ComponentList и TasksList изменил. помогите как изменить в SelectDirPage Спасибо.

screenshot 2018-12-25 001.png

Насколько я помню LoadBtnBmpFromBitmap есть только у ComponentList и TasksList.

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...