Kotyarko_O Posted May 14, 2015 Share Posted May 14, 2015 Как чтоб закрывало инстал? Не помню, работает ли из-под NextButtonClick, но можешь попробовать: Abort; @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted May 14, 2015 Share Posted May 14, 2015 (edited) Не помню, работает ли из-под NextButtonClick, но можешь попробовать: Abort; Видимо нет 'ошибка' -zav-, не так) Нужно Abort указать вместо результата: ох ё... так работает я нуб да? )) Edited May 14, 2015 by -zav- @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 14, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Hatsan Posted May 16, 2015 Share Posted May 16, 2015 Не могу понять как сделать картинку на все окно инсталятора или можно было увеличить окно WelcomePage? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 16, 2015 Share Posted May 16, 2015 Не могу понять как сделать картинку на все окно инсталятора или можно было увеличить окно WelcomePage? Речь идёт только о изображении на странице приветствия\завершения или абсолютно на всех? 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Hatsan Posted May 16, 2015 Share Posted May 16, 2015 на всех @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 16, 2015 Share Posted May 16, 2015 на всех Botva2 0.9.5.130.rar Или в редакторе @ Quote Link to comment Short link Share on other sites More sharing options...
Hatsan Posted May 16, 2015 Share Posted May 16, 2015 Botva2 0.9.5.130.rar Или в редакторе как я понял в редакторе форм нельзя это сделать? @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 16, 2015 Share Posted May 16, 2015 как я понял в редакторе форм нельзя это сделать? можно @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 16, 2015 Share Posted May 16, 2015 в редакторе форм нельзя это сделать? Лучше через ботву. @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 16, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Hatsan Posted May 16, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 16, 2015 Share Posted May 16, 2015 сябки ща попробую если допру:) аналогично и на других стр @ Quote Link to comment Short link Share on other sites More sharing options...
Hatsan Posted May 16, 2015 Share Posted May 16, 2015 Лучше через ботву. а по подробнее можно как сней работать? не кто не подскажет как прикрутить Botva2 0.9.5.130? Пойду читать 160 стр @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 16, 2015 Share Posted May 16, 2015 Пойду читать 160 стр это верно @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 16, 2015 Share Posted May 16, 2015 (edited) а по подробнее можно как сней работать? не кто не подскажет как прикрутить Botva2 0.9.5.130? Пойду читать 160 стр В стандартной поставке ботвы есть несколько подробных примеров, вот их можешь посмотреть. Edited May 16, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
StranikS_Scan Posted May 16, 2015 Share Posted May 16, 2015 не кто не подскажет как прикрутить Botva2 0.9.5.130? О сколько раз я видел эту надпись, Гарацио! 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted May 16, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted May 16, 2015 Share Posted May 16, 2015 З.Ы. Низко берёте, уже есть версия 0.9.9.156! ха,точно, не заметил @ Quote Link to comment Short link Share on other sites More sharing options...
Hatsan Posted May 17, 2015 Share 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 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.