Kotyarko_O 1,906 #255649 Posted March 1, 2015 я так понимаю у нас китайский вариант в теме выложен? То что в шапке - это смешанный. При установке есть выбор между стандартным и расширенным. 2 Quote Share this post Link to post Short link Share on other sites
psix_banned 1 #255757 Posted March 1, 2015 Винчестер со всеми наработками умер... Распаковать свой инсталл не удалось... поделитесь кто скриптом бекапа Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #255765 Posted March 1, 2015 поделитесь кто скриптом бекапа На 7-й странице, вроде. 2 Quote Share this post Link to post Short link Share on other sites
psix_banned 1 #255768 Posted March 1, 2015 На 7-й странице, вроде. Спасибо! нашел) пойду дальше вспоминать что и как))) Quote Share this post Link to post Short link Share on other sites
fleshr 0 #256185 Posted March 4, 2015 Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)? Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #256191 Posted March 4, 2015 (edited) Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)? Не очень хорошая идея улучшить модпак дезика( Добавь лучше лого И сплеш: ЛОГО.rar Edited March 4, 2015 by Pokaritel_VBR Quote Share this post Link to post Short link Share on other sites
fleshr 0 #256193 Posted March 4, 2015 (edited) @Pokaritel_VBR, кто сказал что я модпак дезу делаю? Edited March 4, 2015 by fleshr Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #256196 Posted March 4, 2015 (edited) @Pokaritel_VBR, кто сказал что я модпак дезу делаю? ХЗ: " DeSeRtod ModPack ", но кнопка клавиатуры - это не лучший вариант , повторяю...... Edited March 4, 2015 by Pokaritel_VBR Quote Share this post Link to post Short link Share on other sites
fleshr 0 #256197 Posted March 4, 2015 @Pokaritel_VBR, мне он нравится вот и добавил его в подпись. Quote Share this post Link to post Short link Share on other sites
woole 5 #256206 Posted March 4, 2015 @Pokaritel_VBR, мне он нравится вот и добавил его в подпись. Запишу в твои цитаты, пожалуй. Quote Share this post Link to post Short link Share on other sites
ventura69 34 #256223 Posted March 4, 2015 (edited) Добрый день, уважаемые. Кто может подсказать, как к этому примеру прикрутить проверку выбора элемента? Весь мозг сломал уже... Всем спасибо, вопрос решил сам. Edited March 4, 2015 by ventura69 Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #256236 Posted March 4, 2015 ventura69, WizardForm.ComponentsList.ItemIndex = 0, WizardForm.ComponentsList.Checked[0], IsComponentSelected('1\1'). Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #256240 Posted March 4, 2015 (edited) Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)? Можно. Выдернул из стандартных примеров: WindowHOOK.rar Edited March 4, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #256454 Posted March 5, 2015 (edited) Как сделать при нажатии на компонент окно в котором при нажатии "Да" будет поставлена галка и переход на ссылку, а при нажатии "Нет" галки и перехода не должно быть Edited March 5, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫ Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #256466 Posted March 5, 2015 ♫♫♫Dark_Knight_MiX♫♫♫, выше же написал. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #256500 Posted March 5, 2015 (edited) Как сделать при нажатии на компонент окно в котором при нажатии "Да" будет поставлена галка и переход на ссылку, а при нажатии "Нет" галки и перехода не должно быть Ты уже давно посещаешь эту тему и не можешь собрать такую фигню? [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 March 5, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #256516 Posted March 5, 2015 ♫♫♫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; Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #256526 Posted March 5, 2015 (edited) При нажатии отмена галка остается Потому что у 4-го компонента стоит флаг exclusive. Нужно снимать родителя. Edited March 5, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #256557 Posted March 5, 2015 Потому что у 4-го компонента стоит флаг exclusive. Нужно снимать родителя. а мне для такого нужно Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #256559 Posted March 5, 2015 а мне для такого нужно Нужно снимать родителя. Quote Share this post Link to post Short link Share on other sites