asterix93 Posted October 18, 2016 Share Posted October 18, 2016 сел заново читать тему. из за проблем с глазами не могу долго читать. если не трудно подскажите пожалуйста как сделать в установщике одну фоновую картинку для всех страниц? ( ну чтобы весь текст и т.д. на всех страницах были на этой картинке как бы ) или ткните носом в каком месте это обсуждалось в теме! http://krinkels.org/forums/inno-setup.250/ @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 18, 2016 Share Posted October 18, 2016 (edited) http://krinkels.org/forums/inno-setup.250/ спасибо))) это я уже вспомнил как надо делать))) Edited October 23, 2016 by ЛОМ @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 20, 2016 Share Posted October 20, 2016 (edited) подскажите пожалуйста почему иногда в редакторе форм когда пытаюсь что то изменить появляются эти сообщения? инстал скином делал. или как он там называется не помню)) вот этим короче " .cjstyles " Edited October 20, 2016 by ЛОМ @ Quote Link to comment Short link Share on other sites More sharing options...
lexx7205 Posted October 23, 2016 Share Posted October 23, 2016 Всем приветНарод дайте если не трудно и не жалко скрип для очистка кеша и XVM заранее благодарен @ Quote Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted October 23, 2016 Share Posted October 23, 2016 (edited) Всем привет Народ дайте если не трудно и не жалко скрип для очистка кеша и XVM заранее благодарен Или просто скрипт для ручной очистки в прикрепленном файле Очистка кеш.rar Edited October 23, 2016 by Nowik1971 1 @ Quote Link to comment Short link Share on other sites More sharing options...
BeJIuKuu_TaHKoBbIu_BouH Posted October 23, 2016 Share Posted October 23, 2016 (edited) del Edited October 27, 2016 by gad_575__2 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Yusha Posted October 23, 2016 Share Posted October 23, 2016 Всем привет Народ дайте если не трудно и не жалко скрип для очистка кеша и XVM заранее благодарен Писец там выше заморочки... все есть в самом инно. Секция: [installDelete] [InstallDelete] ; Очистка кеша и логов Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\account_caches Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\awesomium_cache Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\battle_results Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\clan_cache Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\custom_data Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\dossier_cache Type: filesandordirs; Name: {userappdata}\wargaming.net\WorldOfTanks\messenger_cache Type: files; Name: {userappdata}\wargaming.net\WorldOfTanks\xvm\tcarousel.filters.dat Type: files; Name: {userappdata}\wargaming.net\WorldOfTanks\xvm\tcarousel.reserve.dat Type: files; Name: {userappdata}\wargaming.net\WorldOfTanks\xvm\arenas_data.zip Type: files; Name: {app}\python.log Type: files; Name: {app}\xvm.log Можно добавить любые Components: или Check: Например: Type: files; Name: {userappdata}\wargaming.net\WorldOfTanks\xvm\tcarousel.filters.dat; Components: xvm Type: files; Name: {userappdata}\wargaming.net\WorldOfTanks\xvm\tcarousel.reserve.dat; Components: xvm Type: files; Name: {userappdata}\wargaming.net\WorldOfTanks\xvm\arenas_data.zip; Components: xvm 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 23, 2016 Share Posted October 23, 2016 мда... 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 23, 2016 Share Posted October 23, 2016 подскажите пожалуйста можно ли в этом коде сделать так чтобы сразу два сайта открывались? Procedure LogoOnClick(Sender: TObject); var ResCode: Integer; begin ShellExec('', 'http://тратата точка ру', '' , '', SW_SHOW, ewNoWait, ResCode); end; @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted October 23, 2016 Share Posted October 23, 2016 подскажите пожалуйста можно ли в этом коде сделать так чтобы сразу два сайта открывались? Procedure LogoOnClick(Sender: TObject); var ResCode: Integer; begin ShellExec('', 'http://тратата точка ру', '' , '', SW_SHOW, ewNoWait, ResCode); end; еще добавь ShellExec('', 'http://тратата точка ру', '' , '', SW_SHOW, ewNoWait, ResCode); 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 23, 2016 Share Posted October 23, 2016 да блиииииин))) а я все пытался в эту же строчку впихнуть второй адрес)))) СПАСИБО ТЕБЕ БОЛЬШОЕ !!!!! @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 25, 2016 Share Posted October 25, 2016 привет всем! я конечно понимаю что я вас достал уже своими детскими так сказать вопросами но всё же подскажите мне одну вещь))) я не пойму почему неделю назад используя тот же код для бекапа что и сейчас всё работало а сейчас выдает ошибку пока я не поменяю {#Patch}')); на 0.9.16 ? вот к примеру в этой строчке CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); ну и в остальных тоже. @ Quote Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted October 25, 2016 Share Posted October 25, 2016 (edited) привет всем! я конечно понимаю что я вас достал уже своими детскими так сказать вопросами но всё же подскажите мне одну вещь))) я не пойму почему неделю назад используя тот же код для бекапа что и сейчас всё работало а сейчас выдает ошибку пока я не поменяю {#Patch}')); на 0.9.16 ? вот к примеру в этой строчке CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); ну и в остальных тоже. А ты вот так меняешь?: CreateDir(ExpandConstant('{app}\res_mods\0.9.16')); так должно работать Edited October 25, 2016 by Nowik1971 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted October 25, 2016 Share Posted October 25, 2016 привет всем! я конечно понимаю что я вас достал уже своими детскими так сказать вопросами но всё же подскажите мне одну вещь))) я не пойму почему неделю назад используя тот же код для бекапа что и сейчас всё работало а сейчас выдает ошибку пока я не поменяю {#Patch}')); на 0.9.16 ? вот к примеру в этой строчке CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); ну и в остальных тоже. а у тебя define Patch написано? 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 25, 2016 Share Posted October 25, 2016 как обычно забуду дописать,прописать,изменить что нибудь и потом достаю тут людей своими вопросами))))) всё заработало спасибо вам мужики!!! ))) @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 26, 2016 Share Posted October 26, 2016 (edited) люди добрые это опять я))) я немного изменил его,но... подскажите пожалуйста а можно как нить в этот код добавить еще и один чекбокс с пунктом очистки кеша хвм и игры? мне именно в этот код нужно добавить))) #define Patch "0.9.16" #include "SHFileOperation.iss"; [Code] var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton; const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.9.16", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.'; DeleteDescText = 'Установщик удалит все файлы в папках.'; MoveDescText = 'Установщик сделает резервную копию всех файлов в папках.'; NoneDescText = 'Установщик оставит всё как есть.'; function BackupCheck_1(): Boolean; var BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel; begin BackupPage:=CreateCustomPage(wpSelectDir, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.'); 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:='Удалить файлы' 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:='Сделать резервную копию файлов' 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_3(): Boolean; begin If MoveRadioButton.Checked then begin MoveDir(ExpandConstant('{app}\res_mods\'),ExpandConstant('{app}\res_mods\backup\res_mods')); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; function BackupCheck_2(): Boolean; begin If DeleteRadioButton.Checked then begin DelTree(ExpandConstant('{app}\res_mods'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin BackupCheck_2(); BackupCheck_3(); end; end; procedure InitializeWizard(); begin BackupCheck_1(); end; Edited October 26, 2016 by ЛОМ @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted October 26, 2016 Share Posted October 26, 2016 люди добрые это опять я))) я немного изменил его,но... подскажите пожалуйста а можно как нить в этот код добавить еще один чек с пунктом очистки кеша хвм и игры? мне именно в этот код нужно добавить))) #define Patch "0.9.16" #include "SHFileOperation.iss"; [Code] var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton; const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.9.16", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.'; DeleteDescText = 'Установщик удалит все файлы в папках.'; MoveDescText = 'Установщик сделает резервную копию всех файлов в папках.'; NoneDescText = 'Установщик оставит всё как есть.'; function BackupCheck_1(): Boolean; var BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel; begin BackupPage:=CreateCustomPage(wpSelectDir, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.'); 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:='Удалить файлы' 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:='Сделать резервную копию файлов' 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_3(): Boolean; begin If MoveRadioButton.Checked then begin MoveDir(ExpandConstant('{app}\res_mods\'),ExpandConstant('{app}\res_mods\backup\res_mods')); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; function BackupCheck_2(): Boolean; begin If DeleteRadioButton.Checked then begin DelTree(ExpandConstant('{app}\res_mods'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); end; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin BackupCheck_2(); BackupCheck_3(); end; end; procedure InitializeWizard(); begin BackupCheck_1(); end; а не проще чеки сделать в редакторе формы, а тут просто оставить функции при нажатии на чек 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted October 26, 2016 Share Posted October 26, 2016 а не проще чеки сделать в редакторе формы, а тут просто оставить функции при нажатии на чек по сути то проще конечно если знать как всё это делать)))) для вас это дело как два пальца об асфальт так сказать а я явно эти два пальца сломаю пока так сделаю)) потому и хочу просто в код прописать))) короче я хотел бы как на фото в это место прописать очистку кеша игры и хвм. @ Quote Link to comment Short link Share on other sites More sharing options...
Nowik1971 Posted October 26, 2016 Share Posted October 26, 2016 Т по сути то проще конечно если знать как всё это делать)))) для вас это дело как два пальца об асфальт так сказать а я явно эти два пальца сломаю пока так сделаю)) потому и хочу просто в код прописать))) короче я хотел бы как на фото в это место прописать очистку кеша игры и хвм. Screenshot_6.png Так тебе уже ответили как и что написать вот на скриншоте я показываю... в форме надо чек прописать в нужном месте 'Скриншоты' 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted October 27, 2016 Share Posted October 27, 2016 Deletkah Матерь Божья! 1 @ 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.