Jump to content
Korean Random
EvilAlex

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

Recommended Posts

я так понимаю у нас китайский вариант в теме выложен?

То что в шапке - это смешанный. При установке есть выбор между стандартным и расширенным.

  • Upvote 2

Share this post


Link to post

Short link
Share on other sites

Винчестер со всеми наработками умер... 

Распаковать свой инсталл не удалось...

поделитесь кто скриптом бекапа

Share this post


Link to post

Short link
Share on other sites

 

 

поделитесь кто скриптом бекапа
На 7-й странице, вроде.
  • Upvote 2

Share this post


Link to post

Short link
Share on other sites

На 7-й странице, вроде.

Спасибо! нашел) пойду дальше вспоминать что и как)))

Share this post


Link to post

Short link
Share on other sites

Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)?

Share this post


Link to post

Short link
Share on other sites
 

Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)?

 

Не очень хорошая идея улучшить модпак дезика( Добавь лучше лого И сплеш:

ЛОГО.rar

Edited by Pokaritel_VBR

Share this post


Link to post

Short link
Share on other sites

@Pokaritel_VBR, кто сказал что я модпак дезу делаю? 

ХЗ: " DeSeRtod ModPack ", но кнопка клавиатуры - это не лучший вариант , повторяю......

Edited by Pokaritel_VBR

Share this post


Link to post

Short link
Share on other sites

Добрый день, уважаемые.

Кто может подсказать, как к этому примеру прикрутить проверку выбора элемента? Весь мозг сломал уже...

Всем спасибо, вопрос решил сам.

Edited by ventura69

Share this post


Link to post

Short link
Share on other sites

ventura69, WizardForm.ComponentsList.ItemIndex = 0, WizardForm.ComponentsList.Checked[0], IsComponentSelected('1\1').

Share this post


Link to post

Short link
Share on other sites

Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)?

Можно.

Выдернул из стандартных примеров: WindowHOOK.rar

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

Как сделать при нажатии на компонент окно в котором при нажатии "Да" будет поставлена галка и переход на ссылку, а при нажатии "Нет" галки и перехода не должно быть

Edited by ♫♫♫Dark_Knight_MiX♫♫♫

Share this post


Link to post

Short link
Share on other sites

Как сделать при нажатии на компонент окно в котором при нажатии "Да" будет поставлена галка и переход на ссылку, а при нажатии "Нет" галки и перехода не должно быть

Ты уже давно посещаешь эту тему и не можешь собрать такую фигню?

[Code]
Procedure TNewCheckListBoxOnClickCheck(Sender: TObject);
var
 ResultCode, NeedComponent: Integer;
begin
 NeedComponent := 1;  //Компонент, с которым будет выполняться код
 case WizardForm.ComponentsList.ItemIndex of
  NeedComponent:
  begin
   if MsgBox('Нажмите "ОК", чтобы отметить компонент и перейти по ссылке.' + #13#10 +
   'Нажмите "Отмена", чтобы выйти.', mbConfirmation, MB_OKCANCEL) = IDOK then
    begin
     WizardForm.ComponentsList.Checked[NeedComponent] := True;
     ShellExec('', 'http://..', '', '', SW_HIDE, ewNoWait, ResultCode);
    end else
    begin
     WizardForm.ComponentsList.Checked[NeedComponent] := False;
    end;
  end;
 end;
end;

Procedure InitializeWizard();
begin
 WizardForm.ComponentsList.OnClickCheck := @TNewCheckListBoxOnClickCheck;
end;
Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

♫♫♫Dark_Knight_MiX♫♫♫, выше же написал.

не увидел 

 

 

Ты уже давно посещаешь эту тему и не можешь собрать такую фигню?

[Code]
Procedure TNewCheckListBoxOnClickCheck(Sender: TObject);
var
 ResultCode, NeedComponent: Integer;
begin
 NeedComponent := 1;  //Компонент, с которым будет выполняться код
 case WizardForm.ComponentsList.ItemIndex of
  NeedComponent:
  begin
   if MsgBox('Нажмите "ОК", чтобы отметить компонент и перейти по ссылке.' + #13#10 +
   'Нажмите "Отмена", чтобы выйти.', mbConfirmation, MB_OKCANCEL) = IDOK then
    begin
     WizardForm.ComponentsList.Checked[NeedComponent] := True;
     ShellExec('', 'http://..', '', '', SW_HIDE, ewNoWait, ResultCode);
    end else
    begin
     WizardForm.ComponentsList.Checked[NeedComponent] := False;
    end;
  end;
 end;
end;

Procedure InitializeWizard();
begin
 WizardForm.ComponentsList.OnClickCheck := @TNewCheckListBoxOnClickCheck;
end;

спасиб

При нажатии отмена галка остается 

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Components]
Name: "KMP"; Description: "«================»"; Flags: disablenouninstallwarning;
Name: "KMP\1"; Description: "1. Прицелы"; Flags: disablenouninstallwarning;
Name: "KMP\1\1"; Description: "Прицел бирюза"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\2"; Description: "Прицел Vspishka"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\3"; Description: "прицел Spectr20"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\4"; Description: "Прицел Jove"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\5"; Description: "Стандартный прицел расширенный"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\6"; Description: "Прицел Animated-3(желтый)"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\7"; Description: "Прицел Animated-3(синий)"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\8"; Description: "Прицел Dab97"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\9"; Description: "Прицел Deegie"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\10"; Description: "Прицел J1mb0"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\11"; Description: "Прицел J1mb0(рус)"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\12"; Description: "Прицел J1mb0(улучшенный)"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\13"; Description: "Прицел Minimalist"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\14"; Description: "Прицел Taipan"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\15"; Description: "Прицел Taipan2"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\16"; Description: "Прицел WoWP(бирюза)"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\17"; Description: "Прицел WoWP(зеленый)"; Flags: exclusive disablenouninstallwarning;
Name: "KMP\1\18"; Description: "Прицел Дамоклов меч"; Flags: exclusive disablenouninstallwarning;
[Code]
Procedure TNewCheckListBoxOnClickCheck(Sender: TObject);
var
ResultCode, NeedComponent: Integer;
begin
NeedComponent := 4;  //Компонент, с которым будет выполняться код
case WizardForm.ComponentsList.ItemIndex of
  NeedComponent:
  begin
   if MsgBox('Нажмите "ОК", чтобы отметить компонент и перейти по ссылке.' + #13#10 +
   'Нажмите "Отмена", чтобы выйти.', mbConfirmation, MB_OKCANCEL) = IDOK then
    begin
     WizardForm.ComponentsList.Checked[NeedComponent] := True;
     ShellExec('', 'http://..', '', '', SW_HIDE, ewNoWait, ResultCode);
    end else
    begin
     WizardForm.ComponentsList.Checked[NeedComponent] := False;
    end;
  end;
end;
end;
Procedure InitializeWizard();
begin
WizardForm.ComponentsList.OnClickCheck := @TNewCheckListBoxOnClickCheck;
end;

Share this post


Link to post

Short link
Share on other sites
При нажатии отмена галка остается

Потому что у 4-го компонента стоит флаг exclusive. Нужно снимать родителя.

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

Потому что у 4-го компонента стоит флаг exclusive. Нужно снимать родителя.

а мне для такого нужно 

Share this post


Link to post

Short link
Share on other sites

а мне для такого нужно 

 

 

Нужно снимать родителя.

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.

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