Kotyarko_O 1,906 #350870 Posted August 30, 2016 1) Последнюю актуальную (стабильную) версию модификации XVM http://www.modxvm.com/%d1%81%d0%ba%d0%b0%d1%87%d0%b0%d1%82%d1%8c-xvm/ 2) Последнюю актуальную (ночную) версию модификации XVM http://nightly.modxvm.com/ Quote Share this post Link to post Short link Share on other sites
Jonario 25 #351090 Posted August 31, 2016 http://www.modxvm.com/%d1%81%d0%ba%d0%b0%d1%87%d0%b0%d1%82%d1%8c-xvm/ http://nightly.modxvm.com/ Я же не просил дать ссылки на страницы где их скачать можно (я это и так прекрасно знаю). Мне нужны ссылки на собранные архивы с модом (какие раньше были в установщике от команды XVM). Спрошу лучше у товарища @Mixaill 1 1 Quote Share this post Link to post Short link Share on other sites
sergbodr 10 #351692 Posted September 4, 2016 (edited) Народ подскажите если не трудно почему очистка кеша не работает? компилирует без ошибок все вроде end; Всем рассказал, что читы в сборке имеются! Edited September 4, 2016 by sergbodr 2 Quote Share this post Link to post Short link Share on other sites
Lom 48 #351703 Posted September 4, 2016 Всем рассказал, что читы в сборке имеются! ты о чем ваще? 1 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #351815 Posted September 5, 2016 подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака" Quote Share this post Link to post Short link Share on other sites
Lom 48 #351823 Posted September 5, 2016 (edited) подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака" [Run] Filename: http://chit2222 и т.д .ru; Flags: shellexec правда этот вариант без желания )) автоматом в конце установки на указанный сайт кидает)) Edited September 5, 2016 by ЛОМ 2 Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #351829 Posted September 5, 2016 (edited) del Edited October 19, 2016 by gad_575__2 2 Quote Share this post Link to post Short link Share on other sites
sergbodr 10 #351839 Posted September 5, 2016 ты о чем ваще? А когда мы на "ты" перешли? Просто не стоит выкладывать спойлер, в котором запрещенные моды указаны и привлекать к себе внимание со стороны WG!!! 1 2 Quote Share this post Link to post Short link Share on other sites
Lom 48 #351841 Posted September 5, 2016 (edited) А когда мы на "ты" перешли? Просто не стоит выкладывать спойлер, в котором запрещенные моды указаны и привлекать к себе внимание со стороны WG!!! это уже не твои проблемы товарищ !!! ты свою работу ( " я всем рассказал уже " ) сделал так что продолжай в том же духе! и удачи тебе по жизни. и надеюсь если у тебя есть дети ( хотя мало в это верится ) что они не узнают какой у них папка "молодец" Попробуйте этот вариант: Код [Run] Filename: "http://www.modxvm.com/"; Description: "Перейти на сайт XVM`а"; Flags: postinstall shellexec Filename: "http://..."; Description: "Перейти на сайт автора модпака"; Flags: postinstall shellexec красава!!! всегда всё коротко, по делу и всё работает!!! реальный МУЖИК!!! Edited September 5, 2016 by ЛОМ 2 Quote Share this post Link to post Short link Share on other sites
sergbodr 10 #351846 Posted September 5, 2016 это уже не твои проблемы товарищ !!! ты свою работу ( " я всем рассказал уже " ) сделал так что продолжай в том же духе! и удачи тебе по жизни. и надеюсь если у тебя есть дети ( хотя мало в это верится ) что они не узнают какой у них папка "молодец" Вы это про что, вообще? Жаль, что у меня не служил, вежливости и субординации научил! И меня учить не надо, я просто реально хотел указать на то, в спойлере, за что банят, но если вам всё-равно, то мне тем более! 2 Quote Share this post Link to post Short link Share on other sites
Lom 48 #351848 Posted September 5, 2016 (edited) Всем рассказал, что читы в сборке имеются! вот написал же что ты всем рассказал что в сборке читы имеются?! бляха муха тока догнал в каком смысле это написано))) ты в конце до восклицательного знака еще ? вот этот знак забыл))) вот тогда бы я сразу понял смысл написанного! ладно мужик извини! я подумал что это ты там кому то что то рассказал))) Edited September 5, 2016 by ЛОМ Quote Share this post Link to post Short link Share on other sites
Yupi 505 #351849 Posted September 5, 2016 Вы это про что, вообще? Жаль, что у меня не служил, вежливости и субординации научил! Это было публичное признание в предвзятости и дедовщине на службе? ) Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #351874 Posted September 5, 2016 Попробуйте этот вариант: Код [Run] Filename: "http://www.modxvm.com/"; Description: "Перейти на сайт XVM`а"; Flags: postinstall shellexec Filename: "http://..."; Description: "Перейти на сайт автора модпака"; Flags: postinstall shellexec спасибо работает! только увы фон портит ... а можно сделать так чтобы это сообщение выходило в отдельном окне? Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #351930 Posted September 6, 2016 (edited) del Edited October 19, 2016 by gad_575__2 2 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #351950 Posted September 6, 2016 (edited) Тогда попробуйте этот вариант: Код [Tasks] Name: "gotositexvm"; Description: "Перейти на сайт XVM`а"; GroupDescription: "Дополнительные задачи" Name: "gotositeauthor"; Description: "Перейти на сайт автора модпака"; GroupDescription: "Дополнительные задачи" [Run] Filename: "http://www.modxvm.com/"; Flags: shellexec; Tasks: gotositexvm Filename: "http://..."; Flags: shellexec; Tasks: gotositeautor ошибку выдает ;( скрин прикрепил ..... UPD: все нашел ошибку ! ... спасибо gad_575__2 , Большое Спасибо тебе! сори, я наверное не правильно объяснил ! можно сделать чтобы это сообщение выходило в ОТДЕЛЬНОМ маленьком окне или в голове возник 2 вариант - странице распаковки файлов / модов скрины примеров выложил Edited September 6, 2016 by MS_RAMIS Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #351954 Posted September 6, 2016 (edited) del Edited October 19, 2016 by gad_575__2 1 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #351961 Posted September 6, 2016 если подумать, то, думаю, можно это сделать, но самый лучший пример: а можно его на страницу "распаковки файлов" поставить? если нет то буду надеяться, что кто нибудь с выводов на отдельное окно в концу установки поможет 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #351964 Posted September 6, 2016 а можно его на страницу "распаковки файлов" поставить? можно [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var NewCheckBox1: TNewCheckBox; procedure NewCheckBox1Click(Sender: TObject); forward; procedure RedesignWizardForm; begin { NewCheckBox1 } NewCheckBox1 := TNewCheckBox.Create(WizardForm); with NewCheckBox1 do begin Parent := WizardForm.InstallingPage; Left := ScaleX(32); Top := ScaleY(88); Width := ScaleX(97); Height := ScaleY(17); Caption := 'NewCheckBox1'; OnClick := @NewCheckBox1Click; end; NewCheckBox1.TabOrder := 3; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure NewCheckBox1Click(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://aces.gg/', '', '', SW_SHOW, ewNoWait, ErrorCode); end; procedure InitializeWizard(); begin RedesignWizardForm; end; 1 Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #352156 Posted September 8, 2016 (edited) можно [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var NewCheckBox1: TNewCheckBox; procedure NewCheckBox1Click(Sender: TObject); forward; procedure RedesignWizardForm; begin { NewCheckBox1 } NewCheckBox1 := TNewCheckBox.Create(WizardForm); with NewCheckBox1 do begin Parent := WizardForm.InstallingPage; Left := ScaleX(32); Top := ScaleY(88); Width := ScaleX(97); Height := ScaleY(17); Caption := 'NewCheckBox1'; OnClick := @NewCheckBox1Click; end; NewCheckBox1.TabOrder := 3; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure NewCheckBox1Click(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://aces.gg/', '', '', SW_SHOW, ewNoWait, ErrorCode); end; procedure InitializeWizard(); begin RedesignWizardForm; end; блин я так и не понял что и как сделать ((( как результат у меня просто происходит ошибка. - может кто подскажет как сделать этот код [Tasks] Name: "gotositexvm"; Description: "Перейти на сайт XVM`а"; GroupDescription: "Дополнительные задачи" Name: "gotositeauthor"; Description: "Перейти на сайт автора модпака"; GroupDescription: "Дополнительные задачи" [Run] Filename: "http://www.modxvm.com/"; Flags: shellexec; Tasks: gotositexvm Filename: "http://..."; Flags: shellexec; Tasks: gotositeautor в отдельном, всплывающем окне. как на скрине в посте http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=351950 просто меня выходит, что в центре портиться фон. Edited September 8, 2016 by MS_RAMIS Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #352173 Posted September 8, 2016 (edited) @MS_RAMIS, так не получится, если картинка на всю финишную страницу. Можно сделать так, маленький лайфхак. Сделаешь по аналогии. Нет времени полностью править код. [CustomMessages] ClearModsLabel=Clear "res_mods\{#ModVersion}" folder [Code] var ClearModsDir: TCheckBox; function CreateLabel(aParent: TWinControl; aLeft, aTop, aWidth, aHeight: Integer; aCaption: String; aAutoSize: Boolean): TLabel; begin Result:=TLabel.Create(aParent); Result.AutoSize:=aAutosize; Result.Parent:=aParent; Result.Transparent:=True; Result.SetBounds(aLeft, aTop, aWidth, aHeight); Result.Caption:=aCaption; end; procedure LabelSetFont(aLabel: TLabel; FontSize: Integer; FontName: String; FontColor: TColor; FontStyle: TFontStyles); begin aLabel.Font.Size:=FontSize; aLabel.Font.Color:=FontColor; aLabel.Font.Name:=FontName; aLabel.Font.Style:=FontStyle; end; procedure ClearModsDirOnClick(Sender: TObject); begin ClearModsDir.Checked:=Not(ClearModsDir.Checked); end; procedure CreateCheckBox(); begin ClearModsDir:=TCheckBox.Create(WizardForm); with ClearModsDir do begin Parent:=WizardForm.FinishedPage; SetBounds(165, 337, 13, 13); Checked:=False; end; ClearModsLabel:=CreateLabel(WizardForm.FinishedPage, ScaleX(185), ScaleY(336), ScaleX(0), ScaleY(0), ExpandConstant('{cm:ClearModsLabel}'), True); LabelSetFont(ClearModsLabel, 8, 'Tahoma', $FFFFFF, [fsBold]); ClearModsLabel.Alignment:=taLeftJustify; ClearModsLabel.OnClick:=@ClearModsDirOnClick; end; procedure ClearModsDirCheck(); var ErrorCode: Integer; begin If ClearModsDir.Checked then begin ShellExec('open', 'http://goo.gl/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin ClearModsDirCheck(); end; end; procedure InitializeWizard; begin CreateCheckBox(); end; Только не помню на Handle нужно вешать на этих страницах или так можно. Сам разберёшься. З.Ы. Ну а если нужно сделать отдельным окном, то нужно перехватывать нажатие на кнопку "Далее" на финишной странице и плясать дальше (создавать форму и наполнять её). Должно сработать. Edited September 8, 2016 by AtotIK Quote Share this post Link to post Short link Share on other sites