Kotyarko_O Posted August 30, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Jonario Posted August 31, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
sergbodr Posted September 4, 2016 Share Posted September 4, 2016 (edited) Народ подскажите если не трудно почему очистка кеша не работает? компилирует без ошибок все вроде end; Всем рассказал, что читы в сборке имеются! Edited September 4, 2016 by sergbodr 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted September 4, 2016 Share Posted September 4, 2016 Всем рассказал, что читы в сборке имеются! ты о чем ваще? 1 @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted September 5, 2016 Share Posted September 5, 2016 подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака" @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted September 5, 2016 Share Posted September 5, 2016 (edited) подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака" [Run] Filename: http://chit2222 и т.д .ru; Flags: shellexec правда этот вариант без желания )) автоматом в конце установки на указанный сайт кидает)) Edited September 5, 2016 by ЛОМ 2 @ Quote Link to comment Short link Share on other sites More sharing options...
BeJIuKuu_TaHKoBbIu_BouH Posted September 5, 2016 Share Posted September 5, 2016 (edited) del Edited October 19, 2016 by gad_575__2 2 @ Quote Link to comment Short link Share on other sites More sharing options...
sergbodr Posted September 5, 2016 Share Posted September 5, 2016 ты о чем ваще? А когда мы на "ты" перешли? Просто не стоит выкладывать спойлер, в котором запрещенные моды указаны и привлекать к себе внимание со стороны WG!!! 1 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted September 5, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
sergbodr Posted September 5, 2016 Share Posted September 5, 2016 это уже не твои проблемы товарищ !!! ты свою работу ( " я всем рассказал уже " ) сделал так что продолжай в том же духе! и удачи тебе по жизни. и надеюсь если у тебя есть дети ( хотя мало в это верится ) что они не узнают какой у них папка "молодец" Вы это про что, вообще? Жаль, что у меня не служил, вежливости и субординации научил! И меня учить не надо, я просто реально хотел указать на то, в спойлере, за что банят, но если вам всё-равно, то мне тем более! 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted September 5, 2016 Share Posted September 5, 2016 (edited) Всем рассказал, что читы в сборке имеются! вот написал же что ты всем рассказал что в сборке читы имеются?! бляха муха тока догнал в каком смысле это написано))) ты в конце до восклицательного знака еще ? вот этот знак забыл))) вот тогда бы я сразу понял смысл написанного! ладно мужик извини! я подумал что это ты там кому то что то рассказал))) Edited September 5, 2016 by ЛОМ @ Quote Link to comment Short link Share on other sites More sharing options...
Yupi Posted September 5, 2016 Share Posted September 5, 2016 Вы это про что, вообще? Жаль, что у меня не служил, вежливости и субординации научил! Это было публичное признание в предвзятости и дедовщине на службе? ) @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted September 5, 2016 Share Posted September 5, 2016 Попробуйте этот вариант: Код [Run] Filename: "http://www.modxvm.com/"; Description: "Перейти на сайт XVM`а"; Flags: postinstall shellexec Filename: "http://..."; Description: "Перейти на сайт автора модпака"; Flags: postinstall shellexec спасибо работает! только увы фон портит ... а можно сделать так чтобы это сообщение выходило в отдельном окне? @ Quote Link to comment Short link Share on other sites More sharing options...
BeJIuKuu_TaHKoBbIu_BouH Posted September 6, 2016 Share Posted September 6, 2016 (edited) del Edited October 19, 2016 by gad_575__2 2 @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted September 6, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
BeJIuKuu_TaHKoBbIu_BouH Posted September 6, 2016 Share Posted September 6, 2016 (edited) del Edited October 19, 2016 by gad_575__2 1 @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted September 6, 2016 Share Posted September 6, 2016 если подумать, то, думаю, можно это сделать, но самый лучший пример: а можно его на страницу "распаковки файлов" поставить? если нет то буду надеяться, что кто нибудь с выводов на отдельное окно в концу установки поможет 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted September 6, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted September 8, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
AtotIK Posted September 8, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Recommended Posts
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.