INNO 组件描述

Share

1. ; -- Example1.iss --
   
2. ; descctrl.dll 为一个 6.5 KB 的组件描述插件
   
3. 
   
4. [Setup]
   
5. AppName=My Program
   
6. AppVerName=My Program version 1.5
   
7. DefaultDirName={pf}\My Program
   
8. DefaultGroupName=My Program
   
9. UninstallDisplayIcon={app}\MyProg.exe
   
10. 
    
11. [Components]
    
12. Name: "program"; Description: "程序文件"; Types: full compact custom; Flags: fixed
    
13. Name: "help"; Description: "帮助文件"; Types: full
    
14. Name: "readme"; Description: "自述文件"; Types: full
    
15. Name: "readme\en"; Description: "英文"; Flags: exclusive
    
16. Name: "readme\de"; Description: "德文"; Flags: exclusive
    
17. Name: "readme\cn"; Description: "中文"; Flags: exclusive
    
18. Name: "readme\ru"; Description: "俄文"; Flags: exclusive
    
19. Name: "test"; Description: "测试"; Types: full
    
20. Name: "test\test1"; Description: "测试1"; Flags: checkablealone
    
21. Name: "test\test2"; Description: "测试2"; Flags: checkablealone
    
22. Name: "test\test3"; Description: "测试3"; Flags: checkablealone
    
23. Name: "test\test4"; Description: "测试4"; Flags: checkablealone
    
24. Name: "test\test5"; Description: "测试5"; Flags: checkablealone
    
25. Name: "test\test6"; Description: "测试6"; Flags: checkablealone
    
26. 
    
27. [Files]
    
28. Source: "MyProg.exe"; DestDir: "{app}"; Components: program
    
29. Source: "MyProg.chm"; DestDir: "{app}"; Components: help
    
30. Source: "descctrl.dll"; Flags: dontcopy
    
31. 
    
32. [Icons]
    
33. Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
    
34. 
    
35. [Code]
    
36. function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
    
37. //ComponentsListHandle 组件框句柄
    
38. //DescLabelHandle 描述TNewStaticText句柄
    
39. //DescStrings 描述文字 英文分号分割“;”，如果描述中必须要有英文分号，请用“#3B”代替。
    
40. 
    
41. function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';
    
42. 
    
43. var
    
44.   Info: TNewStaticText;
    
45.   InfoCaption: TNewStaticText;
    
46.   InfoPanel: TPanel;
    
47. 
    
48. procedure DeinitializeSetup();
    
49. begin
    
50.   //释放描述控制
    
51.   disabledesc();
    
52. end;
    
53. 
    
54. procedure InitializeWizard();
    
55. begin
    
56.   // 调整组件列表的大小
    
57.   WizardForm.TYPESCOMBO.Visible:= false;
    
58.   WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
    
59.   WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
    
60.   WizardForm.ComponentsList.Width := ScaleX(200);
    
61.   //创建一个虚拟的GroupBox，因为Inno Setup 没有啊。
    
62.   InfoPanel := TPanel.Create(WizardForm);
    
63.   InfoPanel.Parent := WizardForm.SelectComponentsPage;
    
64.   InfoPanel.Caption := '';
    
65.   InfoPanel.Top := WizardForm.ComponentsList.Top;
    
66.   InfoPanel.Left := ScaleX(216);
    
67.   InfoPanel.Width := ScaleX(200);
    
68.   InfoPanel.Height := WizardForm.ComponentsList.Height;
    
69.   InfoPanel.BevelInner := bvRaised;
    
70.   InfoPanel.BevelOuter := bvLowered;
    
71.   InfoCaption := TNewStaticText.Create(WizardForm);
    
72.   InfoCaption.Parent := WizardForm.SelectComponentsPage;
    
73.   InfoCaption.Caption := '描述';
    
74.   InfoCaption.Left := ScaleX(224);
    
75.   InfoCaption.Top := InfoPanel.Top - ScaleY(5);
    
76.   InfoCaption.Font.Color := clActiveCaption;
    
77.   // 创建描述文字
    
78.   Info := TNewStaticText.Create(WizardForm);
    
79.   Info.Parent := InfoPanel;
    
80.   Info.AutoSize := False;
    
81.   Info.Left := ScaleX(6);
    
82.   Info.Width := ScaleX(188);
    
83.   Info.Top := ScaleY(12);
    
84.   Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
    
85.   Info.Caption := '移动你的鼠标指针到组件之上，便可见到它的描述。';
    
86.   Info.WordWrap := true;
    
87.   //激活描述控制
    
88.   enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
    
89.        '程序文件描述;'+
    
90.        '帮助文件描述;'+
    
91.        '自述文件描述;'+
    
92.        '英文描述;'+
    
93.        '德文描述;'+
    
94.        '中文描述;'+
    
95.        '俄文描述测试#3B#3B包含#3B英文分号;'+
    
96.        '测试描述;'+
    
97.        '测试1描述;'+
    
98.        '测试2描述;'+
    
99.        '测试3描述;'+
    
100.        '测试4描述;'+
     
101.        '测试5描述;'+
     
102.        '测试6描述;'
     
103.        );
     
104. end;

复制代码