[Respin]

Можно ли как-то обойти окно выбора языка при старте установщика, задав "насильно" устанавливаемый язык? »

Можно как-то "обощить" инсталлер на множество нерусских языков? если система русская - инсталлер выбирал русский язык (что собственно в секции Setup и указано), но если ОС любая кроме русской (китайская, корейская, бразильская etc) - то принудительно выбирался английский язык? естественно без окна выбора языка »

Вариант первый:

Код:

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

[_Code]
type
LCID = LongInt;

function GetSystemDefaultLCID() : LCID; external 'GetSystemDefaultLCID@kernel32.dll stdcall';

procedure InitializeWizard();
begin
with WizardForm.WelcomeLabel1 do begin
if GetSystemDefaultLCID = 1049 then WizardForm.WelcomeLabel1.Caption:= 'По умолчанию' else WizardForm.WelcomeLabel1.Caption:= 'On Default';
end;
end;

Вариант второй:

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
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 InitializeSetup:boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\Russian.isl')) then ExtractTemporaryFile('Russian.isl');
  if not FileExists(ExpandConstant('{tmp}\English.isl')) then ExtractTemporaryFile('English.isl');
  Result:=True;
end;

procedure InitializeWizard();
begin
with WizardForm.WelcomeLabel1 do begin
if GetSystemDefaultLCID = 1049 then begin
LangFile:= ExpandConstant('{tmp}\Russian.isl');
WizardForm.WelcomeLabel1.Caption:= GetIniString('Messages', 'WelcomeLabel1', '', LangFile)
end else begin
LangFile:= ExpandConstant('{tmp}\English.isl');
WizardForm.WelcomeLabel1.Caption:= GetIniString('Messages', 'WelcomeLabel1', '', LangFile);
end;
end;
end;

P.S. Во втором варианте нужно создать INI-Файл, так как лейблы с ISL-Файла отображаются коряво (это так, для примера).

[Gnom_aka_Lexander]

Respin, так веселее, я думаю - зачем лишний раз обращаться к одному и томуже. если все надписи делать таким образом, то придется кучу времени потратить на оптимизацию, поэтому начинать нужно сразу.

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

Код:

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;

[Respin]

зачем лишний раз обращаться к одному и томуже. если все надписи делать таким образом, то придется кучу времени потратить на оптимизацию, поэтому начинать нужно сразу. »

Там уже у кого на сколько фантазии хватит. Вот только он будет читать c ISL-Файла: "Вас приветствует Мастер установки [name]"
"Программа установит [name/ver] на Ваш компьютер"...

Вообщем кто как хочет, пусть так и делает. Главное суть вопроса.

[Gnom_aka_Lexander]

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

[SatHan]

SoftLine, не работает. что мне с этим делать?
подскажите что можно сделать чтобы подсказка плавала за курсором мыши в области компонента?

[insombia]

del

[Raf-9600]

Можно как-то "обощить" инсталлер на множество нерусских языков? если система русская - инсталлер выбирал русский язык (что собственно в секции Setup и указано), но если ОС любая кроме русской (китайская, корейская, бразильская etc) - то принудительно выбирался английский язык? естественно без окна выбора языка »

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

[R.i.m.s.k.y.]

Raf-9600, здровую критику воспринимаю здраво. Так бы я и рассудил и оставил выбор языка руками.
Но пришлось делать одном скрипте два инсталлера (разный набор компонентов): один рус/англ с выбором, и один рус/англ-автомат без выбора языка.
"Автомат"предназначался для non-exUUSR и вообще отправился в Южную Омеригу на бета-тест
Релизов это не касается

[insombia]

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

[R.i.m.s.k.y.]

insombia,

Код:

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

[Registry]
Languages: russian; Root: HKCU; SubKey: твой ключ реестра для русского
Languages: english; Root: HKCU; SubKey: твой ключ реестра для собачьего