[Антон_Мураткин@vk]

Вот ещё одна проблема с кнопками после установки они появляются так же в центре где у них интересно менять положения кнопок

[Shift85]

Как сделать чтобы полностью инсталлятор менялся, а то оно меняется только на одной странице? »

Dodakaedr, В коде нужно прописывать.

Код:

procedure ChangeLang();
begin
  WizardForm.BackButton.Caption:= CustomMessage(lang+'ButtonBack');
  WizardForm.NextButton.Caption:= CustomMessage(lang+'ButtonNext');
  WizardForm.CancelButton.Caption:= CustomMessage(lang+'ButtonCancel');
  WizardForm.Caption:= FmtMessage(CustomMessage(lang+'SetupWindowTitle'), ['{#SetupSetting('AppName')}']);
  WizardForm.WelcomeLabel1.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel1'), ['{#SetupSetting('AppName')}']);
  WizardForm.WelcomeLabel2.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel2'), ['{#SetupSetting('AppName')}', '{#SetupSetting('AppVersion')}']);
end;

[Dodakaedr]

В коде нужно прописывать. »

В вашем примере так и прописано, я решил для начала изменить кнопки (русский по умолчанию) и в итоге получилось что на первой странице при нажатии на кнопку смены языка надписи меняются на английский, перехожу на следующую страницу опять русские надписи... вот такая проблема.

[Антон_Мураткин@vk]

Shift85, Подскажи пожалуйста если знаешь где. Во время установки чего либо кнопка отменить находится по середине. Так-же кнопка завершить тоже по середине. Где их менять? Всё вроде облазил все скрипты которые есть в этом инсталляторе.

[Shift85]

Во время установки чего либо кнопка отменить находится по середине. Так-же кнопка завершить тоже по середине »

Антон_Мураткин@vk, Координаты поменяй они одинаковые.

Код:

hBackBtn:=BtnCreate(WizardForm.Handle,203,277,77,23,ExpandConstant('{tmp}\button.png'),18,False);
hCancelBtn:=BtnCreate(WizardForm.Handle,203,277,77,23,ExpandConstant('{tmp}\button.png'),18,False);

перехожу на следующую страницу опять русские надписи... »

Dodakaedr, Давай скрипт погляжу.

[Dodakaedr]

Давай скрипт погляжу. »

Это с вашего примера:

читать дальше »

Код:

[setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}
ShowLanguageDialog=auto

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
Name: eng; MessagesFile: compiler:Default.isl

[CustomMessages]
; Русский
rusButtonBack=< &Назад
rusButtonNext=&Далее >
rusButtonCancel=Отмена
rusSetupWindowTitle=Установка — %1

; English
engButtonBack=< &Back
engButtonNext=&Next >
engButtonCancel=Cancel
engSetupWindowTitle=Setup — %1

[ Code]
var
  lang: String;
  langBtn: TButton;

procedure ChangeLang();
begin
  WizardForm.BackButton.Caption:= CustomMessage(lang+'ButtonBack');
  WizardForm.NextButton.Caption:= CustomMessage(lang+'ButtonNext');
  WizardForm.CancelButton.Caption:= CustomMessage(lang+'ButtonCancel');
  WizardForm.Caption:= FmtMessage(CustomMessage(lang+'SetupWindowTitle'), ['{#SetupSetting('AppName')}']);
  end;

procedure LangBtnClick(Sender: TObject);
begin
  if lang='rus' then begin
    lang:= 'eng';
    langBtn.Caption:= 'рус';
  end else begin
    lang:= 'rus';
    langBtn.Caption:= 'eng';
  end;
  ChangeLang();
end;

procedure InitializeWizard;
begin
  langBtn:= TButton.Create(WizardForm);
  with langBtn do begin
    SetBounds(10,WizardForm.CancelButton.Top,30,WizardForm.CancelButton.Height)
    OnClick:= @LangBtnClick;
    Parent:= WizardForm;
  end;

  if ActiveLanguage='rus' then begin
    lang:= 'rus';
    langBtn.Caption:= 'eng';
  end else begin
    lang:= 'eng';
    langBtn.Caption:= 'рус';
  end;
end;

Напоминаю: я покамись тестирую кнопки.

Shift85, И обратите внимание что WizardForm.Caption соответствует выбранному языку, а кнопки нет.

[Shift85]

Dodakaedr, А так у меня на Юникоде работает.

[Dodakaedr]

А так у меня на Юникоде работает. »

У меня ни на уникоде ни в анси не работает...

[Shift85]

У меня ни на уникоде ни в анси не работает »

Dodakaedr, Значит не судьба придеться юзать оконный режим вот.

[Caratel]

Как из одного архива распаковывать только нужный компонент?
Например папка ru, en, ru\en находится в архиве data1

ru - полностью русский является компонентом 1
en - полностью английский является компонентом 2
ru\en - является компонентом 3


Не могли бы вы указать, где и как именно это прописывать?

#ifdef Data1
if not ISExec( 0, 0, 0, ExpandConstant('{tmp}\unarc.exe'), ExpandConstant('x -o+ -cfg"{tmp}\arc.ini" -w"{app}" -p"password" -dp"{app}" "{src}\data1.bin"'), ExpandConstant('{tmp}'), '...',false) then break;
#endif

Или в if not ISExec это нельзя реализовать? (Как понял из справки за это отвечает ExtractedPath, а в этой функции её нету)


Нужно именно через if not ISExec

Если нельзя реализовать, то как это сделать через if not ISArcExtract, используя unarc.exe и arc.ini?