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

[Nowik1971 2]

Поищите по ветке, страниц 10 назад Ekspoint выкладывал апдейтер.

 

 

Помогите пажалуйста со скрипт на уведомление выхода обновления модпака для 0.9.14 у меня есть, но не работает!!!

 

 

Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и  уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru  или на свой клади там не надо папку создавать путь пропишешь  к файлу...

Updater.zip

Edited March 14, 2016 by Nowik1971

[Andrew_Dark 8]

Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и  уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru  или на свой клади там не надо папку создавать путь пропишешь  к файлу...

Уже не работает.

[Nowik1971 2]

Уже не работает.

 

 

 Опубликовано Сегодня, 09:45

Nowik1971, on 14 Mar 2016 - 15:04, said:

Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и  уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru  или на свой клади там не надо папку создавать путь пропишешь  к файлу...

Уже не работает. 

 

 

Как не работает? все пашет как надо... вот видео смотрите:

 

'Видео '

https://youtu.be/1XJN3P4UAuA

пишите на скайп помогу настроить

ник мой в скайпе: nowikbiz

[Ekspoint 2,122]

Уже не работает.

ыыыы

[Andrew_Dark 8]

Он живой, живооой!!!

[Ekspoint 2,122]

Он живой, живооой!!!

мнимый online :)

[guceds 2]

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

[Xotabych 337]

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

 

Поиск рулит в теме 173 стр.

[Kotyarko_O 1,906]

Поиск рулит только в тех случаях, когда запрос адекватен =)

В идеале - ключевое слово из требуемого кода (например, в данном случае нам нужна страница; тогда вбиваем CreateCustomPage, или TWizardPage. Нужны компоненты - не вопрос, вписываем TNewCheckListBox). И тогда поисковик вам даст то, что вы хотите.

Edited March 18, 2016 by Kotyarko_O

[asterix93 9]

Привет всем кто знает как редактиравати XML file через Inno setup???

[Kotyarko_O 1,906]

@asterix93, http://krinkels.org/threads/xml.1902/

[asterix93 9]

@asterix93, http://krinkels.org/threads/xml.1902/

Агромная спасиба как всегда ти памагаеш!!!

@asterix93, http://krinkels.org/threads/xml.1902/

Што здеси не правильна

 

#include "XML.iss"
[Setup]
Appname=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
OutputDir=.
[Components]
Name: KMP; Description: "sdjfn;";
Name: KMP\1; Description: "1";
Name: KMP\2; Description: "2";
//Name: KMP\3; Description: "3";
Name: KMP\4; Description: "4";
Name: KMP\5; Description: "5";
Name: KMP\6; Description: "6";
[code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  s: string;
begin
  if CurStep = ssPostInstall then
  begin
    If (IsComponentSelected('KMP\1'))then
    XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sUserData','');
    end;
    begin
    If (IsComponentSelected('KMP\2'))then
    XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'),'DCPlusPlus\Settings\sVersion','1.2');
    end;
    //begin
    //If (IsComponentSelected('KMP\3'))then
    //XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir','({app})');
   // end;
    begin
    If (IsComponentSelected('KMP\4'))then
    XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sAppName','{#SetupSetting("AppName")}');
    end;
    begin
    If (IsComponentSelected('KMP\5'))then
    XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sUserData\sUserName','Shegorat');
    end;
    begin
    If (IsComponentSelected('KMP\6'))then
    XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sUserData\sUserDescription','Закрытая информация:P');
  end;
end;

Edited March 19, 2016 by asterix93

[Kotyarko_O 1,906]

Остаётся только догадываться, что ты имеешь ввиду.

Предположу, что:

XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}'));

[asterix93 9]

 

Остаётся только догадываться, что ты имеешь ввиду.

Предположу, что:

XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}')); 

ашибка била здеси  понел ExpandConstant('{app}')

 

 

Остаётся только догадываться, что ты имеешь ввиду.

Предположу, что:

XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}'));

как можна делати атат скрипт чтобы он менишэ был 

чтобы не исполизбать эта

If (IsComponentSelected('KMP\2'))then

Edited March 19, 2016 by asterix93

[Kotyarko_O 1,906]

 

 

как можна делати атат скрипт чтобы он менишэ был
чтобы не исполизбать эта

Если привязка к компонентам обязательна, то никак.

[asterix93 9]

Если привязка к компонентам обязательна, то никак.

Аха спасиба. А там правилина как я делал

[DimaKarapuz 1]

Как сделать вывод изображений при наведении?? Что то попробовал один код работает но не так как надо.

[Kotyarko_O 1,906]

 

 

Как сделать вывод изображений при наведении?

http://forum.oszone.net/post-2169372-662.html

Требуется расширенная версия компилятора.

[Ekspoint 2,122]

Как сделать вывод изображений при наведении?? Что то попробовал один код работает но не так как надо.

вы хоть тему читали? тут несколько стр назад давали

[DimaKarapuz 1]

вы хоть тему читали? тут несколько стр назад давали

Сообщений очень много мог и пропустить...

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

Есть еще пару вопросов.

Как вывести описания к модам?

 

И есть проблема с backUP папок и файлов.

Вставил код бекапа

#include "SHFileOperation.iss";

[code]
//------- Скрипт backUP ------------
var
  BackupPage: TWizardPage;
  DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;

const
  BackupDescText =
    'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.9.14", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.';
  DeleteDescText =
    'Установщик удалит все файлы в папках.';
  MoveDescText =
    'Установщик сделает резервную копию всех файлов в папках.';
  NoneDescText =
    'Установщик оставит всё как есть.';

function BackupCheck_1(): Boolean;
var
  BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
  BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');
  BackupDescLabel:=TLabel.Create(WizardForm);
  BackupDescLabel.Parent:=BackupPage.Surface;
  BackupDescLabel.Left:=0;
  BackupDescLabel.Top:=0;
  BackupDescLabel.Width:=BackupPage.SurfaceWidth;
  BackupDescLabel.Height:=90;
  BackupDescLabel.AutoSize:=False;
  BackupDescLabel.Wordwrap:=True;
  BackupDescLabel.Caption:=BackupDescText;

  DeleteRadioButton:=TNewRadioButton.Create(WizardForm);
  DeleteRadioButton.Parent:=BackupPage.Surface;
  DeleteRadioButton.Checked:=False;
  DeleteRadioButton.Top:=95;
  DeleteRadioButton.Width:=BackupPage.SurfaceWidth;
  DeleteRadioButton.Font.Style:=[fsBold];
  DeleteRadioButton.Font.Size:=9;
  DeleteRadioButton.Caption:='Удалить старый ModPack'
  DeleteDescLabel:=TLabel.Create(WizardForm);
  DeleteDescLabel.Parent:=BackupPage.Surface;
  DeleteDescLabel.Left:=18;
  DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;
  DeleteDescLabel.Width:=BackupPage.SurfaceWidth;
  DeleteDescLabel.Height:=40;
  DeleteDescLabel.AutoSize:=False;
  DeleteDescLabel.Wordwrap:=True;
  DeleteDescLabel.Caption:=DeleteDescText;

  MoveRadioButton:=TNewRadioButton.Create(WizardForm);
  MoveRadioButton.Parent:=BackupPage.Surface;
  MoveRadioButton.Checked:=True;
  MoveRadioButton.Top:=140;
  MoveRadioButton.Width:=BackupPage.SurfaceWidth;
  MoveRadioButton.Font.Style:=[fsBold];
  MoveRadioButton.Font.Size:=9;
  MoveRadioButton.Caption:='Сделать резервную копию ModPacka'
  MoveDescLabel:=TLabel.Create(WizardForm);
  MoveDescLabel.Parent:=BackupPage.Surface;
  MoveDescLabel.Left:=18;
  MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;
  MoveDescLabel.Width:=BackupPage.SurfaceWidth;
  MoveDescLabel.Height:=40;
  MoveDescLabel.AutoSize:=False;
  MoveDescLabel.Wordwrap:=True;
  MoveDescLabel.Caption:=MoveDescText;

  NoneRadioButton:=TNewRadioButton.Create(WizardForm);
  NoneRadioButton.Parent:=BackupPage.Surface;
  NoneRadioButton.Checked:=False;
  NoneRadioButton.Top:=185;
  NoneRadioButton.Width:=BackupPage.SurfaceWidth;
  NoneRadioButton.Font.Style:=[fsBold];
  NoneRadioButton.Font.Size:=9;
  NoneRadioButton.Caption:='Ничего не трогать'
  NoneDescLabel:=TLabel.Create(WizardForm);
  NoneDescLabel.Parent:=BackupPage.Surface;
  NoneDescLabel.Left:=18;
  NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;
  NoneDescLabel.Width:=BackupPage.SurfaceWidth;
  NoneDescLabel.Height:=40;
  NoneDescLabel.AutoSize:=False;
  NoneDescLabel.Wordwrap:=True;
  NoneDescLabel.Caption:=NoneDescText;
end;

function BackupCheck_2(): Boolean;
begin
  If DeleteRadioButton.Checked then
begin
  DelTree(ExpandConstant('{app}\res_mods\0.9.14'), True, True, True);
  DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
  CreateDir(ExpandConstant('{app}\res_mods\0.9.14'));
end;
end;

function BackupCheck_3(): Boolean;
begin
  If MoveRadioButton.Checked then
begin
  MoveDir(ExpandConstant('{app}\res_mods\0.9.14\'),ExpandConstant('{app}\res_mods\backup\0.9.14'));
  MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm'));
  CreateDir(ExpandConstant('{app}\res_mods\0.9.14'));
  DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep=ssInstall then
begin
  BackupCheck_2();
  BackupCheck_3();
end;
end;

procedure InitializeWizard();
begin
  BackupCheck_1();
end;

Но проблема при компиляции выдает вот такую ошибку

 

Если убрать или закоментировать этот код то не работають картинки при наведении и весь вид инстолятора искревляется...