Kotyarko_O 1,906 #229718 Posted November 8, 2014 Ребят, а как сделать чтобы после завершения установки открывало в браузере сайт. В теме искал, но нифига не разобрался. [Code] Procedure CurStepChanged(CurStep: TSetupStep); var Rslt: Integer; begin if CurStep = ssDone then begin ShellExec('', 'http://.....', '' , '', SW_SHOW, ewNoWait, Rstl); end; end; Quote Share this post Link to post Short link Share on other sites
mpmp 2 #230003 Posted November 9, 2014 Помогите: Quote Share this post Link to post Short link Share on other sites
-zav- 188 #230012 Posted November 9, 2014 Помогите: Flags: fixed Quote Share this post Link to post Short link Share on other sites
NegaTiV26r 0 #230041 Posted November 9, 2014 ребят, подскажите. как сделать что бы во время открытия пака открывался сайт(или после установки и закрытия)? Quote Share this post Link to post Short link Share on other sites
mpmp 2 #230048 Posted November 9, 2014 Flags: fixed Спасибо. Quote Share this post Link to post Short link Share on other sites
-zav- 188 #230061 Posted November 9, 2014 ребят, подскажите. как сделать что бы во время открытия пака открывался сайт(или после установки и закрытия)? что даже лень глаза поднять на первое сообщение на этой странице? Quote Share this post Link to post Short link Share on other sites
NegaTiV26r 0 #230086 Posted November 9, 2014 что даже лень глаза поднять на первое сообщение на этой странице? ошибка процедуры CurStepChanged Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #230087 Posted November 9, 2014 Сколько не объясняли про совмещение одноименных процедур, но всегда найдётся тот, кто читать не умеет. Quote Share this post Link to post Short link Share on other sites
PowerTanks 0 #230090 Posted November 9, 2014 (edited) Ребята как решить проблему с совместимостью модов???? ПЛИИИЗ ОЧЕНЬ НАДО Edited November 9, 2014 by PowerTanks Quote Share this post Link to post Short link Share on other sites
NegaTiV26r 0 #230109 Posted November 9, 2014 [Code] Procedure CurStepChanged(CurStep: TSetupStep); var Rslt: Integer; begin if CurStep = ssDone then begin ShellExec('', 'http://.....', '' , '', SW_SHOW, ewNoWait, Rstl); end; end; при компиляции ругается на Rstl Quote Share this post Link to post Short link Share on other sites
PowerTanks 0 #230114 Posted November 9, 2014 Ребята как решить проблему с совместимостью модов???? Некоторые моды могут использовать один файл на всех Quote Share this post Link to post Short link Share on other sites
NegaTiV26r 0 #230115 Posted November 9, 2014 (edited) del Edited November 9, 2014 by NegaTiV26r Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #230123 Posted November 9, 2014 (edited) при компиляции ругается на Rstl Ну ёёпт. Ну переименуй переменную Rstl в Rslt, сложно, что-ли? Да, понимаю, я быстро писал и ошибку мог допустить, но чтобы просто не вникнуть в 9-ти строчный кусок кода.. Ребята как решить проблему с совместимостью модов???? Некоторые моды могут использовать один файл на всех Включать логику и совмещать. Edited November 9, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
NegaTiV26r 0 #230126 Posted November 9, 2014 (edited) Ну ёёпт. Ну переименуй переменную Rstl в Rslt, сложно, что-ли? Да, понимаю, я быстро писал и ошибку мог допустить, но чтобы просто не вникнуть в 9-ти строчный кусок кода.. Все сделал, скомпилировал. Но сайт не открывается вообще. процедура находится в BackUpPage.iss Edited November 9, 2014 by NegaTiV26r Quote Share this post Link to post Short link Share on other sites
PowerTanks 0 #230130 Posted November 9, 2014 Ну ёёпт. Ну переименуй переменную Rstl в Rslt, сложно, что-ли? Да, понимаю, я быстро писал и ошибку мог допустить, но чтобы просто не вникнуть в 9-ти строчный кусок кода.. Включать логику и совмещать. Обьясни! я нихера не пойму как совмещать их???? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #230132 Posted November 9, 2014 Все сделал, скомпилировал. Но сайт не открывается вообще. процедура находится в BackUpPage.iss И чё мне сделать? Телепатически в получившийся код подсмотреть? Обьясни! я нихера не пойму как совмещать их???? Вот дай пример, что и как надо совместить. Quote Share this post Link to post Short link Share on other sites
PowerTanks 0 #230134 Posted November 9, 2014 Ну к примеру моды которые используют файл CameraNode.рус ну свободная камера мод и командирская камера или зум мод И чё мне сделать? Телепатически в получившийся код подсмотреть? Вот дай пример, что и как надо совместить. Ну к примеру моды которые используют файл CameraNode.рус ну свободная камера мод и командирская камера или зум мод Quote Share this post Link to post Short link Share on other sites
NegaTiV26r 0 #230135 Posted November 9, 2014 (edited) И че мне сделать? Телепатически в получившийся код подсмотреть? Вот дай пример, что и как надо совместить. #include "SHFileOperation.iss" [Code] var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton; const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями, рекомендуется удалить все установленные на данный момент модификации клиента.'; DeleteDescText = 'Установщик удалит все файлы в папках.'; MoveDescText = 'Установщик сделает резервную копию всех файлов в папках.'; NoneDescText = 'Установщик оставит всё как есть.'; function BackupCheck_1(): Boolean; var BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel; begin BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.'); BackupDescLabel:=TLabel.Create(WizardForm); BackupDescLabel.Parent:=BackupPage.Surface; BackupDescLabel.Left:=110; BackupDescLabel.Top:=10; BackupDescLabel.Width:=BackupPage.SurfaceWidth; BackupDescLabel.Height:=90; BackupDescLabel.AutoSize:=False; BackupDescLabel.Wordwrap:=True; BackupDescLabel.Caption:=BackupDescText; DeleteRadioButton:=TNewRadioButton.Create(WizardForm); DeleteRadioButton.Parent:=BackupPage.Surface; DeleteRadioButton.Checked:=True; DeleteRadioButton.Top:=105; DeleteRadioButton.Left:=110; DeleteRadioButton.Width:=BackupPage.SurfaceWidth; DeleteRadioButton.Font.Style:=[fsBold]; DeleteRadioButton.Font.Size:=9; DeleteRadioButton.Caption:='Удалить файлы' DeleteDescLabel:=TLabel.Create(WizardForm); DeleteDescLabel.Parent:=BackupPage.Surface; DeleteDescLabel.Left:=110; DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4; DeleteDescLabel.Width:=BackupPage.SurfaceWidth; DeleteDescLabel.Height:=40; DeleteDescLabel.AutoSize:=False; DeleteDescLabel.Wordwrap:=True; DeleteDescLabel.Caption:=DeleteDescText; MoveRadioButton:=TNewRadioButton.Create(WizardForm); MoveRadioButton.Parent:=BackupPage.Surface; MoveRadioButton.Checked:=False; MoveRadioButton.Top:=180; MoveRadioButton.Left:=110; MoveRadioButton.Width:=BackupPage.SurfaceWidth; MoveRadioButton.Font.Style:=[fsBold]; MoveRadioButton.Font.Size:=9; MoveRadioButton.Caption:='Сделать резервную копию файлов' MoveDescLabel:=TLabel.Create(WizardForm); MoveDescLabel.Parent:=BackupPage.Surface; MoveDescLabel.Left:=110; MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4; MoveDescLabel.Width:=BackupPage.SurfaceWidth; MoveDescLabel.Height:=40; MoveDescLabel.AutoSize:=False; MoveDescLabel.Wordwrap:=True; MoveDescLabel.Caption:=MoveDescText; NoneRadioButton:=TNewRadioButton.Create(WizardForm); NoneRadioButton.Parent:=BackupPage.Surface; NoneRadioButton.Checked:=False; NoneRadioButton.Top:=255; NoneRadioButton.Left:=110; NoneRadioButton.Width:=BackupPage.SurfaceWidth; NoneRadioButton.Font.Style:=[fsBold]; NoneRadioButton.Font.Size:=9; NoneRadioButton.Caption:='Ничего не трогать' NoneDescLabel:=TLabel.Create(WizardForm); NoneDescLabel.Parent:=BackupPage.Surface; NoneDescLabel.Left:=110; NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4; NoneDescLabel.Width:=BackupPage.SurfaceWidth; NoneDescLabel.Height:=40; NoneDescLabel.AutoSize:=False; NoneDescLabel.Wordwrap:=True; NoneDescLabel.Caption:=NoneDescText; end; function BackupCheck_2(): Boolean; begin If DeleteRadioButton.Checked then begin DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; function BackupCheck_3(): Boolean; begin If MoveRadioButton.Checked then begin MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\res_mods\backup\{#Patch}')); MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm')); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); end; end; procedure CurStepChanged(CurStep: TSetupStep); var Rslt: Integer; begin if CurStep = ssDone then If CurStep=ssInstall then begin ShellExec('', 'http://тут мой сайт/', '' , '', SW_SHOW, ewNoWait, Rslt); BackupCheck_2(); BackupCheck_3(); end; end; procedure InitializeWizard1(); begin BackupCheck_1(); end; Edited November 9, 2014 by NegaTiV26r Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #230136 Posted November 9, 2014 CameraNode.рус Загрузчик модов. Если у тебя на каждый мод по загрузчику - это неправильно. свободная камера мод и командирская камера или зум мод Используют одни и те же скрипты, кажется. Отличаются только наличием конфига в папке gui. Quote Share this post Link to post Short link Share on other sites
PowerTanks 0 #230138 Posted November 9, 2014 (edited) Загрузчик модов. Если у тебя на каждый мод по загрузчику - это неправильно. Используют одни и те же скрипты, кажется. Отличаются только наличием конфига в папке gui. И как же исправить это ? чтобы некоторые моды были совместимы, чтобы вобщем мод с модом не конфликтовали Edited November 9, 2014 by PowerTanks Quote Share this post Link to post Short link Share on other sites