需求
在软件安装时,选择中英文安装界面,选择的中英文界面就是对应软件内界面语言。
在软件安装时,选择中文界面,打开软件就是中文界面。
在软件安装时,选择英文界面,打开软件就是英文界面。
实际上,就是在安装过程中修改软件配置参数这么一个过程。
多语言设置
[Languages]
Name: "en"; MessagesFile: "compiler:Default.isl";
Name: "cn"; MessagesFile: "compiler:LanguagesChineseSimplified.isl";
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
languageName: string;
begin
if CurStep=ssDone then //软件安装后执行
begin
languageName := ActiveLanguage(); // 获取用户选择的语言
if 'cn' = languageName then
begin
SetIniString('ChangeLanguage','Language','简体中 文',ExpandConstant('{app}/Configuration/SystemSetting/systemsetting.ini'));
end
else if 'en' = languageName then
begin
SetIniString('ChangeLanguage','Language','English',ExpandConstant('{app}/Configuration/SystemSetting/systemsetting.ini'));
end;
end;
end;
函数原型帮助理解怎么修改配置文件:
function SetIniString(const Section, Key, Value, Filename: String): Boolean;
分别对应的是 字段、key、Value、配置文件。