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

[Kotyarko_O]

 

 

а можно вместо номера компонента сделать его название?

Нельзя.

[Pokaritel_VBR]

 

 

Нельзя.

 

Можно, по англиски

[Kotyarko_O]

Можно, по англиски

Например?

Edited December 27, 2014 by Kotyarko_O

[Pokaritel_VBR]

А как сделать мод, чтобы он оповещал  он новой сборке ?

Я где-то видел на форумах, что надо платить за него $

[Kotyarko_O]

А как сделать мод, чтобы он оповещал  он новой сборке ?

Я где-то видел на форумах, что надо платить за него $

Если в игре - учи язык или ищи раздел платных заказов.

Если в установщике - учи язык или в лс.

Edited December 27, 2014 by Kotyarko_O

[Ekspoint]

Кто может скинуть код на очистку профайла?

Если в установщике - учи язык или в лс.

А что такое есть?

[Kotyarko_O]

Кто может скинуть код на очистку профайла?

  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\account_caches'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\battle_results'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\custom_data'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\dossier_cache'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\tutorial_cache'), True, True, True);

А что такое есть?

Посмотри у меня.

Edited December 27, 2014 by Kotyarko_O

[Ekspoint]

  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\account_caches'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\battle_results'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\custom_data'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\dossier_cache'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\tutorial_cache'), True, True, True);

Посмотри у меня.

 

Спасибо,насчет обновы в лс

[Yusha]

DelTree(ExpandConstant('{userappdata}\Roaming\wargaming.net\WorldOfTanks\tutorial_cache'), True, True, True);

 

вот уж не советую

И зачем так усложнять?

[InstallDelete]
Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\dossier_cache

и .т .д.

Чем плох такой такой вариант?

И лучше конечно еще чекбокс привязывать.

Edited December 27, 2014 by Yusha

[Kotyarko_O]

вот уж не советую

И действительно.

 

И зачем так усложнять?

[InstallDelete]
Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\dossier_cache

и .т .д.

Чем плох такой такой вариант?

И что там такого сложного?

Если есть параметр Check (точно не помню) - то ничем не плох.

 

з.ы. вообще, если каждый предложенный вариант перекрывать альтернативой - то тут половину темы можно переписать.

Edited December 27, 2014 by Kotyarko_O

[Ekspoint]

вот уж не советую

И зачем так усложнять?

[InstallDelete]
Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\dossier_cache

и .т .д.

Чем плох такой такой вариант?

И лучше конечно еще чекбокс привязывать.

чекбокс сделан,я к тому привык 

вроде бы не плохо 

Edited December 28, 2014 by Dark_Knight_MiX

[Pokaritel_VBR]

Например?

[Components]

Name: KP; Description: Выбор; Flags: checkablealone

Name: KP\PRICELI; Description:1.Прицелы.; Flags: checkablealone;

А что такое есть?

я так понял в инсталляторе он вот такой код:

 

 

#define DownloadUrl "http://www.koreanrandom.com/forum/topic/9050";

#define ExpiryDate "20130402"; //Дата в формате год-месяц-день

function InitializeSetup(): Boolean;

var

  ResultCode: Integer;

begin

  Result:=CompareStr(GetDateTimeString('yyyymmdd', #0,#0), '{#ExpiryDate}') <= 0;

If not Result then

  begin

    If MsgBox('Внимание!' #13#13 'С момента создания данной версии прошло больше 2-х недель.' #10#10 'Желаете проверить наличие обновлений?', mbError, MB_YESNO)=IDYES then

    begin

      ShellExec('', '{#DownloadUrl}', '' , '', SW_SHOW, ewNoWait, ResultCode);

      Exit;

    end

    else

      Result:=True;

  end;

end;

Edited December 28, 2014 by Pokaritel_VBR

[Ekspoint]

 

[Components]

Name: KP; Description: Выбор; Flags: checkablealone

Name: KP\PRICELI; Description:1.Прицелы.; Flags: checkablealone;

А что такое есть?

я так понял в инсталляторе он вот такой код:

 

 

#define DownloadUrl "http://www.koreanrandom.com/forum/topic/9050";

#define ExpiryDate "20130402"; //Дата в формате год-месяц-день

function InitializeSetup(): Boolean;

var

  ResultCode: Integer;

begin

  Result:=CompareStr(GetDateTimeString('yyyymmdd', #0,#0), '{#ExpiryDate}') <= 0;

If not Result then

  begin

    If MsgBox('Внимание!' #13#13 'С момента создания данной версии прошло больше 2-х недель.' #10#10 'Желаете проверить наличие обновлений?', mbError, MB_YESNO)=IDYES then

    begin

      ShellExec('', '{#DownloadUrl}', '' , '', SW_SHOW, ewNoWait, ResultCode);

      Exit;

    end

    else

      Result:=True;

  end;

end;

 

нет,не такой 

в том что у Kotyarko_O идет на отдельной стр и как я понял проверка через сервак

Edited December 28, 2014 by Dark_Knight_MiX

[Kotyarko_O]

я так понял в инсталляторе он вот такой код

Нет. Это ограничение на время установки (если с момента компиляции прошло некоторое время - инсталл оповещает об этом при запуске).

 

нет,не такой 

в том что у Kotyarko_O идет на отдельной стр и как я понял проверка через сервак

Да, именно. И чейнджлог там же.

Edited December 28, 2014 by Kotyarko_O

[Pokaritel_VBR]

Нет. Это ограничение на время установки (если с момента компиляции прошло некоторое время - инсталл оповещает об этом при запуске).

 

Да, именно. И чейнджлог там же.

Kotyarko_O, а у Вас есть этот код ? Если да , то не могли бы Вы мне его кинуть (буду очень благодарен).

[Kotyarko_O]

Kotyarko_O, а у Вас есть этот код ? Если да , то не могли бы Вы мне его кинуть (буду очень благодарен).

Ну как-то я же это осуществил в своём установщике) - Логично предположить, что есть.

Edited December 29, 2014 by Kotyarko_O

[-zav-]

CustomListBox.AddCheckBox('0', '90.6 Мб', 0, True, True, True, False, nil);

Разъясните плиз, за что отвечает каждый из выделенных параметров?

1 - устанавливает чекбокс

2 - делает активным

а остальные?

Edited December 29, 2014 by -zav-

[Kotyarko_O]

@-zav-,

function AddCheckBox(const ACaption, ASubItem: String; ALevel: Byte; >>AChecked, AEnabled, AHasInternalChildren, ACheckWhenParentChecked<<: Boolean; AObject: TObject): Integer;

Edited December 29, 2014 by Kotyarko_O

[-zav-]

С новым 2015 годом модпакеры!!! 

Всем удачи в новом году!

 

Отдельное спасибо  EvilAlex, AtotIK, Kotyarko_O   и всем остальным за помощь и советы в теме и лс.

[huligan2505]

Всем привет , С новым годом 2015 , Так у меня такая проблема я хочу создать свой модпак , мне надо такая херня так как у анвея в начале запуска идёт картинка а потом запускается модпак , 2  з делать что б выбирались моды по одному , и что б удалить все старые моды , хто может помогите буду очень благодарен)