Inno Setup 实现多语言组合选件

Share

1. [Languages]
   
2. Name: english; MessagesFile: "compiler:LanguagesEnglish.isl"
   
3. Name: chinesesim; MessagesFile: "compiler:Default.isl"
   
4. 
   
5. [CustomMessages]
   
6. english.TypeFullDesc=Full installation
   
7. chinesesim.TypeFullDesc=完整安装
   
8. english.TypeCompactDesc=Compact installation
   
9. chinesesim.TypeCompactDesc=精简安装
   
10. english.TypeCustomDesc=Custom installation
    
11. chinesesim.TypeCustomDesc=自定义安装
    
12. english.CmpProgramDesc=Program Files
    
13. chinesesim.CmpProgramDesc=程序文件
    
14. english.CmpLanguageFileDesc=Language File
    
15. chinesesim.CmpLanguageFileDesc=语言文件
    
16. english.CmpChineseSimDesc=Chinese Simplified
    
17. chinesesim.CmpChineseSimDesc=简体中文
    
18. english.CmpEnglishDesc=English
    
19. chinesesim.CmpEnglishDesc=英语
    
20. 
    
21. [Types]
    
22. Name: "full"; Description: "{cm:TypeFullDesc}"
    
23. Name: "compact"; Description: "{cm:TypeCompactDesc}"
    
24. Name: "custom"; Description: "{cm:TypeCustomDesc}"; Flags: iscustom
    
25. 
    
26. [Components]
    
27. Name: "program"; Description: "{cm:CmpProgramDesc}"; Types: full compact custom; Flags: fixed
    
28. Name: "languagefile"; Description: "{cm:CmpLanguageFileDesc}"; Types: full
    
29. Name: "languagefilechinesesim"; Description: "{cm:CmpChineseSimDesc}"; Types: full
    
30. Name: "languagefileenglish"; Description: "{cm:CmpEnglishDesc}"; Types: full
    
31. 
    
32. [Code]
    
33. var
    
34.   OldEvent_ComponentsListClickCheck: TNotifyEvent;
    
35. 
    
36. procedure CmpListOnClickCheck(Sender: TObject);
    
37. begin
    
38.   OldEvent_ComponentsListClickCheck(Sender);
    
39.   WizardForm.NextButton.Enabled := WizardForm.ComponentsList.Checked[2] or WizardForm.ComponentsList.Checked[3];
    
40. end;
    
41. 
    
42. procedure InitializeWizard();
    
43. begin
    
44.   WizardForm.ComponentsList.Checked[2] := (ActiveLanguage = 'chinesesim');
    
45.   WizardForm.ComponentsList.Checked[3] := (ActiveLanguage = 'english');
    
46.   OldEvent_ComponentsListClickCheck := WizardForm.ComponentsList.OnClickCheck;
    
47.   WizardForm.ComponentsList.OnClickCheck := @CmpListOnClickCheck;
    
48. end;
    
49. 
    
50. procedure CurPageChanged(CurPageID : Integer);
    
51. begin
    
52.   if CurPageID=wpSelectComponents then
    
53.     begin
    
54.       WizardForm.NextButton.Enabled := WizardForm.ComponentsList.Checked[2] or WizardForm.ComponentsList.Checked[3];
    
55.     end;
    
56. end;

复制代码

选择中文界面

中文界面

选择英文界面

英文界面