Nowik1971 2 #318126 Posted March 14, 2016 (edited) Поищите по ветке, страниц 10 назад Ekspoint выкладывал апдейтер. Помогите пажалуйста со скрипт на уведомление выхода обновления модпака для 0.9.14 у меня есть, но не работает!!! Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru или на свой клади там не надо папку создавать путь пропишешь к файлу... Updater.zip Edited March 14, 2016 by Nowik1971 Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #318348 Posted March 15, 2016 Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru или на свой клади там не надо папку создавать путь пропишешь к файлу... Уже не работает. Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #318482 Posted March 15, 2016 Уже не работает. Опубликовано Сегодня, 09:45 Nowik1971, on 14 Mar 2016 - 15:04, said: Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru или на свой клади там не надо папку создавать путь пропишешь к файлу... Уже не работает. Как не работает? все пашет как надо... вот видео смотрите: 'Видео ' https://youtu.be/1XJN3P4UAuA пишите на скайп помогу настроить ник мой в скайпе: nowikbiz Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #318657 Posted March 15, 2016 Уже не работает.ыыыы Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #318664 Posted March 15, 2016 Он живой, живооой!!! Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #318665 Posted March 15, 2016 Он живой, живооой!!! мнимый online :) Quote Share this post Link to post Short link Share on other sites
guceds 2 #319229 Posted March 18, 2016 Ребята, тыкните пожалуйста, на то, где написано, как создавать дополнительные странички с компонентами. А то не нашел Quote Share this post Link to post Short link Share on other sites
Xotabych 337 #319230 Posted March 18, 2016 Ребята, тыкните пожалуйста, на то, где написано, как создавать дополнительные странички с компонентами. А то не нашел Поиск рулит в теме 173 стр. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #319239 Posted March 18, 2016 (edited) Поиск рулит только в тех случаях, когда запрос адекватен =) В идеале - ключевое слово из требуемого кода (например, в данном случае нам нужна страница; тогда вбиваем CreateCustomPage, или TWizardPage. Нужны компоненты - не вопрос, вписываем TNewCheckListBox). И тогда поисковик вам даст то, что вы хотите. Edited March 18, 2016 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
asterix93 9 #319523 Posted March 19, 2016 Привет всем кто знает как редактиравати XML file через Inno setup??? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #319524 Posted March 19, 2016 @asterix93, http://krinkels.org/threads/xml.1902/ Quote Share this post Link to post Short link Share on other sites
asterix93 9 #319525 Posted March 19, 2016 (edited) @asterix93, http://krinkels.org/threads/xml.1902/ Агромная спасиба как всегда ти памагаеш!!! @asterix93, http://krinkels.org/threads/xml.1902/ Што здеси не правильна #include "XML.iss" [Setup] Appname=MyApp AppVerName=MyApp DefaultDirName={pf}\MyApp OutputDir=. [Components] Name: KMP; Description: "sdjfn;"; Name: KMP\1; Description: "1"; Name: KMP\2; Description: "2"; //Name: KMP\3; Description: "3"; Name: KMP\4; Description: "4"; Name: KMP\5; Description: "5"; Name: KMP\6; Description: "6"; [code] procedure CurStepChanged(CurStep: TSetupStep); var s: string; begin if CurStep = ssPostInstall then begin If (IsComponentSelected('KMP\1'))then XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sUserData',''); end; begin If (IsComponentSelected('KMP\2'))then XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'),'DCPlusPlus\Settings\sVersion','1.2'); end; //begin //If (IsComponentSelected('KMP\3'))then //XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir','({app})'); // end; begin If (IsComponentSelected('KMP\4'))then XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sAppName','{#SetupSetting("AppName")}'); end; begin If (IsComponentSelected('KMP\5'))then XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sUserData\sUserName','Shegorat'); end; begin If (IsComponentSelected('KMP\6'))then XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sUserData\sUserDescription','Закрытая информация:P'); end; end; Edited March 19, 2016 by asterix93 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #319537 Posted March 19, 2016 Остаётся только догадываться, что ты имеешь ввиду. Предположу, что: XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}')); Quote Share this post Link to post Short link Share on other sites
asterix93 9 #319542 Posted March 19, 2016 (edited) Остаётся только догадываться, что ты имеешь ввиду. Предположу, что: XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}')); ашибка била здеси понел ExpandConstant('{app}') Остаётся только догадываться, что ты имеешь ввиду. Предположу, что: XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}')); как можна делати атат скрипт чтобы он менишэ был чтобы не исполизбать эта If (IsComponentSelected('KMP\2'))then Edited March 19, 2016 by asterix93 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #319601 Posted March 20, 2016 как можна делати атат скрипт чтобы он менишэ былчтобы не исполизбать эта Если привязка к компонентам обязательна, то никак. Quote Share this post Link to post Short link Share on other sites
asterix93 9 #319619 Posted March 20, 2016 Если привязка к компонентам обязательна, то никак. Аха спасиба. А там правилина как я делал Quote Share this post Link to post Short link Share on other sites
DimaKarapuz 1 #319661 Posted March 20, 2016 Как сделать вывод изображений при наведении?? Что то попробовал один код работает но не так как надо. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #319687 Posted March 20, 2016 Как сделать вывод изображений при наведении? http://forum.oszone.net/post-2169372-662.html Требуется расширенная версия компилятора. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #319688 Posted March 20, 2016 Как сделать вывод изображений при наведении?? Что то попробовал один код работает но не так как надо. вы хоть тему читали? тут несколько стр назад давали Quote Share this post Link to post Short link Share on other sites
DimaKarapuz 1 #319868 Posted March 21, 2016 вы хоть тему читали? тут несколько стр назад давали Сообщений очень много мог и пропустить... Нашел сам как сделать вывод изображений при наведении. Есть еще пару вопросов. Как вывести описания к модам? И есть проблема с backUP папок и файлов. Вставил код бекапа #include "SHFileOperation.iss"; [code] //------- Скрипт backUP ------------ var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton; const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.9.14", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.'; 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:=0; BackupDescLabel.Top:=0; 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:=False; DeleteRadioButton.Top:=95; DeleteRadioButton.Width:=BackupPage.SurfaceWidth; DeleteRadioButton.Font.Style:=[fsBold]; DeleteRadioButton.Font.Size:=9; DeleteRadioButton.Caption:='Удалить старый ModPack' DeleteDescLabel:=TLabel.Create(WizardForm); DeleteDescLabel.Parent:=BackupPage.Surface; DeleteDescLabel.Left:=18; 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:=True; MoveRadioButton.Top:=140; MoveRadioButton.Width:=BackupPage.SurfaceWidth; MoveRadioButton.Font.Style:=[fsBold]; MoveRadioButton.Font.Size:=9; MoveRadioButton.Caption:='Сделать резервную копию ModPacka' MoveDescLabel:=TLabel.Create(WizardForm); MoveDescLabel.Parent:=BackupPage.Surface; MoveDescLabel.Left:=18; 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:=185; NoneRadioButton.Width:=BackupPage.SurfaceWidth; NoneRadioButton.Font.Style:=[fsBold]; NoneRadioButton.Font.Size:=9; NoneRadioButton.Caption:='Ничего не трогать' NoneDescLabel:=TLabel.Create(WizardForm); NoneDescLabel.Parent:=BackupPage.Surface; NoneDescLabel.Left:=18; 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\0.9.14'), True, True, True); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\0.9.14')); end; end; function BackupCheck_3(): Boolean; begin If MoveRadioButton.Checked then begin MoveDir(ExpandConstant('{app}\res_mods\0.9.14\'),ExpandConstant('{app}\res_mods\backup\0.9.14')); MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm')); CreateDir(ExpandConstant('{app}\res_mods\0.9.14')); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); end; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin BackupCheck_2(); BackupCheck_3(); end; end; procedure InitializeWizard(); begin BackupCheck_1(); end; Но проблема при компиляции выдает вот такую ошибку Если убрать или закоментировать этот код то не работають картинки при наведении и весь вид инстолятора искревляется... Quote Share this post Link to post Short link Share on other sites