Jump to content
Korean Random

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


Recommended Posts

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

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

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

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

Edited by Kotyarko_O
Link to comment
Short link
Share on other sites

Кто может скинуть код на очистку профайла?
  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 by Kotyarko_O
  • Upvote 1
  • Downvote 1
Link to comment
Short link
Share on other sites

  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);

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

 

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

Link to comment
Short link
Share on other sites

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

 

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

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

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

и .т .д.

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

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

Edited by Yusha
Link to comment
Short link
Share on other sites

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

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

 

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

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

и .т .д.

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

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

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

 

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

Edited by Kotyarko_O
  • Upvote 1
  • Downvote 1
Link to comment
Short link
Share on other sites

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

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

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

и .т .д.

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

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

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

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

Edited by Dark_Knight_MiX
  • Downvote 1
Link to comment
Short link
Share on other sites

Например?

[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 by Pokaritel_VBR
Link to comment
Short link
Share on other sites

 

[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 by Dark_Knight_MiX
Link to comment
Short link
Share on other sites

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

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

 

нет,не такой 

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

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

Edited by Kotyarko_O
  • Downvote 1
Link to comment
Short link
Share on other sites

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

 

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

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

Link to comment
Short link
Share on other sites

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

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

Edited by Kotyarko_O
  • Downvote 1
Link to comment
Short link
Share on other sites

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

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

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

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

а остальные?

Edited by -zav-
Link to comment
Short link
Share on other sites

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

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

 

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

  • Upvote 1
Link to comment
Short link
Share on other sites

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

Link to comment
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...