[Setup] AppName=My Program AppVerName=My Program 1.5 DefaultDirName={pf}\My Program [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Run] Filename: "{app}\MyProg"; Description: "{cm:LaunchProgram, MyProg}"; Flags: nowait postinstall skipifsilent [ Code] var IniCheckBox: TCheckBox; procedure InitializeWizard(); begin IniCheckBox:= TCheckBox.Create(WizardForm); IniCheckBox.Left:= WizardForm.RunList.Left + 4; IniCheckBox.Top:= WizardForm.RunList.Top + 10; IniCheckBox.Width:= WizardForm.RunList.Width; IniCheckBox.Height:= 14 IniCheckBox.Caption:=' Изменить язык интерфейса на русский'; IniCheckBox.Parent:= WizardForm.FinishedPage; end; procedure DeinitializeSetup(); begin if WizardForm.CurPageID = WpFinished then begin if IniCheckBox.Checked then SetIniString('Setting','Language', 'RU',ExpandConstant('{app}\Language.ini')) else SetIniString('Setting','Language', 'EN',ExpandConstant('{app}\Language.ini')) end; end; |