Скрипты Inno Setup. Помощь и советы [часть 7]

Nordek · Конфигурация компьютера

Цитата White Rabbit:

Не понял... »

Совместно с [Languages] используйте [CustomMessages], в коде вглядитесь в Caption.

Пример:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Languages]
Name: default; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
default.text=Text in English
russian.text=Текст на Русском

[Code]
var
  Text: TNewStaticText;

procedure InitializeWizard();
begin
  Text := TNewStaticText.Create(WizardForm);
  with Text do
  begin
    Parent := WizardForm;
    Caption := CustomMessage('text');
    Left := ScaleX(24);
    Top := ScaleY(336);
    AutoSize := True;
  end;
end;

sergey3695 · Отправлено: **08:56, 27-04-2014** | #**512**

habib2302,
элементарно

Код:

if (CurStep = ssPostInstall) and IsTaskSelected('taskbaricon') then 
begin
if iswin64 then
PinToTaskbarWin7(ExpandConstant('{app}\ezcd64.exe'))
else
PinToTaskbarWin7(ExpandConstant('{app}\ezcd32.exe'));
end;

diman_21Ru · Отправлено: **09:45, 27-04-2014** | #**513**

White Rabbit, а зачем его в код засовывать пиши отдельно

White Rabbit · Конфигурация компьютера

Цитата diman_21Ru:

а зачем его в код засовывать пиши отдельно »

Может и не нужно. Просто в коде сообщения выдаются на экран в отдельном окошке "MsgBox". По умолчанию просто набран текст на русском, а я хотел бы мультиязычный вариант, вот и задумался, как это реализовать.

Shift85 · Конфигурация компьютера

Цитата White Rabbit:

мультиязычный вариант »

White Rabbit,Пример:

Nordek · Конфигурация компьютера

White Rabbit, Я уже дал пример.

Вот ещё пример:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Languages]
Name: default; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
default.MyText=Hello! %nYour text in English %nPress «OK» to continue
russian.MyText=Здравствуйте! %nВаш текст на Русском %nДля продолжения нажмите «ОК»

[Code]
Function InitializeSetup: Boolean;
begin
if MsgBox(CustomMessage('MyText'), mbError, MB_OKCANCEL) = idOk then result := true else result := false;
end;

diman_21Ru, Какая вам разница? Его установщик, пусть что хочет то и делает - вас это меньше всего должно волновать.

Shift85, Код такой большой что сюда не влазит?
Я к тому, что через неделю или месяц ссылка исчезнет - а код может кому нибудь пригодиться.