asterix93 Posted February 12, 2016 Share Posted February 12, 2016 (edited) Privet vsem kak delati stobi pri vibere componente stobi ustanavil pragramu v silent mond? (naprimer u menea esti pragram Firebird esli ea vibral evo v components to on ustanovit Firebird v silent mod) Edited February 12, 2016 by asterix93 @ Quote Link to comment Short link Share on other sites More sharing options...
wotunion Posted February 13, 2016 Share Posted February 13, 2016 (edited) Privet vsem kak delati stobi pri vibere componente stobi ustanavil pragramu v silent mond? (naprimer u menea esti pragram Firebird esli ea vibral evo v components to on ustanovit Firebird v silent mod) Privet vsem kak delati stobi pri vibere componente stobi ustanavil pragramu v silent mond? (naprimer u menea esti pragram Firebird esli ea vibral evo v components to on ustanovit Firebird v silent mod) Не нужно это делать через компоненты, следует использовать родные ключи установщика БД.Можно поставить в curstep в postinstall проверку были ли выбран компонент БД (вроде, IsComponentSelected) и установить его с родными ключами через Exec. Edited February 13, 2016 by wotunion @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 15, 2016 Share Posted February 15, 2016 (edited) Не нужно это делать через компоненты, следует использовать родные ключи установщика БД. Можно поставить в curstep в postinstall проверку были ли выбран компонент БД (вроде, IsComponentSelected) и установить его с родными ключами через Exec. da e a delal tac no ne znaiu pacemu on ustanovit evo nescolico raz Edited February 15, 2016 by asterix93 @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 15, 2016 Share Posted February 15, 2016 (edited) Pamaghite pajalusta gde u menea ashibca posle pervoi ustanofke on ustanovit isio 2 raza ne znaiu pacemu? #define MyAppName "TrioBar" #define MyAppVersion "1.0" #define MyAppPublisher "TrioBar" #define MyAppExeName "TrioBar.exe" [Setup] AppId={{A9EB1543-7D4B-4179-8F3A-8749846C8935} AppName={#MyAppName} AppVersion={#MyAppVersion} AppPublisher={#MyAppPublisher} DefaultDirName={#MyAppName} DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes OutputBaseFilename=TrioBar Compression=lzma2/fast SolidCompression=yes LanguageDetectionMethod=locale ShowLanguageDialog=no [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] Source: "Support\2FireBird\Firebirdx32.exe"; DestDir: "{#MyAppName}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: TrioBar\firebirdx32 Source: "Support\2FireBird\Firebirdx64.exe"; DestDir: "{#MyAppName}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: TrioBar\firebirdx64 [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D003010C70D000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874039B010B436C69656E7457696474680352020C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680362020E4578706C6963697448656967687403C2010D506978656C73506572496E636802600A54657874486569676874020D00F10A544E6577427574746F6E0C43616E63656C427574746F6E044C65667403E70103546F70037C010C4578706C696369744C65667403E7010B4578706C69636974546F70037C010000F10A544E6577427574746F6E0A4E657874427574746F6E044C656674038E0103546F70037C010C4578706C696369744C656674038E010B4578706C69636974546F70037C010000F10A544E6577427574746F6E0A4261636B427574746F6E044C65667403350103546F70037C010C4578706C696369744C6566740335010B4578706C69636974546F70037C010000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B055769647468035102064865696768740371010D4578706C6963697457696474680351020E4578706C6963697448656967687403710100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D616765064865696768740372010E4578706C696369744865696768740372010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C3203546F7002770557696474680395010B4578706C69636974546F7002770D4578706C6963697457696474680395010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C310557696474680345010D4578706C696369745769647468034501000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C6963697457696474680351020E4578706C6963697448656967687403710100F10654426576656C06426576656C310557696474680351020648656967687402000756697369626C65080D4578706C6963697457696474680351020E4578706C6963697448656967687402000000F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C6566740220055769647468031102064865696768740315010C4578706C696369744C65667402200D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F044C656674022003546F7003F4000C4578706C696369744C65667402200B4578706C69636974546F7003F4000000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C65667403380103546F7003F4000C4578706C696369744C6566740338010B4578706C69636974546F7003F4000000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680311020D4578706C696369745769647468031102000000F110544E65774E6F7465626F6F6B506167650C50617373776F7264506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10E544E6577537461746963546578740E4469736B53706163654C6162656C044C656674021003546F700300010C4578706C696369744C65667402100B4578706C69636974546F700300010000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C65667403BE0103546F7002510C4578706C696369744C65667403BE010B4578706C69636974546F7002510000F10554456469740744697245646974044C656674020805576964746803A9010C4578706C696369744C65667402080D4578706C69636974576964746803A9010000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C044C656674022C0C4578706C696369744C656674022C0000F10E544E6577537461746963546578740E53656C6563744469724C6162656C044C65667402340C4578706C696369744C6566740234000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10E544E65775374617469635465787418436F6D706F6E656E74734469736B53706163654C6162656C03546F700300010B4578706C69636974546F700300010000F110544E6577436865636B4C697374426F780E436F6D706F6E656E74734C69737403546F70023A0557696474680309020648656967687403C3000B4578706C69636974546F70023A0D4578706C6963697457696474680309020E4578706C6963697448656967687403C3000000F10C544E6577436F6D626F426F780A5479706573436F6D626F044C65667403080203546F7003120105576964746803B9000A4974656D486569676874020D0756697369626C65080C4578706C696369744C6566740308020B4578706C69636974546F700312010D4578706C69636974576964746803B9000000F10E544E6577537461746963546578741553656C656374436F6D706F6E656E74734C6162656C044C656674020803546F7002080C4578706C696369744C65667402080B4578706C69636974546F700208000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F7570506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F110544E6577436865636B4C697374426F78095461736B734C6973740557696474680311020648656967687403F0000D4578706C6963697457696474680311020E4578706C6963697448656967687403F0000000F10E544E6577537461746963546578741053656C6563745461736B734C6162656C044C656674021803546F7002080C4578706C696369744C65667402180B4578706C69636974546F700208000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F108544E65774D656D6F0952656164794D656D6F0557696474680311020648656967687403FD000D4578706C6963697457696474680311020E4578706C6963697448656967687403FD000000F10E544E6577537461746963546578740A52656164794C6162656C03546F7002080B4578706C69636974546F700208000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10E544E6577537461746963546578740D46696C656E616D654C6162656C044C656674020803546F7002180C4578706C696369744C65667402080B4578706C69636974546F7002180000F10E544E6577537461746963546578740B5374617475734C6162656C044C656674020803546F7002080C4578706C696369744C65667402080B4578706C69636974546F7002080000F10F544E657750726F67726573734261720D50726F677265737347617567650557696474680311020D4578706C69636974576964746803110200000000F1065450616E656C094D61696E50616E656C0557696474680351020D4578706C69636974576964746803510200F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C65667403180203546F7002000C4578706C696369744C6566740318020B4578706C69636974546F70020000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C6963697457696474680351020E4578706C6963697448656967687403710100F10C544269746D6170496D6167651257697A6172644269746D6170496D61676532064865696768740372010E4578706C696369744865696768740372010000F10F544E6577526164696F427574746F6E074E6F526164696F03546F7003E1000B4578706C69636974546F7003E1000000F10F544E6577526164696F427574746F6E08596573526164696F03546F7003CB000B4578706C69636974546F7003CB000000000000 [Components] Name: "TrioBar"; Description: "TrioBar Programs"; Flags: exclusive Name: "TrioBar\firebirdx32"; Description: "Firebird x32"; ExtraDiskSpaceRequired: 1; Types: full; Flags: exclusive disablenouninstallwarning Name: "TrioBar\firebirdx64"; Description: "Firebird x64"; ExtraDiskSpaceRequired: 1; Types: full; Flags: exclusive disablenouninstallwarning [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. procedure RedesignWizardForm; begin with WizardForm do begin AutoScroll := False; ClientHeight := ScaleY(411); ClientWidth := ScaleX(594); end; with WizardForm.CancelButton do begin Left := ScaleX(487); Top := ScaleY(380); end; with WizardForm.NextButton do begin Left := ScaleX(398); Top := ScaleY(380); end; with WizardForm.BackButton do begin Left := ScaleX(309); Top := ScaleY(380); end; with WizardForm.OuterNotebook do begin Width := ScaleX(593); Height := ScaleY(369); end; with WizardForm.WizardBitmapImage do begin Height := ScaleY(370); end; with WizardForm.WelcomeLabel2 do begin Top := ScaleY(119); Width := ScaleX(405); end; with WizardForm.WelcomeLabel1 do begin Width := ScaleX(325); end; with WizardForm.Bevel1 do begin Width := ScaleX(593); Height := ScaleY(0); Visible := False; end; with WizardForm.InnerNotebook do begin Left := ScaleX(32); Width := ScaleX(529); Height := ScaleY(277); end; with WizardForm.LicenseNotAcceptedRadio do begin Left := ScaleX(32); Top := ScaleY(244); end; with WizardForm.LicenseAcceptedRadio do begin Left := ScaleX(312); Top := ScaleY(244); end; with WizardForm.LicenseMemo do begin Width := ScaleX(529); end; with WizardForm.DiskSpaceLabel do begin Left := ScaleX(16); Top := ScaleY(256); end; with WizardForm.DirBrowseButton do begin Left := ScaleX(446); Top := ScaleY(81); end; with WizardForm.DirEdit do begin Left := ScaleX(8); Width := ScaleX(425); end; with WizardForm.SelectDirBrowseLabel do begin Left := ScaleX(44); end; with WizardForm.SelectDirLabel do begin Left := ScaleX(52); end; with WizardForm.ComponentsDiskSpaceLabel do begin Top := ScaleY(256); end; with WizardForm.ComponentsList do begin Top := ScaleY(58); Width := ScaleX(521); Height := ScaleY(195); end; with WizardForm.TypesCombo do begin Left := ScaleX(520); Top := ScaleY(274); Width := ScaleX(185); Visible := False; end; with WizardForm.SelectComponentsLabel do begin Left := ScaleX(8); Top := ScaleY(8); end; with WizardForm.TasksList do begin Width := ScaleX(529); Height := ScaleY(240); end; with WizardForm.SelectTasksLabel do begin Left := ScaleX(24); Top := ScaleY(8); end; with WizardForm.ReadyMemo do begin Width := ScaleX(529); Height := ScaleY(253); end; with WizardForm.ReadyLabel do begin Top := ScaleY(8); end; with WizardForm.FilenameLabel do begin Left := ScaleX(8); Top := ScaleY(24); end; with WizardForm.StatusLabel do begin Left := ScaleX(8); Top := ScaleY(8); end; with WizardForm.ProgressGauge do begin Width := ScaleX(529); end; with WizardForm.MainPanel do begin Width := ScaleX(593); end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(536); Top := ScaleY(0); end; with WizardForm.WizardBitmapImage2 do begin Height := ScaleY(370); end; with WizardForm.NoRadio do begin Top := ScaleY(225); end; with WizardForm.YesRadio do begin Top := ScaleY(203); end; { ReservationBegin } // This part is for you. Add your specialized code here. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure InitializeWizard(); begin RedesignWizardForm; end; Procedure Firebirdx32(CurStep: TSetupStep); var ResCode: Integer; begin if IsComponentSelected('TrioBar\firebirdx32') then Exec('{#MyAppName}\Firebirdx32.exe', '/SILENT /SUPPRESSMSGBOXES', '', SW_HIDE, ewWaitUntilTerminated, ResCode); end; Procedure Firebirdx64(CurStep: TSetupStep); var ResCode: Integer; begin if IsComponentSelected('TrioBar\firebirdx64') then Exec('{#MyAppName}\Firebirdx64.exe', '/SILENT /SUPPRESSMSGBOXES', '', SW_HIDE, ewWaitUntilTerminated, ResCode); end; Procedure CurStepChanged(CurStep: TSetupStep); begin Firebirdx32(CurStep); Firebirdx64(CurStep); end; Triobar.7z Edited February 15, 2016 by asterix93 @ Quote Link to comment Short link Share on other sites More sharing options...
wotunion Posted February 17, 2016 Share Posted February 17, 2016 Pamaghite pajalusta gde u menea ashibca posle pervoi ustanofke on ustanovit isio 2 raza ne znaiu pacemu? #define MyAppName "TrioBar" #define MyAppVersion "1.0" #define MyAppPublisher "TrioBar" #define MyAppExeName "TrioBar.exe" [Setup] AppId={{A9EB1543-7D4B-4179-8F3A-8749846C8935} AppName={#MyAppName} AppVersion={#MyAppVersion} AppPublisher={#MyAppPublisher} DefaultDirName={#MyAppName} DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes OutputBaseFilename=TrioBar Compression=lzma2/fast SolidCompression=yes LanguageDetectionMethod=locale ShowLanguageDialog=no [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] Source: "Support\2FireBird\Firebirdx32.exe"; DestDir: "{#MyAppName}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: TrioBar\firebirdx32 Source: "Support\2FireBird\Firebirdx64.exe"; DestDir: "{#MyAppName}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: TrioBar\firebirdx64 [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D003010C70D000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874039B010B436C69656E7457696474680352020C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680362020E4578706C6963697448656967687403C2010D506978656C73506572496E636802600A54657874486569676874020D00F10A544E6577427574746F6E0C43616E63656C427574746F6E044C65667403E70103546F70037C010C4578706C696369744C65667403E7010B4578706C69636974546F70037C010000F10A544E6577427574746F6E0A4E657874427574746F6E044C656674038E0103546F70037C010C4578706C696369744C656674038E010B4578706C69636974546F70037C010000F10A544E6577427574746F6E0A4261636B427574746F6E044C65667403350103546F70037C010C4578706C696369744C6566740335010B4578706C69636974546F70037C010000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B055769647468035102064865696768740371010D4578706C6963697457696474680351020E4578706C6963697448656967687403710100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D616765064865696768740372010E4578706C696369744865696768740372010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C3203546F7002770557696474680395010B4578706C69636974546F7002770D4578706C6963697457696474680395010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C310557696474680345010D4578706C696369745769647468034501000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C6963697457696474680351020E4578706C6963697448656967687403710100F10654426576656C06426576656C310557696474680351020648656967687402000756697369626C65080D4578706C6963697457696474680351020E4578706C6963697448656967687402000000F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C6566740220055769647468031102064865696768740315010C4578706C696369744C65667402200D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F044C656674022003546F7003F4000C4578706C696369744C65667402200B4578706C69636974546F7003F4000000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C65667403380103546F7003F4000C4578706C696369744C6566740338010B4578706C69636974546F7003F4000000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680311020D4578706C696369745769647468031102000000F110544E65774E6F7465626F6F6B506167650C50617373776F7264506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10E544E6577537461746963546578740E4469736B53706163654C6162656C044C656674021003546F700300010C4578706C696369744C65667402100B4578706C69636974546F700300010000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C65667403BE0103546F7002510C4578706C696369744C65667403BE010B4578706C69636974546F7002510000F10554456469740744697245646974044C656674020805576964746803A9010C4578706C696369744C65667402080D4578706C69636974576964746803A9010000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C044C656674022C0C4578706C696369744C656674022C0000F10E544E6577537461746963546578740E53656C6563744469724C6162656C044C65667402340C4578706C696369744C6566740234000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10E544E65775374617469635465787418436F6D706F6E656E74734469736B53706163654C6162656C03546F700300010B4578706C69636974546F700300010000F110544E6577436865636B4C697374426F780E436F6D706F6E656E74734C69737403546F70023A0557696474680309020648656967687403C3000B4578706C69636974546F70023A0D4578706C6963697457696474680309020E4578706C6963697448656967687403C3000000F10C544E6577436F6D626F426F780A5479706573436F6D626F044C65667403080203546F7003120105576964746803B9000A4974656D486569676874020D0756697369626C65080C4578706C696369744C6566740308020B4578706C69636974546F700312010D4578706C69636974576964746803B9000000F10E544E6577537461746963546578741553656C656374436F6D706F6E656E74734C6162656C044C656674020803546F7002080C4578706C696369744C65667402080B4578706C69636974546F700208000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F7570506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F110544E6577436865636B4C697374426F78095461736B734C6973740557696474680311020648656967687403F0000D4578706C6963697457696474680311020E4578706C6963697448656967687403F0000000F10E544E6577537461746963546578741053656C6563745461736B734C6162656C044C656674021803546F7002080C4578706C696369744C65667402180B4578706C69636974546F700208000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F108544E65774D656D6F0952656164794D656D6F0557696474680311020648656967687403FD000D4578706C6963697457696474680311020E4578706C6963697448656967687403FD000000F10E544E6577537461746963546578740A52656164794C6162656C03546F7002080B4578706C69636974546F700208000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C6963697457696474680311020E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C6963697457696474680311020E4578706C6963697448656967687403150100F10E544E6577537461746963546578740D46696C656E616D654C6162656C044C656674020803546F7002180C4578706C696369744C65667402080B4578706C69636974546F7002180000F10E544E6577537461746963546578740B5374617475734C6162656C044C656674020803546F7002080C4578706C696369744C65667402080B4578706C69636974546F7002080000F10F544E657750726F67726573734261720D50726F677265737347617567650557696474680311020D4578706C69636974576964746803110200000000F1065450616E656C094D61696E50616E656C0557696474680351020D4578706C69636974576964746803510200F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C65667403180203546F7002000C4578706C696369744C6566740318020B4578706C69636974546F70020000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C6963697457696474680351020E4578706C6963697448656967687403710100F10C544269746D6170496D6167651257697A6172644269746D6170496D61676532064865696768740372010E4578706C696369744865696768740372010000F10F544E6577526164696F427574746F6E074E6F526164696F03546F7003E1000B4578706C69636974546F7003E1000000F10F544E6577526164696F427574746F6E08596573526164696F03546F7003CB000B4578706C69636974546F7003CB000000000000 [Components] Name: "TrioBar"; Description: "TrioBar Programs"; Flags: exclusive Name: "TrioBar\firebirdx32"; Description: "Firebird x32"; ExtraDiskSpaceRequired: 1; Types: full; Flags: exclusive disablenouninstallwarning Name: "TrioBar\firebirdx64"; Description: "Firebird x64"; ExtraDiskSpaceRequired: 1; Types: full; Flags: exclusive disablenouninstallwarning [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. procedure RedesignWizardForm; begin with WizardForm do begin AutoScroll := False; ClientHeight := ScaleY(411); ClientWidth := ScaleX(594); end; with WizardForm.CancelButton do begin Left := ScaleX(487); Top := ScaleY(380); end; with WizardForm.NextButton do begin Left := ScaleX(398); Top := ScaleY(380); end; with WizardForm.BackButton do begin Left := ScaleX(309); Top := ScaleY(380); end; with WizardForm.OuterNotebook do begin Width := ScaleX(593); Height := ScaleY(369); end; with WizardForm.WizardBitmapImage do begin Height := ScaleY(370); end; with WizardForm.WelcomeLabel2 do begin Top := ScaleY(119); Width := ScaleX(405); end; with WizardForm.WelcomeLabel1 do begin Width := ScaleX(325); end; with WizardForm.Bevel1 do begin Width := ScaleX(593); Height := ScaleY(0); Visible := False; end; with WizardForm.InnerNotebook do begin Left := ScaleX(32); Width := ScaleX(529); Height := ScaleY(277); end; with WizardForm.LicenseNotAcceptedRadio do begin Left := ScaleX(32); Top := ScaleY(244); end; with WizardForm.LicenseAcceptedRadio do begin Left := ScaleX(312); Top := ScaleY(244); end; with WizardForm.LicenseMemo do begin Width := ScaleX(529); end; with WizardForm.DiskSpaceLabel do begin Left := ScaleX(16); Top := ScaleY(256); end; with WizardForm.DirBrowseButton do begin Left := ScaleX(446); Top := ScaleY(81); end; with WizardForm.DirEdit do begin Left := ScaleX(8); Width := ScaleX(425); end; with WizardForm.SelectDirBrowseLabel do begin Left := ScaleX(44); end; with WizardForm.SelectDirLabel do begin Left := ScaleX(52); end; with WizardForm.ComponentsDiskSpaceLabel do begin Top := ScaleY(256); end; with WizardForm.ComponentsList do begin Top := ScaleY(58); Width := ScaleX(521); Height := ScaleY(195); end; with WizardForm.TypesCombo do begin Left := ScaleX(520); Top := ScaleY(274); Width := ScaleX(185); Visible := False; end; with WizardForm.SelectComponentsLabel do begin Left := ScaleX(8); Top := ScaleY(8); end; with WizardForm.TasksList do begin Width := ScaleX(529); Height := ScaleY(240); end; with WizardForm.SelectTasksLabel do begin Left := ScaleX(24); Top := ScaleY(8); end; with WizardForm.ReadyMemo do begin Width := ScaleX(529); Height := ScaleY(253); end; with WizardForm.ReadyLabel do begin Top := ScaleY(8); end; with WizardForm.FilenameLabel do begin Left := ScaleX(8); Top := ScaleY(24); end; with WizardForm.StatusLabel do begin Left := ScaleX(8); Top := ScaleY(8); end; with WizardForm.ProgressGauge do begin Width := ScaleX(529); end; with WizardForm.MainPanel do begin Width := ScaleX(593); end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(536); Top := ScaleY(0); end; with WizardForm.WizardBitmapImage2 do begin Height := ScaleY(370); end; with WizardForm.NoRadio do begin Top := ScaleY(225); end; with WizardForm.YesRadio do begin Top := ScaleY(203); end; { ReservationBegin } // This part is for you. Add your specialized code here. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure InitializeWizard(); begin RedesignWizardForm; end; Procedure Firebirdx32(CurStep: TSetupStep); var ResCode: Integer; begin if IsComponentSelected('TrioBar\firebirdx32') then Exec('{#MyAppName}\Firebirdx32.exe', '/SILENT /SUPPRESSMSGBOXES', '', SW_HIDE, ewWaitUntilTerminated, ResCode); end; Procedure Firebirdx64(CurStep: TSetupStep); var ResCode: Integer; begin if IsComponentSelected('TrioBar\firebirdx64') then Exec('{#MyAppName}\Firebirdx64.exe', '/SILENT /SUPPRESSMSGBOXES', '', SW_HIDE, ewWaitUntilTerminated, ResCode); end; Procedure CurStepChanged(CurStep: TSetupStep); begin Firebirdx32(CurStep); Firebirdx64(CurStep); end; Нужно убрать из секции файлов .exe от установщика БД - они же ведь оттуда не устанавливаются. Как компонент, установка БД должна быть 'пустышкой' для галочки, ведь реально установка идет через процедуру с Exec. @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 17, 2016 Share Posted February 17, 2016 Нужно убрать из секции файлов .exe от установщика БД - они же ведь оттуда не устанавливаются. Как компонент, установка БД должна быть 'пустышкой' для галочки, ведь реально установка идет через процедуру с Exec. ea zdelal pa drugomu a kak reghistriruita .dll @ Quote Link to comment Short link Share on other sites More sharing options...
wotunion Posted February 18, 2016 Share Posted February 18, 2016 Regsvr32 @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 18, 2016 Share Posted February 18, 2016 (edited) Regsvr32 tak pravilna Filename: "Datecs550.dll"; Parameters: "/Regsvr32 "; Components: DLL\REGDLL; Edited February 18, 2016 by asterix93 @ Quote Link to comment Short link Share on other sites More sharing options...
wotunion Posted February 18, 2016 Share Posted February 18, 2016 tak pravilna Filename: "Datecs550.dll"; Parameters: "/Regsvr32 "; Components: DLL\REGDLL; Нет. Regsvr32 это утилита. @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted February 21, 2016 Share Posted February 21, 2016 У человека даже Гуглом воспользоваться мозгов не хватает... @ Quote Link to comment Short link Share on other sites More sharing options...
soloviyko Posted February 21, 2016 Share Posted February 21, 2016 (edited) Всём здравствуйте. Вопрос может чуток не по теме: Сбор статистики об установленых модах. Так как с Инно такого провернуть не получилось, пришлось использовать Питон. Идея urllib>mysql работала нормально но парсить логи и количество подключений в секунду нагружало сервер. Так вот вопрос на загрузку. Есть ли какие-то идеи как это дело реализовать по другому или хотя бы оптимизировать. Edited February 21, 2016 by soloviyko @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 21, 2016 Share Posted February 21, 2016 (edited) Всём здравствуйте. Вопрос может чуток не по теме: Сбор статистики об установленых модах. Так как с Инно такого провернуть не получилось, пришлось использовать Питон. Идея urllib>mysql работала нормально но парсить логи и количество подключений в секунду нагружало сервер. Так вот вопрос на загрузку. Есть ли какие-то идеи как это дело реализовать по другому или хотя бы оптимизировать. smtri zdesi esti inetutils i uvidis ea kakta tak dumal isio ne delal Edited February 21, 2016 by asterix93 @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted February 21, 2016 Share Posted February 21, 2016 (edited) del Edited February 23, 2016 by Ekspoint @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 22, 2016 Share Posted February 22, 2016 privet vsem ea ispolisuiu dlea compiliravanie vot tak kak u Kotyarko_O Compression=lzma2/max SolidCompression=yes LZMAUseSeparateProcess=yes LZMADictionarySize=262144 LZMABlockSize=262144 LZMANumBlockThreads=1 InternalCompressLevel=max At cevo mojit biti dolga dumaiet paca pakajit fatagrafii componentov? @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted February 22, 2016 Share Posted February 22, 2016 Использовать флаг nocompression на этих файлах либо понижать степень сжатия. @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 23, 2016 Share Posted February 23, 2016 Нет. Regsvr32 это утилита. Безымянный2.png Spasiba zdelal s tvaei pomasi spasiba isio ras @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 28, 2016 Share Posted February 28, 2016 (edited) Privet vsem kak delati ata kod stobi rabotal shifraval paroli no ne rabotaet??? [Setup] AppName=My Program AppVersion=1.5 DefaultDirName=My Program OutputDir=. [Code] var Passwords: array of string; function CheckPassword(Password: String): Boolean; var Index: Integer; SHA1: string; begin if GetArrayLength(Passwords) = 0 then begin Log('Initializing hashes'); SetArrayLength(Passwords, 5); Passwords[0] := 'df65784979efcda967c88de7098a5a106101064e'; Passwords[1] := 'b78baf5db4b1498ed075b8e6accd0b5ff51e20ec'; Passwords[2] := 'aaf70585b9a2662c911392b7573c739cecea0e56'; Passwords[3] := '3ab4222e2d0000012e6c7381437178fab398e8aa'; Passwords[4] := '5473ccc879a8167a6a77b387a916f7c9ca05894f'; end; Index := 0; SHA1 := GetSHA1OfUnicodeString(Password); for Index := 0 to GetArrayLength(Passwords) - 1 do begin if SHA1 = Passwords[Index] then begin Log(Format('Password matches hash %d', [Index])); Result := True; Exit; end; end; Log(Format('Password matches nothing our of %d hashes', [GetArrayLength(Passwords)])); Result := False; end; Edited February 28, 2016 by asterix93 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted February 28, 2016 Share Posted February 28, 2016 kak delati ata kod stobi rabotal shifraval paroli no ne rabotaet? Этот код не шифрует пароли, просто сравнивает хэш введённого с хэшами допустимых.И, вообще-то, код отрабатывает нормально. @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted February 28, 2016 Share Posted February 28, 2016 Этот код не шифрует пароли, просто сравнивает хэш введённого с хэшами допустимых. И, вообще-то, код отрабатывает нормально. net ea shifraval paroli v sha1 i cagda stavliu paroli on scajit sto nevernii @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted February 28, 2016 Share Posted February 28, 2016 net ea shifraval paroli v sha1 i cagda stavliu paroli on scajit sto nevernii Код рабочий. Ищи ошибку в своих действиях. @ 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.