类似 NSIS 组件列表描述控制的 Inno Setup 插件

admin

组件类似NSIS的效果。

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

复制代码