Создание инсталляторов для модпаков на базе Inno Setup

asterix93 · February 12, 2016

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

wotunion · February 13, 2016

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

asterix93 · February 15, 2016

Не нужно это делать через компоненты, следует использовать родные ключи установщика БД.

Можно поставить в curstep в postinstall проверку были ли выбран компонент БД (вроде, IsComponentSelected) и установить его с родными ключами через Exec.

da e a delal tac no ne znaiu pacemu on ustanovit evo nescolico raz

Edited February 15, 2016 by asterix93

asterix93 · February 15, 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;

Triobar.7z

Edited February 15, 2016 by asterix93

wotunion · 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.

asterix93 · February 17, 2016

Нужно убрать из секции файлов .exe от установщика БД - они же ведь оттуда не устанавливаются. Как компонент, установка БД должна быть 'пустышкой' для галочки, ведь реально установка идет через процедуру с Exec.

ea zdelal pa drugomu a kak reghistriruita .dll

wotunion · February 18, 2016

Regsvr32

asterix93 · February 18, 2016

Regsvr32

tak pravilna

Filename: "Datecs550.dll"; Parameters: "/Regsvr32 "; Components: DLL\REGDLL;

Edited February 18, 2016 by asterix93

wotunion · February 18, 2016

tak pravilna

Filename: "Datecs550.dll"; Parameters: "/Regsvr32 "; Components: DLL\REGDLL;

Нет.

Regsvr32 это утилита.

AtotIK · February 21, 2016

У человека даже Гуглом воспользоваться мозгов не хватает...

soloviyko · February 21, 2016

Всём здравствуйте. Вопрос может чуток не по теме: Сбор статистики об установленых модах. Так как с Инно такого провернуть не получилось, пришлось использовать Питон. Идея urllib>mysql работала нормально но парсить логи и количество подключений в секунду нагружало сервер. Так вот вопрос на загрузку. Есть ли какие-то идеи как это дело реализовать по другому или хотя бы оптимизировать.

Edited February 21, 2016 by soloviyko

asterix93 · February 21, 2016

Всём здравствуйте. Вопрос может чуток не по теме: Сбор статистики об установленых модах. Так как с Инно такого провернуть не получилось, пришлось использовать Питон. Идея urllib>mysql работала нормально но парсить логи и количество подключений в секунду нагружало сервер. Так вот вопрос на загрузку. Есть ли какие-то идеи как это дело реализовать по другому или хотя бы оптимизировать.

smtri zdesi esti inetutils i uvidis ea kakta tak dumal isio ne delal

Edited February 21, 2016 by asterix93

Ekspoint · February 21, 2016

del

Edited February 23, 2016 by Ekspoint

asterix93 · 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?

AtotIK · February 22, 2016

Использовать флаг nocompression на этих файлах либо понижать степень сжатия.

asterix93 · February 23, 2016

Нет.

Regsvr32 это утилита.

Безымянный2.png

Spasiba zdelal s tvaei pomasi spasiba isio ras

asterix93 · February 28, 2016

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

Kotyarko_O · February 28, 2016

kak delati ata kod stobi rabotal shifraval paroli no ne rabotaet?

Этот код не шифрует пароли, просто сравнивает хэш введённого с хэшами допустимых.
И, вообще-то, код отрабатывает нормально.

asterix93 · February 28, 2016

Этот код не шифрует пароли, просто сравнивает хэш введённого с хэшами допустимых.

И, вообще-то, код отрабатывает нормально.

net ea shifraval paroli v sha1 i cagda stavliu paroli on scajit sto nevernii

Kotyarko_O · February 28, 2016

net ea shifraval paroli v sha1 i cagda stavliu paroli on scajit sto nevernii

Код рабочий.

Ищи ошибку в своих действиях.

Sign In

Создание инсталляторов для модпаков на базе Inno Setup

Recommended Posts

asterix93 9

Share this post

Link to post

Short link

Share on other sites

wotunion 95

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post

Link to post

Short link

Share on other sites

wotunion 95

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post

Link to post

Short link

Share on other sites

wotunion 95

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post

Link to post

Short link

Share on other sites

wotunion 95

Share this post

Link to post

Short link

Share on other sites

AtotIK 580

Share this post

Link to post

Short link

Share on other sites

soloviyko 12

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post

Link to post

Short link

Share on other sites

AtotIK 580

Share this post

Link to post

Short link

Share on other sites

asterix93 9

Share this post