Kotyarko_O 1,906 #241909 Posted January 5, 2015 @GrebeninV, what? Quote Share this post Link to post Short link Share on other sites
Wanket 3 #242196 Posted January 6, 2015 У меня при выборе папки C:\Games\World_of_Tanks выбирает папку С:\Games\World_of_Tanks\World_of_Tanks Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #242203 Posted January 7, 2015 У меня при выборе папки C:\Games\World_of_Tanks выбирает папку С:\Games\World_of_Tanks\World_of_Tanks В следующий раз задавайте вопрос полностью. [Setup] AppendDefaultDirName=no 1 Quote Share this post Link to post Short link Share on other sites
SiN_Serba 0 #242629 Posted January 8, 2015 Всем привет , нужна помощь , вот у меня такая хрень как зделать вот такую меню как у джовы вот фоткака но у него там ютуб и вк Это лого (Мой канал на ютубе) procedure LogoOnClick(Sender: TObject);var ResCode: Integer;begin ShellExec('', 'http://vk.com/public42043293' '' , '', SW_SHOW, ewNoWait, ResCode) end; procedure Logo();var BtnPanel: TPanel; BtnImage: TBitmapImage;begin ExtractTemporaryFile('logo.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=20 Top:=325 Width:=132 Height:=27 Cursor:=crHand OnClick:=@logoOnClick Parent:=WizardForm end BtnImage:=TBitmapImage.Create(WizardForm) with BtnImage do begin AutoSize:=True; Enabled:=False; Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp') Parent:=BtnPanel endend; как у амвея это сплеш[Code]procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';procedure Splash();begin ExtractTemporaryFile('Splash.png'); ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);end;Всем привет , С новым годом 2015 , Так у меня такая проблема я хочу создать свой модпак , мне надо такая херня так как у анвея в начале запуска идёт картинка а потом запускается модпак , 2 з делать что б выбирались моды по одному , и что б удалить все старые моды , хто может помогите буду очень благодарен)Выбор модов по одному :Name: KP; Description: Лучшие моды от клана KORM-;Types: tp; Flags: checkablealoneName: KP\KP; Description:1.Прицелы.;Types: tp; Flags: checkablealone;Name: KP\KP\1; Description: MeltyMap; Flags: exclusiveName: KP\KP\2; Description: А-ля Ghost Recon; Flags: exclusive #define Patch "0.9.5"//бекап[Code]var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\{#Patch}", удалена папка "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:='Удалить файлы' 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_2(): Boolean;begin If DeleteRadioButton.Checked thenbegin DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end;function BackupCheck_3(): Boolean;begin If MoveRadioButton.Checked thenbegin CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);end;end;procedure CurStepChanged(CurStep: TSetupStep);begin If CurStep=ssInstall thenbegin BackupCheck_2(); BackupCheck_3();end;end;procedure InitializeWizard();begin BackupCheck_1(); Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #242666 Posted January 8, 2015 (edited) Мужики, можно ли сделать так, чтобы текст в описании компонентов в определённом месте, а не только в конце строки можно было напечатать с абзаца? Пример: CompDesc1=trwtqwrtqrwtqrwtqwrtqwr Выводится как: trwtqwrtqrwt qrwtqwrt qwr А нужно так: trwtqwrtqrwt qrwtqwrt qwr Возможно ли это? Edited January 8, 2015 by Darksoul Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #242668 Posted January 8, 2015 Стринг можно комбинировать с символом #13. Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #242670 Posted January 8, 2015 Нашёл решение, спс за ответ Ekspoint'у. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #242675 Posted January 8, 2015 Это лого (Мой канал на ютубе) procedure LogoOnClick(Sender: TObject);var ResCode: Integer;begin ShellExec('', 'http://vk.com/public42043293' '' , '', SW_SHOW, ewNoWait, ResCode) end; procedure Logo();var BtnPanel: TPanel; BtnImage: TBitmapImage;begin ExtractTemporaryFile('logo.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=20 Top:=325 Width:=132 Height:=27 Cursor:=crHand OnClick:=@logoOnClick Parent:=WizardForm end BtnImage:=TBitmapImage.Create(WizardForm) with BtnImage do begin AutoSize:=True; Enabled:=False; Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp') Parent:=BtnPanel endend; как у амвея это сплеш[code=auto:0]procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';procedure Splash();begin ExtractTemporaryFile('Splash.png'); ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);end;Выбор модов по одному :Name: KP; Description: Лучшие моды от клана KORM-;Types: tp; Flags: checkablealoneName: KP\KP; Description:1.Прицелы.;Types: tp; Flags: checkablealone;Name: KP\KP\1; Description: MeltyMap; Flags: exclusiveName: KP\KP\2; Description: А-ля Ghost Recon; Flags: exclusive #define Patch "0.9.5"//бекап[code=auto:0]var BackupPage: TWizardPage; DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;const BackupDescText = 'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\{#Patch}", удалена папка "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:='Удалить файлы' 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_2(): Boolean;begin If DeleteRadioButton.Checked thenbegin DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True); CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end;function BackupCheck_3(): Boolean;begin If MoveRadioButton.Checked thenbegin CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);end;end;procedure CurStepChanged(CurStep: TSetupStep);begin If CurStep=ssInstall thenbegin BackupCheck_2(); BackupCheck_3();end;end;procedure InitializeWizard();begin BackupCheck_1();что то не понятно,что вам нужно? Quote Share this post Link to post Short link Share on other sites
SiN_Serba 0 #242756 Posted January 9, 2015 я отвечал ( если Вы не поняли( Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #242810 Posted January 9, 2015 Люди, имейте совесть, пользуйтесь 'Спойлерами блин' И будет вам счастье;) 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #242908 Posted January 9, 2015 Люди, имейте совесть, пользуйтесь 'Спойлерами блин' И будет вам счастье;) Quote Share this post Link to post Short link Share on other sites
SiN_Serba 0 #242920 Posted January 9, 2015 Люди, имейте совесть, пользуйтесь 'Спойлерами блин' И будет вам счастье;) хАрАшо Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #242933 Posted January 10, 2015 (edited) Как сделать так что бы сначала установщик скачивал моды из сети и распаковывал их,а уж патом те которые в установщике? вместо wpInstalling написать wpSelectComponents или не так? Edited January 10, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫ Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243023 Posted January 10, 2015 Как сделать так что бы сначала установщик скачивал моды из сети и распаковывал их,а уж патом те которые в установщике? idpDownloadAfter(wpSelectComponents или wpReady); И распаковку делать по факту скачивания: if (CurPageID > wpSelectComponents или wpReady) and idpFileDownloaded(http://...) then Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243043 Posted January 10, 2015 idpDownloadAfter(wpSelectComponents или wpReady); И распаковку делать по факту скачивания: if (CurPageID > wpSelectComponents или wpReady) and idpFileDownloaded(http://...) then ясно Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #243075 Posted January 10, 2015 (edited) Нужна помощь со скриптом IDP, нужно запилить:1) Чтобы архивы качались не так как сейчас, в корневую папку с игрой, а в отдельную папку.2) Можно было отменить нажатием на кнопку загрузку и установку модов, и соответственно архивы из той папки удалялись и папка рес модс очищалась, при этом в ней оставалась пустая папка с номером патча.idp.rar Edited January 10, 2015 by Darksoul Quote Share this post Link to post Short link Share on other sites
ZareMboAS 0 #243090 Posted January 10, 2015 Подскажите, а как создать меню с выборочной установкой модов? И как привязать сами файлы и пути установки. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #243102 Posted January 10, 2015 Подскажите, а как создать меню с выборочной установкой модов? И как привязать сами файлы и пути установки. Скачивайте пример из шапки, там есть всё, о чём вы спросили. Quote Share this post Link to post Short link Share on other sites
-zav- 188 #243113 Posted January 10, 2015 Как в секции [CustomMessages] принудительно переводить текст на новую строку я нашел в справке.А вот как в секции [CustomMessages] строку выделить жирным шрифтом? Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #243116 Posted January 10, 2015 Как в секции [CustomMessages] принудительно переводить текст на новую строку я нашел в справке. А вот как в секции [CustomMessages] строку выделить жирным шрифтом? в секции кода с помощью const Mod1 = 'Пожалуйста, прочтите следующее Лицензионное Соглашение.' + #13#10 +#13#10 +' Вы должны принять условия этого соглашения перед тем, как продолжить.'; Quote Share this post Link to post Short link Share on other sites