自定义界面的用法

Share

1. !define APP_NAME 'Test'
   
2. name ${APP_NAME}
   
3. outfile '${APP_NAME}.exe'
   
4. showinstdetails show
   
5. InstallDir '$PROGRAMFILES\${APP_NAME}'
   
6. 
   
7. !include 'mui2.nsh'
   
8. 
   
9. !define MUI_PAGE_CUSTOMFUNCTION_PRE wel_pre
   
10. !define MUI_PAGE_CUSTOMFUNCTION_SHOW wel_show
    
11. !insertmacro MUI_PAGE_WELCOME
    
12. 
    
13. !define MUI_PAGE_CUSTOMFUNCTION_SHOW lic_show
    
14. !define MUI_PAGE_CUSTOMFUNCTION_LEAVE lic_leave
    
15. !insertmacro MUI_PAGE_LICENSE '${NSISDIR}\Docs\Modern UI\License.txt'
    
16. 
    
17. !define MUI_PAGE_CUSTOMFUNCTION_PRE dir_pre
    
18. !define MUI_PAGE_CUSTOMFUNCTION_LEAVE dir_leave
    
19. !insertmacro MUI_PAGE_DIRECTORY
    
20. 
    
21. !define MUI_PAGE_CUSTOMFUNCTION_PRE comp_pre
    
22. !insertmacro MUI_PAGE_COMPONENTS
    
23. 
    
24. !insertmacro MUI_PAGE_INSTFILES
    
25. 
    
26. 
    
27. !insertmacro MUI_LANGUAGE "SimpChinese"
    
28. 
    
29. 
    
30. Function wel_pre
    
31.          strcmp '$0' '1' noabort
    
32.          messagebox mb_yesno|mb_defbutton2|mb_iconquestion "跳过安装界面?" idno noabort
    
33.          strcpy $0 2
    
34.          abort
    
35.    noabort:
    
36.          strcpy $0 1
    
37. Functionend
    
38. 
    
39. 
    
40. Function wel_show
    
41.          FindWindow $1 "#32770" "" $HWNDPARENT
    
42.          SetCtlColors $1 '' '0x000000'
    
43. 
    
44.          GetDlgItem $2 $1 1201
    
45.          SetCtlColors $2 '0x00FF00' '0x000000'
    
46. 
    
47.          GetDlgItem $2 $1 1202
    
48.          SetCtlColors $2 '0xFFFF00' '0x000000'
    
49.          CreateFont $1 "$(^Font)" "10" ""
    
50.          SendMessage $2 ${WM_SETFONT} $1 0
    
51. FunctionEnd
    
52. 
    
53. 
    
54. Function lic_show
    
55.          StrCmp $R1 '0' btncheck
    
56. 
    
57.          FindWindow $1 "#32770" "" $HWNDPARENT
    
58.          GetDlgItem $1 $1 1000
    
59.          CreateFont $2 "Comic Sans MS" "10" "700"
    
60.          SendMessage $1 ${WM_SETFONT} $2 0
    
61. 
    
62.    btncheck:
    
63.          strcmp '$0' '2' 0 end
    
64.          GetDlgItem $1 $HWNDPARENT 3
    
65.          EnableWindow $1 0
    
66.    end:
    
67. Functionend
    
68. 
    
69. 
    
70. Function lic_leave
    
71.          intcmp '$R1' '1' next 0 next
    
72.          ShowWindow $HWNDPARENT "${SW_HIDE}"
    
73.          messagebox mb_ok|mb_iconexclamation '您已按过我同意按钮，是吗？ \
    
74.          那么，你必须按它再一次！'
    
75. 
    
76.          FindWindow $1 "#32770" "" $HWNDPARENT
    
77.          GetDlgItem $1 $1 1000
    
78.          CreateFont $2 "$(^Font)" "8" "700"
    
79.          SendMessage $1 ${WM_SETFONT} $2 0
    
80. 
    
81.          IntOp $R1 $R1 + 1
    
82.          ShowWindow $HWNDPARENT "${SW_RESTORE}"
    
83.          abort
    
84.    next:
    
85.         strcmp $R1 '2' end
    
86.         messagebox mb_ok|mb_iconinformation '好吧，提前进入'
    
87.    end:
    
88.         call read_red
    
89. Functionend
    
90. 
    
91. 
    
92. Function read_red
    
93.          strcmp $R1 '2' end
    
94.          ShowWindow $HWNDPARENT "${SW_HIDE}"
    
95.          IntOp $R1 $R1 + 1
    
96.          messagebox mb_ok|mb_iconstop "要看过才能继续，继续看"
    
97. 
    
98.          GetDlgItem $1 $HWNDPARENT 1037
    
99.          CreateFont $2 "$(^Font)" "10" "700"
    
100.          SendMessage $1 ${WM_SETFONT} $2 0
     
101.          SetCtlColors $1  '0xFF0000' '0xFFFFFF'
     
102. 
     
103.          GetDlgItem $1 $HWNDPARENT 1038
     
104.          CreateFont $2 "Tahoma" "9" ""
     
105.          SendMessage $1 ${WM_SETFONT} $2 0
     
106.          SetCtlColors $1  '0xFF0000' '0xFFFFFF'
     
107. 
     
108.          ShowWindow $HWNDPARENT "${SW_RESTORE}"
     
109.          SendMessage $HWNDPARENT "0x408" "0" "0"
     
110.          Abort
     
111.    end:
     
112. FunctionEnd
     
113. 
     
114. 
     
115. Function dir_pre
     
116.          GetDlgItem $1 $HWNDPARENT 1037
     
117.          CreateFont $2 "$(^Font)" "8" "700"
     
118.          SendMessage $1 ${WM_SETFONT} $2 0
     
119.          SetCtlColors $1  '0x000000' '0xFFFFFF'
     
120. 
     
121.          GetDlgItem $1 $HWNDPARENT 1038
     
122.          CreateFont $2 "$(^Font)" "8" ""
     
123.          SendMessage $1 ${WM_SETFONT} $2 0
     
124.          SetCtlColors $1  '0x000000' '0xFFFFFF'
     
125. Functionend
     
126. 
     
127. 
     
128. Function dir_leave
     
129.          ShowWindow $HWNDPARENT "${SW_HIDE}"
     
130.          messagebox mb_yesno|mb_iconquestion "跳过组件？" idno end
     
131.          push 'skip components'
     
132.    end:
     
133. Functionend
     
134. 
     
135. 
     
136. Function comp_pre
     
137.          pop $R0
     
138.          StrCmp '$R0' 'skip components' 0 end
     
139.          messagebox mb_ok|mb_iconinformation '您选择跳过组件!'
     
140.          ShowWindow $HWNDPARENT "${SW_RESTORE}"
     
141.          abort
     
142.    end:
     
143.          ShowWindow $HWNDPARENT "${SW_RESTORE}"
     
144. Functionend
     
145. 
     
146. 
     
147. Function .onInit
     
148.          StrCpy $0 0
     
149.          StrCpy $R1 0
     
150. FunctionEnd
     
151. 
     
152. 
     
153. Section 'boo'
     
154.         sleep 5000
     
155. Sectionend

复制代码