doktorfox 3 #224947 Posted October 23, 2014 помощи от вас ни какой,я и не увидел. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #225079 Posted October 24, 2014 (edited) помощи от вас ни какой,я и не увидел. В коде, который вы давали, нет даже намёков на попытки добавить эти скрины. Кроме этой несчастной строки: Source: img_mod\1.bmp; Flags: dontcopy noencryption noencryption В этой теме есть примеры, как это осуществить. Edited October 24, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
doktorfox 3 #225080 Posted October 24, 2014 спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #225086 Posted October 24, 2014 спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как. "Одна строка только" - это для подхвата изображения. В этой теме есть примеры, как это осуществить. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #225262 Posted October 25, 2014 (edited) спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как. с 4 по 10 смотри там вроде есть пример. Edited October 26, 2014 by Ekspoint Quote Share this post Link to post Short link Share on other sites
alexseyuh 0 #225446 Posted October 26, 2014 Версия 2.rar Посмотрите пожалуйста почему не работает бекап? Версия 2.rar Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #225448 Posted October 26, 2014 Посмотрите пожалуйста почему не работает бекап? вот пост,смотри http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=157502 и прочитай всю тему а не качай готовый скрипт W-mods Quote Share this post Link to post Short link Share on other sites
alexseyuh 0 #225484 Posted October 26, 2014 (edited) Я тему читал, тот пост я смотрел, пак у меня собран полностью, но не работает только бекап, все остальное отлично, вот и прошу посмотреть знающих и помочь исправить косячек. Вот почему и тут такие??? прочитай всю тему а не качай готовый скрипт W-mods Сами же пользуетесь Inno Setup Compiler, а не пишите полностью с нуля и не компилите exe))) Это же тоже шаблон как от готовый скрипт W-mods Я не собираюсь это продавать,мне надо сделать модпак для своего клана,и сидет неделю учить питоновские скрипты для этого нет времени,просто шаблон, вставил и все. Кстати спасибо огромное человеку который это сделал) setup.rar Вот что у меня получилось Закинул в архив так как не принимает форум ехе файлы. В примере были только одна картинка на выбор мода, несколько на выбор обложки и тело скрипта. Делал все сам. Кстати там еще такая ошибка Я не знаю как исправить, просто закоментировал ее и компиляция прошла успешно. Кстате не сочтите за рекламу, но я отседа http://4pda.ru/forum/index.php?showtopic=256187&st=62360#entry35243898 ,что бы всякие недомолвки убрать и клан у нас такой же как форум)) Edited October 26, 2014 by alexseyuh Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #225504 Posted October 26, 2014 (edited) Я не знаю как исправить, просто закоментировал ее и компиляция прошла успешно. После end нет точки с запятой до и после этой строки. Во всплывающем окне с ошибкой это же ясно видно. Edited October 26, 2014 by night_dragon_on Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #225506 Posted October 26, 2014 (edited) alexseyuh, там же написано... синтаксиса не знаете, что уже дальше говорить. ; после end пишется всегда, если только он не стоит перед else.Вообще в скрипте такая каша, что чёрт ногу сломит в некоторых местах. По бэкапу можно использовать такой вариант, он проще: #define SourceDir "res_mods"; #define BackupDir "old_res_mods"; [Setup] AppName=Test AppVersion=1.5 DefaultDirName={pf}\Test OutputDir=. [Code] var BackupCheck: TCheckBox; procedure CopyFiles(FromPlace, ToPlace: String); var ResultCode: Integer; begin Exec('xcopy.exe', '/E /C /H /R /Y /F /I ' + AddQuotes(FromPlace) + ' ' + AddQuotes(ToPlace), ExpandConstant('{app}'), SW_HIDE, ewWaitUntilTerminated, ResultCode); end; procedure BackupCheckCreate(); begin BackupCheck:=TCheckBox.Create(WizardForm); with BackupCheck do begin Parent:=WizardForm.SelectDirPage; SetBounds(ScaleX(WizardForm.DirEdit.Left), ScaleY(WizardForm.DirEdit.Top + 40), ScaleX(WizardForm.DirEdit.Width), ScaleY(15)); Caption:='Сохранить резервную копию перезаписываемых файлов'; Checked:=True; end; end; procedure BackUp(CurStep: TSetupStep); var ThereIsFolders: Boolean; begin if BackupCheck.Checked then begin ThereIsFolders:=(DirExists(AddBackslash(WizardDirValue()) + '{#SourceDir}') and (not DirExists(AddBackslash(WizardDirValue()) + '{#BackupDir}')) ); if ThereIsFolders then if CurStep=ssInstall then begin WizardForm.ProgressGauge.Hide; WizardForm.StatusLabel.Caption:='Создание резервных копий файлов...'; CopyFiles(ExpandConstant('{app}') + '\{#SourceDir}\*.*', ExpandConstant('{app}') + '\{#BackupDir}'); WizardForm.ProgressGauge.Show; WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusExtractFiles); end; end; end; procedure InitializeWizard(); begin BackupCheckCreate(); end; procedure CurStepChanged(CurStep: TSetupStep); begin BackUp(CurStep); end; procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin if CurUninstallStep = usPostUninstall then begin CopyFiles(ExpandConstant('{app}') + '\{#BackupDir}\*.*', ExpandConstant('{app}') + '\{#SourceDir}'); DelTree(ExpandConstant('{app}') + '\{#BackupDir}', True, True, True); end; end; Edited October 26, 2014 by AtotIK 1 Quote Share this post Link to post Short link Share on other sites
alexseyuh 0 #225508 Posted October 26, 2014 После end нет точки с запятой до и после этой строки. Во всплывающем окне с ошибкой это же ясно видно. поставил после и компиляция прошла без ошибок А что с бекапом не подскажете? Просто папка после установки мода пустая где должен быть бекап(( Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #225511 Posted October 26, 2014 (edited) поставил после А во втором энде нет опять (судя по скрину). begin ExtractTemporaryFile('Button.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=50 Top:=465 Width:=35 Height:=36 Cursor:=crHand OnClick:=@logoOnClick Parent:=WizardForm end; BtnImage:=TBitmapImage.Create(WizardForm) with BtnImage do begin AutoSize:=True; Enabled:=False; Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp') Parent:=BtnPanel end; end; Edited October 26, 2014 by night_dragon_on Quote Share this post Link to post Short link Share on other sites
alexseyuh 0 #225512 Posted October 26, 2014 По бэкапу можно использовать вот такая ошибка Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #225513 Posted October 26, 2014 (edited) вот такая ошибка Два раза использовали в коде процедуру с одним названием. Edited October 26, 2014 by night_dragon_on Quote Share this post Link to post Short link Share on other sites
alexseyuh 0 #225514 Posted October 26, 2014 А во втором энде нет опять (судя по скрину). begin ExtractTemporaryFile('Button.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=50 Top:=465 Width:=35 Height:=36 Cursor:=crHand OnClick:=@logoOnClick Parent:=WizardForm end; BtnImage:=TBitmapImage.Create(WizardForm) with BtnImage do begin AutoSize:=True; Enabled:=False; Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp') Parent:=BtnPanel end; end; Ок спс это исправил, поставил. Вот нашел дубль но за что он отвечает не знаю Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #225517 Posted October 26, 2014 (edited) Вот нашел дубль но за что он отвечает не знаю Эту строку удалите: procedure InitializeWizard(); begin BackupCheckCreate(); end; И добавьте параметр BackupCheckCreate(); в уже существующую процедуру. procedure InitializeWizard(); var BtnPanel: TPanel; BtnImage: TBitmapImage; var //////////////////////////////////////////////////////////////Бекап папки res_mods///////////////////////////////////////////////////////////// ThereIsFolder: Boolean; /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// i, iCount: Integer; begin BackupCheckCreate(); Edited October 26, 2014 by night_dragon_on Quote Share this post Link to post Short link Share on other sites
alexseyuh 0 #225518 Posted October 26, 2014 у строку уберите и добавьте данные в уже существующую процедуру. Строку там убрал,тут дописал ,но опять(( Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #225520 Posted October 26, 2014 (edited) Я не собираюсь это продавать,мне надо сделать модпак для своего клана,и сидет неделю учить питоновские скрипты для этого нет времени,просто шаблон, вставил и все. Маладес. Надо - учи. Edited October 26, 2014 by Kotyarko_O 1 1 Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #225522 Posted October 26, 2014 (edited) Строку там убрал,тут дописал ,но опять(( Во первых вы зачем то добавили два begin-а, а не как я указал в сообщении. Во вторых процедура procedure BackupCheckCreate(); у вас находится после procedure InitializeWizard(); ,поэтому и выдается предупреждение о неизвестном параметре. Edited October 26, 2014 by night_dragon_on Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #225523 Posted October 26, 2014 alexseyuh, издеваетесь что-ли? Что за идиотские вопросы со скринами ошибок? Видимо вообще не стыдно. Подключаемая кастомная процедура всегда должна быть выше по коду той, в которой её подключают. И зачем два раза написана RedesignWizardForm; + появился begin? Помидорами бы вас закидать, горемодпакеры. 1 2 Quote Share this post Link to post Short link Share on other sites