Nowik1971 Posted March 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted March 15, 2016 Share Posted March 15, 2016 Вот скачивай настраивай под себя и все.... да не забудь там на FTP сервере куда ложить будешь файл server.json создай обязательно папку public_http и уже в нее клади.. иначе не найдет путь... Про FTP сервер имел ввиду net2ftp.ru или на свой клади там не надо папку создавать путь пропишешь к файлу... Уже не работает. @ Quote Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted March 15, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted March 15, 2016 Share Posted March 15, 2016 Уже не работает.ыыыы @ Quote Link to comment Short link Share on other sites More sharing options...
Andrew_Dark Posted March 15, 2016 Share Posted March 15, 2016 Он живой, живооой!!! @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted March 15, 2016 Share Posted March 15, 2016 Он живой, живооой!!! мнимый online :) @ Quote Link to comment Short link Share on other sites More sharing options...
guceds Posted March 18, 2016 Share Posted March 18, 2016 Ребята, тыкните пожалуйста, на то, где написано, как создавать дополнительные странички с компонентами. А то не нашел @ Quote Link to comment Short link Share on other sites More sharing options...
Xotabych Posted March 18, 2016 Share Posted March 18, 2016 Ребята, тыкните пожалуйста, на то, где написано, как создавать дополнительные странички с компонентами. А то не нашел Поиск рулит в теме 173 стр. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted March 18, 2016 Share Posted March 18, 2016 (edited) Поиск рулит только в тех случаях, когда запрос адекватен =) В идеале - ключевое слово из требуемого кода (например, в данном случае нам нужна страница; тогда вбиваем CreateCustomPage, или TWizardPage. Нужны компоненты - не вопрос, вписываем TNewCheckListBox). И тогда поисковик вам даст то, что вы хотите. Edited March 18, 2016 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted March 19, 2016 Share Posted March 19, 2016 Привет всем кто знает как редактиравати XML file через Inno setup??? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted March 19, 2016 Share Posted March 19, 2016 @asterix93, http://krinkels.org/threads/xml.1902/ @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted March 19, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted March 19, 2016 Share Posted March 19, 2016 Остаётся только догадываться, что ты имеешь ввиду. Предположу, что: XMLFileChangeValue(ExpandConstant('{app}\DCPlusPlus.xml'), 'DCPlusPlus\Settings\sSetupDir', ExpandConstant('{app}')); @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted March 19, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted March 20, 2016 Share Posted March 20, 2016 как можна делати атат скрипт чтобы он менишэ былчтобы не исполизбать эта Если привязка к компонентам обязательна, то никак. @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted March 20, 2016 Share Posted March 20, 2016 Если привязка к компонентам обязательна, то никак. Аха спасиба. А там правилина как я делал @ Quote Link to comment Short link Share on other sites More sharing options...
DimaKarapuz Posted March 20, 2016 Share Posted March 20, 2016 Как сделать вывод изображений при наведении?? Что то попробовал один код работает но не так как надо. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted March 20, 2016 Share Posted March 20, 2016 Как сделать вывод изображений при наведении? http://forum.oszone.net/post-2169372-662.html Требуется расширенная версия компилятора. @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted March 20, 2016 Share Posted March 20, 2016 Как сделать вывод изображений при наведении?? Что то попробовал один код работает но не так как надо. вы хоть тему читали? тут несколько стр назад давали @ Quote Link to comment Short link Share on other sites More sharing options...
DimaKarapuz Posted March 21, 2016 Share 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 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.