[Alloc]

nik1967, спасибо, все настолько просто) я уже думал программным путём менять через - WizardForm.ComponentsList.Checked[8] := False;
но это не вариант в моем случае

[ENERGES]

как закоментировать эти строки https://s8.hostingkartinok.com/uploa...1bb0ed9794.png чтобы при установке исходила "russian" "english"
скрип с файломи http://rgho.st/8JMZGmxMY

[ZVSRus]

web_form
Вам нужно чтобы при выборе языка Русский что подчёркнуто читалось на русском, а при выборе языка английский читалось на английской? Правильно понял?

[ENERGES]

ZVSRus, да

[ZVSRus]

web_form
У вас в скрипте есть секция [CustomMessages], и многие названия уже переделаны под выбор языка, отображение надписей на русском или английском.

Вобщем должно быть так:

Код:

[Languages]
 Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
 Name: "english"; MessagesFile: "compiler:Languages\English.isl"

[CustomMessages]
 russian.exit=Выход
 english.exit=Exit

[Code___]

 MyCancelButton:=TButton.Create(WizardForm);
 with MyCancelButton do begin
  Parent:=WizardForm;
  Width:=ScaleX(0);
//  Caption:=ExpandConstant('Выход');
  Caption:=ExpandConstant('{cm:exit}'); // должно быть так
  OnClick:=@CancelButtonOnClick;
end;

Остальные записи переделывай также, переводи в онлайн переводчике, редактируй, прописывай в секции [CustomMessages]

russian.здесь название свое=слово на русском
english.здесь название свое=перевод на английский

[ENERGES]

ZVSRus, выдает ошибку при компелятции https://s8.hostingkartinok.com/uploa...8a146863a5.png

[ZVSRus]

web_form
На какой строке ошибка. Сделай скриншот.

[ZVSRus]

web_form

Я же описал как делать, будь более внимательней:

Код:

[CustomMessages]
 russian.InstallationCompleted=Установка завершена успешно. Запуск можно произвести при помощи соответствующей иконки в меню Пуск или на рабочем столе.
 english.InstallationCompleted=The installation completed successfully. A start can be made by using the corresponding icon in the start menu or on the desktop.

[Code__]

procedure Finish;
begin
  Wizard16:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage12.png'),3,220,594,62,True,True);
  Wizard17:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage5.png'),3,215,594,72,True,True);

 LabelFinish := TLabel.Create(WizardForm);
 with LabelFinish do begin
  Left:= 30;
  Top:= 230;
  Width:= 550;
  Height:= 58;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Caption:= ExpandConstant('{cm:InstallationCompleted}');
  Parent:= WizardForm;
 end;
end;

[Nordek]

выдает ошибку при компелятции https://s8.hostingkartinok.com/uploa...8a146863a5.png»

Здесь:

Код:

  Caption:=ExpandConstant('{Установка завершена успешно. Запуск можно произвести при помощи соответствующей иконки в меню Пуск или на Рабочем столе.}');

фигурные скобки удалите.

т.е

Код:

  Caption:=ExpandConstant('Установка завершена успешно. Запуск можно произвести при помощи соответствующей иконки в меню Пуск или на Рабочем столе.');

Или замените это:

Код:

    Caption := 'Установка завершена успешно. Запуск можно произвести при помощи соответствующей иконки в меню Пуск или на Рабочем столе.';

вместо первого.


Если для CustomMessages, то так:

Код:

[CustomMessages]
russian.captionmesscomp=Установка завершена успешно. Запуск можно произвести при помощи соответствующей иконки в меню Пуск или на Рабочем столе.

[Code]
...
  Caption:=ExpandConstant('{cm:captionmesscomp}');

[ENERGES]

ZVSRus,
на всех остальных строк выдает ошибки который закоментировал https://s8.hostingkartinok.com/uploa...1bb0ed9794.png
мне и остальных строк добавить ('{cm:InstallationCompleted}'); или ('{cm:captionmesscomp}');