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

[alexseyuh 0]

короче не помогло,сделал так

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

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

    i, iCount: Integer;

    begin
  
  RedesignWizardForm;
RedesignWizardForm;
backupChk := nil;
    ThereIsFolder := DirExists(AddBackslash(WizardDirValue()) + '{#SourceDir}');

И тут убрал эту строчку ,так как давало ошибку при запуске ехе и исполнении процедуры кода.Теперь бекапит.

 

было 

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;

стало:

procedure BackUp(CurStep: TSetupStep);
var
    ThereIsFolders: Boolean;
begin

  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;

[AtotIK 580]

Значит BackupCheckCreate(); не правильно подключил.

[night_dragon_on 5,601]

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

 

 

короче не помогло,сделал так

 

Ну как говорится получилось "Черте что и с боку бантик"

Edited October 26, 2014 by night_dragon_on

[alexseyuh 0]

 

 

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

 

Я же написал,опыта нет ,откуда я знаю что там после чего идет,мне дали шаблон с ошибками, я же просил вас просто помочь исправить их, ВСЕ!!!

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

Но в этом деле я ноль))Причем тут издеваетесь то????

[AtotIK 580]

alexseyuh, не разбираешься - не лезь. Ты наверное перед началом ковыряния в прошивках доки прочёл всякие, изучил синтаксис, операторы и операнды. Вот тут так же всё - сначала нужно хотя бы прочесть доки по Pascal, а потом начинать что-то делать. Сходу ничего не получится.

[alexseyuh 0]

 

 

Сходу ничего не получится.

 

Это понятно,но повторюсь еще раз.

Мне нужен просто шаблон,в который я буду подставлять данные.

При выходе свежих модификаций от наших умельцев.

Те штуки не мои которые в паке,а нашего форумчанина и делал по его просьбе.

Не уж то вам так трудно переработать скрипт и исправить.

Если трудно то не стоит тогда и писать что то.

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

Или я вас не понимаю???

[Kotyarko_O 1,906]

И тут убрал эту строчку ,так как давало ошибку при запуске ехе и исполнении процедуры кода.Теперь бекапит.

Ага, и будет бекапить в любом случае. Даже если пункт бекапа не выбран, даже если выбран какой-то другой пункт. А если процедура удаления прописана раньше процедуры бекапа - будут сыпаться ошибки в ходе установки. Очень кривое и глупое решение.

 

 

 

не разбираешься - не лезь.

+ Edited October 26, 2014 by Kotyarko_O

[AtotIK 580]

alexseyuh, всегда сложно разбираться в чужом коде, даже разбирающемуся в этом человеку. А тут изначальный быдло-код + твои шаловливые ручки постарались. Самый лучший способ - делать всё самому с нуля.

 

Код не компилировал, вроде всё правильно поставлял. Проверяй:

Версия 2f.rar

Edited October 26, 2014 by AtotIK

[alexseyuh 0]

Код не компилировал, вроде всё правильно поставлял. Проверяй:

 

 

#define SourceDir "res_mods";

#define BackupDir "old_res_mods"

Вот это не поменял, ошибка я  сменил сам 

И после опять:

И пропал чек бокс сделать бекап.

[AtotIK 580]

alexseyuh, перекачай. Забыл подключить создание чекбокса.

[alexseyuh 0]

 

 

Забыл подключить создание чекбокса.

 
теперь все робит,но чекбоксы наползали друг на друга,изменил тут на 60, было 50 и все путем стало.

//////////////////////////////////////////////////////////////Удаление старых модов////////////////////////////////////////////////////////////
    begin
        Parent := WizardForm.SelectDirPage;
        SetBounds(ScaleX(WizardForm.DirEdit.Left), ScaleY(WizardForm.DirEdit.Top + 60), ScaleX(WizardForm.DirEdit.Width), ScaleY(15));
        Caption := 'Удалить все старые моды';
        Checked := True;
    end;

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

[BeReSa 97]

Доброго времени суток! Пытаюсь распаковать свой setup.ехе через Inno Setup Unpacker, написал в батнике

innounp.exe
-x setup
pause

мне пишет что не определяет -х и никакой другой параметр... что делаю не так?

[night_dragon_on 5,601]

мне пишет что не определяет -х и никакой другой параметр... что делаю не так?

 

Используйте графическую версию распаковщика с ней проще работать.

А так возможно вы пытаетесь распаковать инсталлятор созданный расширенной версией компилятора от китайцев.

Edited October 29, 2014 by night_dragon_on

[Kotyarko_O 1,906]

Доброго времени суток! Пытаюсь распаковать свой setup.ехе через Inno Setup Unpacker

А с каой целью вы пытаетесь его распаковать?

Код вы все равно не получите.

[Azbuka 278]

@BeReSa, Нужно указывать полные пути, а параметры должны быть на той же строке:

C:\innounp.exe -x C:\source.exe
pause

[Andrew_Dark 8]

Доброго времени суток! Пытаюсь распаковать свой setup.ехе через Inno Setup Unpacker, написал в батнике

innounp.exe

-x setup

pause

мне пишет что не определяет -х и никакой другой параметр... что делаю не так?

А соизволите показать название установщика, который Вы пыиаетесь вскрыть? Просто интересно.

alexseyuh, не разбираешься - не лезь. Ты наверное перед началом ковыряния в прошивках доки прочёл всякие, изучил синтаксис, операторы и операнды. Вот тут так же всё - сначала нужно хотя бы прочесть доки по Pascal, а потом начинать что-то делать. Сходу ничего не получится.

Наверное гуру пора открывать курсы по инно чтоли, и первым уроком научить пользоваться справкой и прочей елементарной вспомогательной документацией:)

[BeReSa 97]

Используйте графическую версию распаковщика с ней проще работать.

А так возможно вы пытаетесь распаковать инсталлятор созданный расширенной версией компилятора от китайцев.

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

 

А с каой целью вы пытаетесь его распаковать?

Код вы все равно не получите.

Код я сам писал, простенький. У меня все работает. я для клана делал. Соклановец немного разбирается, хотел ему скинуть все разжеванное, чтобы тоже свой пак клану выкладывал заменив мои файлы, скрипт я ему уже вчера скинул. Спасибо этому топику, все доступно изложено. (еще не все прочитал)

 

А соизволите показать название установщика, который Вы пыиаетесь вскрыть? Просто интересно.

название я скинул выше, если вы про установочный файл который я сам собрал.

 

 

@BeReSa, Нужно указывать полные пути, а параметры должны быть на той же строке:

C:\innounp.exe -x C:\source.exe
pause

Спасибо вам. Как освобожусь, первым делом попробую.

 

UPD: Спасибо еще раз, получилось.

Edited October 29, 2014 by BeReSa

[Kotyarko_O 1,906]

 

 

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

А декомпилировать зачем? Передайте ему исходники и всё.

[BeReSa 97]

А декомпилировать зачем? Передайте ему исходники и всё.

я уже понял,  распаковку немного по другому себе представлял.. Хотя не пожалел потраченного времени, узнал много нового.

[Hienz 2]

  Всем здравствуйте!

 

Кто может помочь добавить кнопу вкл./выкл. музыки и возможность делать бэкап как на странице 7 у AtotlK.

Сам пробовал, возился два дня (папки создавала но файлов в них не было... как я понял надо переустанавливать inno setup с поддержкой unicode... (

Инсталлятор собираю для Друзей 8 )

 

скрипт: https://www.dropbox.com/s/mcbqtpate5up3e5/script.iss?dl=0

 

кнопка: https://www.dropbox.com/s/qzexexphcyc1wuc/post-21541-0-77239900-1405196454.png?dl=0

 

Спасибо!

 

'мой модпак'

https://www.dropbox.com/s/qqam4n6t67p4lbt/0.9.3%20Modpack%20by%20Hienz%20RC1.1%20xvm5.3.5%20Nightly.exe?dl=0

Edited November 2, 2014 by Hienz