Как использовать константы из языкового файла

L-e-o-N · 18 Фев 2021

Возможно использовать константы, определённые в файле compiler:default.isl или нужно все константы определять в CustomMessage?
Пробовал так, но не работает:
{cm:WizardSelectComponents}

YURSHAT · 19 Фев 2021

Код:

SetupMessage(msgWizardSelectComponents)

L-e-o-N · 19 Фев 2021

YURSHAT написал(а):
Код:

SetupMessage(msgWizardSelectComponents)

А как вставить тоже сообщение, например, в описание компонента?

sergey3695 · 19 Фев 2021

@L-e-o-N,

code_language.pascal:

[Components]
Name: text; Description: {code:Descriptiontext1}; Types: full; Flags: fixed

[Code]
function Descriptiontext1(Param: string): string;
begin
  result:= SetupMessage(msgWizardSelectComponents);
end;

Crachlow · 9 Мар 2021

Кто может подсказать как с помощью GetUILanguage и ActiveLanguage заставить инсталлятор, для русскоязычной группы как Беларусь, Украина, Казахстан и т.д., без запроса "Выберите язык установки", автоматом делать язык инсталлятора русским, для всех других Location английский?

Crachlow · 9 Мар 2021

Что то типа if GetUILanguage = <number> then ???

vint56 · 9 Мар 2021

function InitializeSetup: Boolean;
begin
if GetUILanguage = $0409 then
SuppressibleMsgBox('English', mbInformation, MB_OK, MB_OK);
if GetUILanguage = $0419 then
SuppressibleMsgBox('Русский', mbInformation, MB_OK, MB_OK);
Result := True;
end;

Crachlow · 9 Мар 2021

Это понятно Это то, да не то. if GetUILanguage = $0419, if GetUILanguage = $0423 и т.д. then то применить Russian.isl ко всей форме

SBalykov · 9 Мар 2021

Код:

[Setup]
AppName               =My appName
DefaultDirName        ={pf}\My appName
ShowLanguageDialog    =no
UsePreviousLanguage   =no
VersionInfoVersion    =1.0.0.0

[Languages]
// Подключение файлов языков установки
//=============================================================
Name: eng; MessagesFile: compiler:Languages\English.isl
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[code_]

function InitializeSetup: Boolean;
begin
// Язык системы 
//=============================================================
if GetUILanguage = $0419 or GetUILanguage = $0422 or GetUILanguage = $0423 then
 ActiveLanguage = 'rus' else
 ActiveLanguage = 'eng';
  Result:= True;
end;

vint56 · 9 Мар 2021

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

[Files]
Source: "compiler:Languages\Russian.isl"; DestDir: {tmp}; Flags: dontcopy;
Source: "compiler:Languages\English.isl"; DestDir: {tmp}; Flags: dontcopy

Код:

type
LCID = LongInt;

var
LangFile: String;

function GetSystemDefaultLCID() : LCID; external 'GetSystemDefaultLCID@kernel32.dll stdcall';
function InitializeSetup:boolean;
var
  lngF : String;
begin
  if GetSystemDefaultLCID = 1049 then
    lngF := 'Russian.isl'
   else
    lngF := 'English.isl';

  LangFile:= ExpandConstant('{tmp}\'+lngF);
  if not FileExists(LangFile) then ExtractTemporaryFile(lngF);
  Result:=True;
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    WelcomeLabel1.Caption:= GetIniString('Messages', 'WelcomeLabel1', '', LangFile); // и так для каждого статика и лейбела инсталла
    WelcomeLabel2.Caption:= GetIniString('Messages', 'WelcomeLabel2', '', LangFile); // и так для каждого статика и лейбела инсталла
  end;
end;
[/SPOILER]

Crachlow · 9 Мар 2021

На ActiveLanguage = 'rus' выдает внутренняя ошибка. А вообще какое стоковое значение возвращает ActiveLanguage?

Crachlow · 9 Мар 2021

vint56 я так понимаю переписывать весь CustomMessages+ххх.isl,

L-e-o-N · 9 Мар 2021

vint56 написал(а):

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

[Files]
Source: "compiler:Languages\Russian.isl"; DestDir: {tmp}; Flags: dontcopy;
Source: "compiler:Languages\English.isl"; DestDir: {tmp}; Flags: dontcopy

Код:

type
LCID = LongInt;

var
LangFile: String;

function GetSystemDefaultLCID() : LCID; external 'GetSystemDefaultLCID@kernel32.dll stdcall';
function InitializeSetup:boolean;
var
  lngF : String;
begin
  if GetSystemDefaultLCID = 1049 then
    lngF := 'Russian.isl'
   else
    lngF := 'English.isl';

  LangFile:= ExpandConstant('{tmp}\'+lngF);
  if not FileExists(LangFile) then ExtractTemporaryFile(lngF);
  Result:=True;
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    WelcomeLabel1.Caption:= GetIniString('Messages', 'WelcomeLabel1', '', LangFile); // и так для каждого статика и лейбела инсталла
    WelcomeLabel2.Caption:= GetIniString('Messages', 'WelcomeLabel2', '', LangFile); // и так для каждого статика и лейбела инсталла
  end;
end;
[/SPOILER]

Данный пример имеет один недостаток - каждый раз приходится вызывать GetIniString и передавать множество параметров. Улучшить его можно так:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
[Files]
Source: "compiler:Languages\Russian.isl"; DestDir: {tmp}; Flags: dontcopy;
Source: "compiler:Languages\English.isl; DestDir: {tmp}; Flags: dontcopy
[code]
type
LCID = LongInt;
var
LangFile: String;
function GetSystemDefaultLCID() : LCID; external 'GetSystemDefaultLCID@kernel32.dll stdcall';
function GetMessage(Param: string): string;
begin
  result:= GetIniString('Messages', Param, '', LangFile);
end;
function InitializeSetup:boolean;
var
  lngF : String;
begin
  if GetSystemDefaultLCID = 1049 then
    lngF := 'Russian.isl'
   else
    lngF := 'English.isl';
  LangFile:= ExpandConstant('{tmp}\'+lngF);
  if not FileExists(LangFile) then ExtractTemporaryFile(lngF);
  Result:=True;
end;
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    WelcomeLabel1.Caption:= GetMessage('WelcomeLabel1'); // и так для каждого статика и лейбела инсталла
    WelcomeLabel2.Caption:= ExpandConstant('{code:GetMessage|WelcomeLabel2}'); // или так
  end;
end;

Crachlow · 9 Мар 2021

А нельзя как то так:
[Languages]
Name: eng; MessagesFile: compiler:Languages\English.isl
Name: rus; MessagesFile: compiler:Languages\Russian.isl
Name: ukr; MessagesFile: compiler:Languages\Russian.isl
........................
repeat
case ActiveLanguage of
'ukr': ChangeLanguage('Russian');
'eng': ChangeLanguage('English');
'rus': ChangeLanguage('Russian');
end;

Crachlow · 9 Мар 2021

А нельзя передать значение lngF в InitializeLanguageDialog() без показа самого окна?

Crachlow · 9 Мар 2021

Crachlow написал(а):
А нельзя как то так:
[Languages]
Name: eng; MessagesFile: compiler:Languages\English.isl
Name: rus; MessagesFile: compiler:Languages\Russian.isl
Name: ukr; MessagesFile: compiler:Languages\Russian.isl
........................
repeat
case ActiveLanguage of
'ukr': ChangeLanguage('Russian');
'eng': ChangeLanguage('English');
'rus': ChangeLanguage('Russian');
end;

Это не работает

Crachlow · 9 Мар 2021

SBalykov написал(а):

Код:

[Setup]
AppName               =My appName
DefaultDirName        ={pf}\My appName
ShowLanguageDialog    =no
UsePreviousLanguage   =no
VersionInfoVersion    =1.0.0.0

[Languages]
// Подключение файлов языков установки
//=============================================================
Name: eng; MessagesFile: compiler:Languages\English.isl
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[code_]

function InitializeSetup: Boolean;
begin
// Язык системы
//=============================================================
if GetUILanguage = $0419 or GetUILanguage = $0422 or GetUILanguage = $0423 then
ActiveLanguage = 'rus' else
ActiveLanguage = 'eng';
  Result:= True;
end;

Это тоже не работает.

Crachlow · 9 Мар 2021

Привет L-e-o-n. Давно тебя не слышал. А как на счет если переделать ru.isl и en.isl в .iss CustomMessages туда же поместить и подключить как модули из [Code}

L-e-o-N · 9 Мар 2021

Crachlow написал(а):
Привет L-e-o-n. Давно тебя не слышал. А как на счет если переделать ru.isl и en.isl в .iss CustomMessages туда же поместить и подключить как модули из [Code}

Я не большой специалист в in no setup, и не знаю как это сделать

L-e-o-N · 10 Мар 2021

Crachlow написал(а):
А нельзя передать значение lngF в InitializeLanguageDialog() без показа самого окна?

Возможно через WinApi симулировать выбор языка и нажатие кнопки OK, но это очень муторно. Если сделать всё достаточно быстро, то пользователь ничего не заметит (или его можно вообще сделать невидимым).
Для этого нужно создать второй поток, который найдёт окно выбора языка через функцию FindWindow, а затем, через необходимые функции сам установит нужный язык и нажмёт кнопку ОК.

Как использовать константы из языкового файла

Старожил

Тех. админ

Старожил

Ветеран

Старожил

Старожил

Ветеран

Старожил

Старожил

Ветеран

Старожил

Старожил

Старожил

Старожил

Старожил

Старожил

Старожил

Старожил

Старожил

Старожил