Inno Setup安装包制作------语言选择、记录语言类型

概述：本例实现Inno Setup安装包制作时，安装包提供语言选择对话框，并记录安装语言到指定配置文件（安装包软件装出来的文件）

1.设置显示语言选择的对话框

ShowLanguageDialog=yes 

2.定义语言

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "chinese"; MessagesFile: "compiler:\Languages\ChineseSimplified.isl"

3.记录安装语言到指定配置文件

[Code]

procedure CurStepChanged(CurStep: TSetupStep); 
var
languageName: string;
begin
  if CurStep=ssDone  then    //软件安装后执行
  begin
    languageName := ActiveLanguage(); // 获取用户选择的语言
    if 'chinese' = languageName then
    begin
      SetIniString('Language','Language','Chinese',ExpandConstant('{app}/ServiceCfg.ini'));
    end 
    else if 'english' = languageName then
    begin
  SetIniString('Language','Language','English',ExpandConstant('{app}/ServiceCfg.ini'));
    end;
  end; 
end;

ServiceCfg.ini配置文件中：

[Language]
Language=English

 

效果：

英文安装对话框：

中文安装对话框：

 完成；

安装完成后查看安装语言,已生效：

[Language]
Language=Chinese