概述:本例实现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','