Jump to content
Korean Random
EvilAlex

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

Recommended Posts

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

В коде, который вы давали, нет даже намёков на попытки добавить эти скрины.

Кроме этой несчастной строки:

Source: img_mod\1.bmp; Flags: dontcopy noencryption noencryption

В этой теме есть примеры, как это осуществить.

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как.

Share this post


Link to post

Short link
Share on other sites

спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как.

"Одна строка только" - это для подхвата изображения.

 

 

 

В этой теме есть примеры, как это осуществить.

Share this post


Link to post

Short link
Share on other sites

спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как.

с 4 по 10 смотри там вроде есть пример.

Edited by Ekspoint

Share this post


Link to post

Short link
Share on other sites

 

 

Посмотрите пожалуйста почему не работает бекап?

 

вот пост,смотри http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=157502

и  прочитай всю тему а не качай готовый скрипт W-mods

Share this post


Link to post

Short link
Share on other sites

Я тему читал, тот пост я смотрел, пак у меня собран полностью, но не работает только бекап, все остальное отлично, вот и прошу посмотреть знающих и помочь исправить косячек.

Вот почему и тут такие???

 

прочитай всю тему а не качай готовый скрипт W-mods

Сами же пользуетесь Inno Setup Compiler, а не пишите полностью с нуля и не компилите exe)))

Это же тоже шаблон как от 

 

готовый скрипт W-mods

Я не собираюсь это продавать,мне надо сделать модпак для своего клана,и сидет неделю учить питоновские скрипты для этого нет времени,просто шаблон, вставил и все.

Кстати спасибо огромное человеку который это сделал)  :ok:


setup.rar

Вот что у меня получилось

Закинул в архив так как не принимает форум ехе файлы.

В примере были только одна картинка  на выбор  мода, несколько на выбор обложки и тело скрипта.

Делал все сам.


Кстати там еще такая ошибка

post-28167-0-49117400-1414313727_thumb.jpg

Я не знаю как исправить, просто закоментировал ее и компиляция прошла успешно.


Кстате не сочтите за рекламу, но я отседа

http://4pda.ru/forum/index.php?showtopic=256187&st=62360#entry35243898

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

Edited by alexseyuh

Share this post


Link to post

Short link
Share on other sites
Я не знаю как исправить, просто закоментировал ее и компиляция прошла успешно.

 

После end нет точки с запятой до и после этой строки. Во всплывающем окне с ошибкой это же ясно видно.

Edited by night_dragon_on

Share this post


Link to post

Short link
Share on other sites

alexseyuh, там же написано... синтаксиса не знаете, что уже дальше говорить. :an:  ; после end пишется всегда, если только он не стоит перед else.
Вообще в скрипте такая каша, что чёрт ногу сломит в некоторых местах.
 
По бэкапу можно использовать такой вариант, он проще:

#define SourceDir "res_mods";
#define BackupDir "old_res_mods";

[Setup]
AppName=Test
AppVersion=1.5
DefaultDirName={pf}\Test
OutputDir=.

[Code]
var
  BackupCheck: TCheckBox;

procedure CopyFiles(FromPlace, ToPlace: String);
var
    ResultCode: Integer;
begin
    Exec('xcopy.exe', '/E /C /H /R /Y /F /I ' + AddQuotes(FromPlace) + ' ' + AddQuotes(ToPlace), ExpandConstant('{app}'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

procedure BackupCheckCreate();
begin
  BackupCheck:=TCheckBox.Create(WizardForm);
    with BackupCheck do
      begin
        Parent:=WizardForm.SelectDirPage;
        SetBounds(ScaleX(WizardForm.DirEdit.Left), ScaleY(WizardForm.DirEdit.Top + 40), ScaleX(WizardForm.DirEdit.Width), ScaleY(15));
        Caption:='Сохранить резервную копию перезаписываемых файлов';
        Checked:=True;
      end;
end;

procedure BackUp(CurStep: TSetupStep);
var
    ThereIsFolders: Boolean;
begin
  if BackupCheck.Checked then
  begin
    ThereIsFolders:=(DirExists(AddBackslash(WizardDirValue()) + '{#SourceDir}') and (not DirExists(AddBackslash(WizardDirValue()) + '{#BackupDir}')) );
    if ThereIsFolders then
    if CurStep=ssInstall then
      begin
        WizardForm.ProgressGauge.Hide;
        WizardForm.StatusLabel.Caption:='Создание резервных копий файлов...';
        CopyFiles(ExpandConstant('{app}') + '\{#SourceDir}\*.*', ExpandConstant('{app}') + '\{#BackupDir}');
        WizardForm.ProgressGauge.Show;
        WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusExtractFiles);
      end;
  end;
end;

procedure InitializeWizard();
begin
  BackupCheckCreate();
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
   BackUp(CurStep);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    if CurUninstallStep = usPostUninstall then
      begin
        CopyFiles(ExpandConstant('{app}') + '\{#BackupDir}\*.*', ExpandConstant('{app}') + '\{#SourceDir}');
        DelTree(ExpandConstant('{app}') + '\{#BackupDir}', True, True, True);
      end;
end;

Edited by AtotIK
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

После end нет точки с запятой до и после этой строки. Во всплывающем окне с ошибкой это же ясно видно.

поставил после и компиляция прошла без ошибок

post-28167-0-67380200-1414315614_thumb.jpg

А что с бекапом не подскажете?

Просто папка после установки мода пустая где должен быть бекап((

Share this post


Link to post

Short link
Share on other sites

поставил после

 

А во втором энде нет опять (судя по скрину).

 

begin
  ExtractTemporaryFile('Button.bmp')

  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=50
    Top:=465
    Width:=35
    Height:=36
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
  end;
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
    Parent:=BtnPanel
  end;
end;

  Edited by night_dragon_on

Share this post


Link to post

Short link
Share on other sites

вот такая ошибка

 

Два раза использовали в коде процедуру с одним названием.

Edited by night_dragon_on

Share this post


Link to post

Short link
Share on other sites

А во втором энде нет опять (судя по скрину).

 

begin
  ExtractTemporaryFile('Button.bmp')

  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=50
    Top:=465
    Width:=35
    Height:=36
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
  end;
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
    Parent:=BtnPanel
  end;
end;

 

Ок спс это исправил, поставил.

Вот нашел дубль но за что он отвечает не знаю

post-28167-0-52923100-1414316636_thumb.jpg

Share this post


Link to post

Short link
Share on other sites
Вот нашел дубль но за что он отвечает не знаю

 

Эту строку удалите:

 

procedure InitializeWizard();
begin
  BackupCheckCreate();
end; 

 

И добавьте параметр BackupCheckCreate(); в уже существующую процедуру.

 

procedure InitializeWizard();
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
var

//////////////////////////////////////////////////////////////Бекап папки res_mods/////////////////////////////////////////////////////////////
    ThereIsFolder: Boolean;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    i, iCount: Integer;

begin
    BackupCheckCreate();

  Edited by night_dragon_on

Share this post


Link to post

Short link
Share on other sites

у строку уберите и добавьте данные в уже существующую процедуру.

 

 

Строку там убрал,тут дописал ,но опять((

post-28167-0-14036500-1414317152_thumb.jpg

Share this post


Link to post

Short link
Share on other sites
Я не собираюсь это продавать,мне надо сделать модпак для своего клана,и сидет неделю учить питоновские скрипты для этого нет времени,просто шаблон, вставил и все.

Маладес. Надо - учи.

Edited by Kotyarko_O
  • Upvote 1
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

Строку там убрал,тут дописал ,но опять((

 

Во первых вы зачем то добавили два begin-а, а не как я указал в сообщении.

Во вторых процедура procedure BackupCheckCreate(); у вас находится после procedure InitializeWizard(); ,поэтому и выдается предупреждение о неизвестном параметре.

Edited by night_dragon_on

Share this post


Link to post

Short link
Share on other sites

alexseyuh, издеваетесь что-ли? Что за идиотские вопросы со скринами ошибок? Видимо вообще не стыдно.

 

Подключаемая кастомная процедура всегда должна быть выше по коду той, в которой её подключают. И зачем два раза написана RedesignWizardForm; + появился begin?

Помидорами бы вас закидать, горемодпакеры.

  • Upvote 1
  • Downvote 2

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...