doktorfox Posted October 23, 2014 Share Posted October 23, 2014 помощи от вас ни какой,я и не увидел. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted October 24, 2014 Share Posted October 24, 2014 (edited) помощи от вас ни какой,я и не увидел. В коде, который вы давали, нет даже намёков на попытки добавить эти скрины. Кроме этой несчастной строки: Source: img_mod\1.bmp; Flags: dontcopy noencryption noencryption В этой теме есть примеры, как это осуществить. Edited October 24, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
doktorfox Posted October 24, 2014 Share Posted October 24, 2014 спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted October 24, 2014 Share Posted October 24, 2014 спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как. "Одна строка только" - это для подхвата изображения. В этой теме есть примеры, как это осуществить. @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted October 25, 2014 Share Posted October 25, 2014 (edited) спс и на этом. сам знаю,что на скрин-это 1-а строка только. а вот дальше как ее добавить пока ни как. с 4 по 10 смотри там вроде есть пример. Edited October 26, 2014 by Ekspoint @ Quote Link to comment Short link Share on other sites More sharing options...
alexseyuh Posted October 26, 2014 Share Posted October 26, 2014 Версия 2.rar Посмотрите пожалуйста почему не работает бекап? Версия 2.rar @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted October 26, 2014 Share Posted October 26, 2014 Посмотрите пожалуйста почему не работает бекап? вот пост,смотри http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=157502 и прочитай всю тему а не качай готовый скрипт W-mods @ Quote Link to comment Short link Share on other sites More sharing options...
alexseyuh Posted October 26, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
night_dragon_on Posted October 26, 2014 Share Posted October 26, 2014 (edited) Я не знаю как исправить, просто закоментировал ее и компиляция прошла успешно. После end нет точки с запятой до и после этой строки. Во всплывающем окне с ошибкой это же ясно видно. Edited October 26, 2014 by night_dragon_on @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted October 26, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
alexseyuh Posted October 26, 2014 Share Posted October 26, 2014 После end нет точки с запятой до и после этой строки. Во всплывающем окне с ошибкой это же ясно видно. поставил после и компиляция прошла без ошибок А что с бекапом не подскажете? Просто папка после установки мода пустая где должен быть бекап(( @ Quote Link to comment Short link Share on other sites More sharing options...
night_dragon_on Posted October 26, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
alexseyuh Posted October 26, 2014 Share Posted October 26, 2014 По бэкапу можно использовать вот такая ошибка @ Quote Link to comment Short link Share on other sites More sharing options...
night_dragon_on Posted October 26, 2014 Share Posted October 26, 2014 (edited) вот такая ошибка Два раза использовали в коде процедуру с одним названием. Edited October 26, 2014 by night_dragon_on @ Quote Link to comment Short link Share on other sites More sharing options...
alexseyuh Posted October 26, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
night_dragon_on Posted October 26, 2014 Share 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 Link to comment Short link Share on other sites More sharing options...
alexseyuh Posted October 26, 2014 Share Posted October 26, 2014 у строку уберите и добавьте данные в уже существующую процедуру. Строку там убрал,тут дописал ,но опять(( @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted October 26, 2014 Share Posted October 26, 2014 (edited) Я не собираюсь это продавать,мне надо сделать модпак для своего клана,и сидет неделю учить питоновские скрипты для этого нет времени,просто шаблон, вставил и все. Маладес. Надо - учи. Edited October 26, 2014 by Kotyarko_O 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
night_dragon_on Posted October 26, 2014 Share Posted October 26, 2014 (edited) Строку там убрал,тут дописал ,но опять(( Во первых вы зачем то добавили два begin-а, а не как я указал в сообщении. Во вторых процедура procedure BackupCheckCreate(); у вас находится после procedure InitializeWizard(); ,поэтому и выдается предупреждение о неизвестном параметре. Edited October 26, 2014 by night_dragon_on @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted October 26, 2014 Share Posted October 26, 2014 alexseyuh, издеваетесь что-ли? Что за идиотские вопросы со скринами ошибок? Видимо вообще не стыдно. Подключаемая кастомная процедура всегда должна быть выше по коду той, в которой её подключают. И зачем два раза написана RedesignWizardForm; + появился begin? Помидорами бы вас закидать, горемодпакеры. 1 2 @ 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.