Kotyarko_O 1,906 #270590 Posted May 14, 2015 Как чтоб закрывало инстал? Не помню, работает ли из-под NextButtonClick, но можешь попробовать: Abort; Quote Share this post Link to post Short link Share on other sites
-zav- 188 #270593 Posted May 14, 2015 (edited) Не помню, работает ли из-под NextButtonClick, но можешь попробовать: Abort; Видимо нет 'ошибка' -zav-, не так) Нужно Abort указать вместо результата: ох ё... так работает я нуб да? )) Edited May 14, 2015 by -zav- Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #270595 Posted May 14, 2015 @-zav-, не так) 'Нужно Abort указать вместо результата:' function NextButtonClick(CurPageID: Integer): Boolean; begin Result:= true; case CurPageID of wpSelectDir: begin if FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin if FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') < '0.9.6' then begin MsgBoxEx(WizardForm.Handle, 'МодПак не предназначен для данной версии игры, невозможно продолжить установку!', 'Не актуальная версия игры', MB_OK or MB_ICONWARNING, 0, 0); Abort; end; end; end; end; end; Quote Share this post Link to post Short link Share on other sites
Hatsan 3 #270855 Posted May 16, 2015 Не могу понять как сделать картинку на все окно инсталятора или можно было увеличить окно WelcomePage? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #270856 Posted May 16, 2015 Не могу понять как сделать картинку на все окно инсталятора или можно было увеличить окно WelcomePage? Речь идёт только о изображении на странице приветствия\завершения или абсолютно на всех? 1 Quote Share this post Link to post Short link Share on other sites
Hatsan 3 #270858 Posted May 16, 2015 на всех Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #270860 Posted May 16, 2015 на всех Botva2 0.9.5.130.rar Или в редакторе Quote Share this post Link to post Short link Share on other sites
Hatsan 3 #270861 Posted May 16, 2015 Botva2 0.9.5.130.rar Или в редакторе как я понял в редакторе форм нельзя это сделать? Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #270867 Posted May 16, 2015 как я понял в редакторе форм нельзя это сделать? можно Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #270870 Posted May 16, 2015 в редакторе форм нельзя это сделать? Лучше через ботву. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #270871 Posted May 16, 2015 (edited) вот через редактор [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] ;{ ISFormDesignerFilesBegin } // Не удалять эту строку! ;// Не изменять эту секцию. Она создана автоматически. DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernImage.bmp"; Flags: dontcopy solidbreak ;// Не изменять эту секцию. Она создана автоматически. ;{ ISFormDesignerFilesEnd } // Не удалять эту строку! [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D003010B603000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C656674020003546F70023A05576964746803F101064865696768740347010C4578706C696369744C65667402000B4578706C69636974546F70023A0D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740347010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803F101064865696768740301010A4269746D617046696C65061B636F6D70696C65723A57697A4D6F6465726E496D6167652E626D700000F10C544269746D6170496D6167651453656C6563744469724269746D6170496D61676503546F7002090B4578706C69636974546F7002090000F10E544E6577537461746963546578740E4469736B53706163654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578740E53656C6563744469724C6162656C0B5472616E73706172656E740900000000000000 [Code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var BitmapImage1: TBitmapImage; procedure RedesignWizardForm; begin with WizardForm.InnerNotebook do begin Left := ScaleX(0); Top := ScaleY(58); Width := ScaleX(497); Height := ScaleY(327); end; { BitmapImage1 } BitmapImage1 := TBitmapImage.Create(WizardForm); with BitmapImage1 do begin Name := 'BitmapImage1'; Parent := WizardForm.SelectDirPage; Left := ScaleX(0); Top := ScaleY(0); Width := ScaleX(497); Height := ScaleY(257); ExtractTemporaryFile('WizardForm.BitmapImage1.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp')); end; with WizardForm.SelectDirBitmapImage do begin Top := ScaleY(9); end; with WizardForm.DiskSpaceLabel do begin Transparent := True; end; with WizardForm.SelectDirBrowseLabel do begin Transparent := True; end; with WizardForm.SelectDirLabel do begin Transparent := True; end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure InitializeWizard(); begin RedesignWizardForm; end; как то так Edited May 16, 2015 by Dark_Knight_MiX 1 Quote Share this post Link to post Short link Share on other sites
Hatsan 3 #270876 Posted May 16, 2015 вот через редактор [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] ;{ ISFormDesignerFilesBegin } // Не удалять эту строку! ;// Не изменять эту секцию. Она создана автоматически. DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernImage.bmp"; Flags: dontcopy solidbreak ;// Не изменять эту секцию. Она создана автоматически. ;{ ISFormDesignerFilesEnd } // Не удалять эту строку! [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D003010B603000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C656674020003546F70023A05576964746803F101064865696768740347010C4578706C696369744C65667402000B4578706C69636974546F70023A0D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740347010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803F101064865696768740301010A4269746D617046696C65061B636F6D70696C65723A57697A4D6F6465726E496D6167652E626D700000F10C544269746D6170496D6167651453656C6563744469724269746D6170496D61676503546F7002090B4578706C69636974546F7002090000F10E544E6577537461746963546578740E4469736B53706163654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578740E53656C6563744469724C6162656C0B5472616E73706172656E740900000000000000 [Code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var BitmapImage1: TBitmapImage; procedure RedesignWizardForm; begin with WizardForm.InnerNotebook do begin Left := ScaleX(0); Top := ScaleY(58); Width := ScaleX(497); Height := ScaleY(327); end; { BitmapImage1 } BitmapImage1 := TBitmapImage.Create(WizardForm); with BitmapImage1 do begin Name := 'BitmapImage1'; Parent := WizardForm.SelectDirPage; Left := ScaleX(0); Top := ScaleY(0); Width := ScaleX(497); Height := ScaleY(257); ExtractTemporaryFile('WizardForm.BitmapImage1.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp')); end; with WizardForm.SelectDirBitmapImage do begin Top := ScaleY(9); end; with WizardForm.DiskSpaceLabel do begin Transparent := True; end; with WizardForm.SelectDirBrowseLabel do begin Transparent := True; end; with WizardForm.SelectDirLabel do begin Transparent := True; end; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure InitializeWizard(); begin RedesignWizardForm; end; как то так сябки ща попробую если допру:) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #270877 Posted May 16, 2015 сябки ща попробую если допру:) аналогично и на других стр Quote Share this post Link to post Short link Share on other sites
Hatsan 3 #270910 Posted May 16, 2015 Лучше через ботву. а по подробнее можно как сней работать? не кто не подскажет как прикрутить Botva2 0.9.5.130? Пойду читать 160 стр Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #270924 Posted May 16, 2015 Пойду читать 160 стр это верно Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #270925 Posted May 16, 2015 (edited) а по подробнее можно как сней работать? не кто не подскажет как прикрутить Botva2 0.9.5.130? Пойду читать 160 стр В стандартной поставке ботвы есть несколько подробных примеров, вот их можешь посмотреть. Edited May 16, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
StranikS_Scan 4,213 #270943 Posted May 16, 2015 не кто не подскажет как прикрутить Botva2 0.9.5.130? О сколько раз я видел эту надпись, Гарацио! 1 1 Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #270992 Posted May 16, 2015 (edited) не кто не подскажет как прикрутить Botva2 0.9.5.130? "Прикрутить" очень просто, 5 строчек всего. #include "Embedded\botva2.iss"; Source: "Embedded\botva2.dll"; Flags: dontcopy; Source: "Embedded\CallbackCtrl.dll"; Flags: dontcopy; ExtractTemporaryFile('botva2.dll'); ExtractTemporaryFile('CallbackCtrl.dll'); А вот использовать - тут у многих проблемы начинаются. З.Ы. Низко берёте, уже есть версия 0.9.9.156! Edited May 16, 2015 by AtotIK Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #271006 Posted May 16, 2015 З.Ы. Низко берёте, уже есть версия 0.9.9.156! ха,точно, не заметил Quote Share this post Link to post Short link Share on other sites
Hatsan 3 #271044 Posted May 17, 2015 "Прикрутить" очень просто, 5 строчек всего. #include "Embedded\botva2.iss"; Source: "Embedded\botva2.dll"; Flags: dontcopy; Source: "Embedded\CallbackCtrl.dll"; Flags: dontcopy; ExtractTemporaryFile('botva2.dll'); ExtractTemporaryFile('CallbackCtrl.dll'); А вот использовать - тут у многих проблемы начинаются. З.Ы. Низко берёте, уже есть версия 0.9.9.156! спс будем пробовать Такой вопрос еще ? возможно ли HTML код прикрутить на завершение установки? Quote Share this post Link to post Short link Share on other sites