Inno Setup 实现多语言组合选件
Name: english; MessagesFile: "compiler:LanguagesEnglish.isl"
Name: chinesesim; MessagesFile: "compiler:Default.isl"
english.TypeFullDesc=Full installation
chinesesim.TypeFullDesc=完整安装
english.TypeCompactDesc=Compact installation
chinesesim.TypeCompactDesc=精简安装
english.TypeCustomDesc=Custom installation
chinesesim.TypeCustomDesc=自定义安装
english.CmpProgramDesc=Program Files
chinesesim.CmpProgramDesc=程序文件
english.CmpLanguageFileDesc=Language File
chinesesim.CmpLanguageFileDesc=语言文件
english.CmpChineseSimDesc=Chinese Simplified
chinesesim.CmpChineseSimDesc=简体中文
english.CmpEnglishDesc=English
chinesesim.CmpEnglishDesc=英语
Name: "full"; Description: "{cm:TypeFullDesc}"
Name: "compact"; Description: "{cm:TypeCompactDesc}"
Name: "custom"; Description: "{cm:TypeCustomDesc}"; Flags: iscustom
Name: "program"; Description: "{cm:CmpProgramDesc}"; Types: full compact custom; Flags: fixed
Name: "languagefile"; Description: "{cm:CmpLanguageFileDesc}"; Types: full
Name: "languagefilechinesesim"; Description: "{cm:CmpChineseSimDesc}"; Types: full
Name: "languagefileenglish"; Description: "{cm:CmpEnglishDesc}"; Types: full
var
OldEvent_ComponentsListClickCheck: TNotifyEvent;
procedure CmpListOnClickCheck(Sender: TObject);
begin
OldEvent_ComponentsListClickCheck(Sender);
WizardForm.NextButton.Enabled := WizardForm.ComponentsList.Checked or WizardForm.ComponentsList.Checked;
end;
procedure InitializeWizard();
begin
WizardForm.ComponentsList.Checked := (ActiveLanguage = 'chinesesim');
WizardForm.ComponentsList.Checked := (ActiveLanguage = 'english');
OldEvent_ComponentsListClickCheck := WizardForm.ComponentsList.OnClickCheck;
WizardForm.ComponentsList.OnClickCheck := @CmpListOnClickCheck;
end;
procedure CurPageChanged(CurPageID : Integer);
begin
if CurPageID=wpSelectComponents then
begin
WizardForm.NextButton.Enabled := WizardForm.ComponentsList.Checked or WizardForm.ComponentsList.Checked;
end;
end;
选择中文界面
中文界面
选择英文界面
英文界面
页:
[1]