解决安装过程拖拽导致完成页面卡死

Share

1. ; 安装程序初始定义常量
   
2. !define PRODUCT_NAME "解决安装过程拖拽导致完成页面卡死"
   
3. !define PRODUCT_VERSION "1.0"
   
4. 
   
5. Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
   
6. OutFile "Text.exe"
   
7. InstallDir "$PROGRAMFILES\Text"
   
8. ShowInstDetails show
   
9. ShowUnInstDetails show
   
10. 
    
11. !include "MUI2.nsh"
    
12. !include "nsDialogs.nsh"
    
13. 
    
14. ; 欢迎页面
    
15. !insertmacro MUI_PAGE_WELCOME
    
16. ; 许可协议页面
    
17. ; 安装目录选择页面
    
18. !insertmacro MUI_PAGE_DIRECTORY
    
19. ; 安装过程页面
    
20. !insertmacro MUI_PAGE_INSTFILES
    
21. ; 如果使用默认的安装完成页面，还是会卡死。所以用自己写个完成页面就好了！~
    
22. ;!insertmacro MUI_PAGE_FINISH
    
23. Page custom finish
    
24. !insertmacro MUI_LANGUAGE "SimpChinese"
    
25. 
    
26. Section "MainSection" SEC01
    
27. sleep 200
    
28. sleep 200
    
29. sleep 200
    
30. sleep 200
    
31. sleep 200
    
32. sleep 200
    
33. sleep 200
    
34. sleep 200
    
35. sleep 200
    
36. sleep 200
    
37. sleep 200
    
38. sleep 200
    
39. sleep 200
    
40. GetDlgItem  $5 $HWNDPARENT  1
    
41. EnableWindow $5 1
    
42. SendMessage $5 ${BM_CLICK} 0 0
    
43. SectionEnd
    
44. 
    
45. Function finish
    
46.         nsDialogs::Create /NOUNLOAD 1018
    
47.           Pop $0
    
48.         ${If} $0 == error
    
49.                 Abort
    
50.         ${EndIf}
    
51.         nsDialogs::Show
    
52. FunctionEnd

复制代码