寻找NSIS控件ID方法

Share

1. name 'Find Control IDs'
   
2. outfile 'findctlID_MUI.exe'
   
3. showinstdetails show
   
4. InstallDir '$EXEDIR'
   
5. 
   
6. var header
   
7. 
   
8. !include mui.nsh
   
9. ; 许可协议页面
   
10. !define MUI_PAGE_CUSTOMFUNCTION_PRE lic_pre
    
11. !define MUI_PAGE_CUSTOMFUNCTION_SHOW lic_show
    
12. !insertmacro MUI_PAGE_LICENSE 'License.txt'
    
13. ; 组件选择页面
    
14. !define MUI_PAGE_CUSTOMFUNCTION_SHOW comp_show
    
15. !insertmacro MUI_PAGE_COMPONENTS
    
16. ; 安装目录选择页面
    
17. !define MUI_PAGE_CUSTOMFUNCTION_SHOW dir_show
    
18. !insertmacro MUI_PAGE_DIRECTORY
    
19. ;开始菜单页面
    
20. !define MUI_PAGE_CUSTOMFUNCTION_SHOW smn_show
    
21. !insertmacro MUI_PAGE_STARTMENU app $R9
    
22. ; 安装过程页面
    
23. !define MUI_PAGE_CUSTOMFUNCTION_SHOW inst_show
    
24. !insertmacro MUI_PAGE_INSTFILES
    
25. 
    
26. !insertmacro MUI_LANGUAGE "English"
    
27. 
    
28. section
    
29. sectionend
    
30. ;协议页面ID
    
31. function lic_show
    
32. strcpy $header "LICENSE PAGE CONTROLS"
    
33. call findIDs
    
34. functionend
    
35. ;选择页面ID
    
36. function comp_show
    
37. strcpy $header "COMPONENTS PAGE CONTROLS"
    
38. call findIDs
    
39. functionend
    
40. ;安装页面ID
    
41. function dir_show
    
42. strcpy $header "DIRECTORY PAGE CONTROLS"
    
43. call findIDs
    
44. functionend
    
45. ;开始页面ID
    
46. function smn_show
    
47. strcpy $header "START MENU PAGE CONTROLS"
    
48. call findIDs
    
49. functionend
    
50. 过程页面ID
    
51. function inst_show
    
52. strcpy $header "INSTALL FILES PAGE CONTROLS"
    
53. call findIDs
    
54. functionend
    
55. 
    
56. function lic_pre
    
57. fileopen $5 '$EXEDIR\ids.txt' a
    
58. fileseek $5 '' END
    
59. filewrite $5 "PARENT DIALOG CONTROLS$\r$\n"
    
60. strcpy $0 0
    
61. loop:
    
62. strcmp $0 '2000' end
    
63. GetDlgItem $R0 $HWNDPARENT $0
    
64. strcmp $R0 0 +3
    
65. fileseek $5 '' END
    
66. filewrite $5 "Control ID == $0$\r$\n"
    
67. intop $0 $0 + 1
    
68. goto loop
    
69. end:
    
70. filewrite $5 "$\r$\n"
    
71. fileclose $5
    
72. functionend
    
73. 
    
74. function findIDs
    
75. fileopen $5 '$EXEDIR\ids.txt' a
    
76. fileseek $5 '' END
    
77. filewrite $5 "$header$\r$\n"
    
78. strcpy $0 0
    
79. loop:
    
80. strcmp $0 '2000' end
    
81. FindWindow $R5 "#32770" "" $HWNDPARENT
    
82. GetDlgItem $R0 $R5 $0
    
83. strcmp $R0 0 +3
    
84. fileseek $5 '' END
    
85. filewrite $5 "Control ID == $0$\r$\n"
    
86. intop $0 $0 + 1
    
87. goto loop
    
88. end:
    
89. filewrite $5 "$\r$\n"
    
90. fileclose $5
    
91. functionend
    
92. 
    
93. function .onInit
    
94. IfFileExists '$EXEDIR\ids.txt' 0 +2
    
95. delete '$EXEDIR\ids.txt'
    
96. functionend

复制代码