收藏本站
切换到窄版

杉宫竹苑工作室

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
杉宫竹苑工作室»论坛 › 软件封包 › NSIS › 脚本示例 › 仿百度云盘
返回列表 发新帖
查看: 2384|回复: 0

仿百度云盘

[复制链接]
admin
发表于 2018-8-12 20:02:59 | 显示全部楼层 |阅读模式

正式会员享受无限制浏览网站功能和高速网盘下载，赶快加入本站吧！

您需要 登录 才可以下载或查看，没有账号？立即注册

x

  1. ;7Z打开空白
  2. !system '>blank set/p=MSCF<nul'
  3. !packhdr temp.dat 'cmd /c Copy /b temp.dat /b +blank&&del blank'

  5. Var MSG     ;MSG变量必须定义，而且在最前面，否则WndProc::onCallback不工作，插件中需要这个消息变量,用于记录消息信息
  6. Var Dialog  ;Dialog变量也需要定义，他可能是NSIS默认的对话框变量用于保存窗体中控件的信息

  8. Var BGImage  ;背景大图
  9. Var ImageHandle
  10. Var THImage   ;叹号
  11. Var BCSJ

  13. Var WarningForm

  15. Var btn_in
  16. Var btn_ins

  18. Var lbl_zhuye
  19. Var lbl_biaoti

  21. Var Txt_Browser
  22. Var btn_Browser

  24. Var Checkbox1
  25. Var Checkbox_State1
  26. Var Checkbox1_State

  28. Var Checkbox2
  29. Var Checkbox_State2
  30. Var Checkbox2_State

  32. Var Checkbox3
  33. Var Checkbox_State3
  34. Var Checkbox3_State

  36. Var Checkbox4
  37. Var Checkbox_State4
  38. Var Checkbox4_State

  40. ;---------------------------全局编译脚本预定义的常量-----------------------------------------------------
  41. !define PRODUCT_NAME "百度云同步盘"
  42. !define PRODUCT_DIR "BaiDuYun"
  43. !define PRODUCT_VERSION "3.7.0.0"
  44. !define PRODUCT_PUBLISHER "baidu.com, Inc."
  45. !define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\DesktopHook64.exe" ;请自行修改
  46. !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
  47. !define PRODUCT_UNINST_ROOT_KEY "HKLM"

  49. ShowInstDetails nevershow ;设置是否显示安装详细信息。
  50. ShowUnInstDetails nevershow ;设置是否显示删除详细信息。

  52. ;应用程序显示名字
  53. Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
  54. ;应用程序输出文件名
  55. OutFile "${PRODUCT_NAME} ${PRODUCT_VERSION}.exe"
  56. ;默认安装目录
  57. InstallDir "$PROGRAMFILES\${PRODUCT_DIR}"
  58. InstallDirRegKey HKLM "${PRODUCT_UNINST_KEY}" "UninstallString"

  60. ; MUI 预定义常量
  61. ;!define MUI_ABORTWARNING ;退出提示
  62. ;安装图标的路径名字
  63. !define MUI_ICON "Icon\BaiduYun.ico"
  64. ;卸载图标的路径名字
  65. !define MUI_UNICON "Icon\BaiduYun.ico"
  66. ;使用的UI
  67. !define MUI_UI "UI\mod.exe"


  70. ;---------------------------设置软件压缩类型（也可以通过外面编译脚本控制）------------------------------------
  71. SetCompressor lzma
  72. SetCompress force
  73. XPStyle on
  74. ; ------ MUI 现代界面定义 (1.67 版本以上兼容) ------
  75. !include "MUI2.nsh"
  76. !include "WinCore.nsh"
  77. !include "nsWindows.nsh"
  78. !include "LogicLib.nsh"
  79. !include "FileFunc.nsh"

  81. !define MUI_CUSTOMFUNCTION_GUIINIT onGUIInit

  83. ;自定义页面
  84. Page custom Page.1

  86. Page custom Page.2 Page.2leave
  87. ; 许可协议页面
  88. ;!define MUI_LICENSEPAGE_CHECKBOX

  90. ; 安装目录选择页面

  92. ;!insertmacro MUI_PAGE_DIRECTORY
  93. ; 安装过程页面
  94. ;!define MUI_PAGE_CUSTOMFUNCTION_PRO InstFilesPagePRO
  95. !define MUI_PAGE_CUSTOMFUNCTION_SHOW InstFilesPageShow
  96. !insertmacro MUI_PAGE_INSTFILES

  98. Page custom Page.3

  100. Page custom Page.4
  101. ; 安装完成页面
  102. ;!insertmacro MUI_PAGE_FINISH
  103. ; 安装卸载过程页面
  104. UninstPage custom un.Page.5

  106. UninstPage instfiles un.InstFiles.PRO un.InstFiles.Show

  108. UninstPage custom un.Page.6

  110. UninstPage custom un.Page.7


  113. ; 安装界面包含的语言设置
  114. !insertmacro MUI_LANGUAGE "SimpChinese"

  116. ;------------------------------------------------------MUI 现代界面定义以及函数结束------------------------

  118. Function .onInit
  119.     InitPluginsDir
  120.     StrCpy $Checkbox1_State ${BST_CHECKED}
  121.     StrCpy $Checkbox2_State ${BST_CHECKED}
  122.     StrCpy $Checkbox3_State ${BST_CHECKED}
  123.     StrCpy $Checkbox4_State ${BST_CHECKED}
  124.    
  125.     File `/ONAME=$PLUGINSDIR\bg.bmp` `images\bdyun.bmp`
  126.     File `/oname=$PLUGINSDIR\mgbg.bmp` `images\Message.bmp`
  127.     File `/ONAME=$PLUGINSDIR\BeiJing.bmp` `images\BeiJing.bmp`
  128.     File `/oname=$PLUGINSDIR\btn_clos.bmp` `images\clos.bmp`
  129.     File `/oname=$PLUGINSDIR\btn_mini.bmp` `images\mini.bmp`
  130.     File `/oname=$PLUGINSDIR\btn_in.bmp` `images\in.bmp`
  131.     File `/oname=$PLUGINSDIR\btn_btn.bmp` `images\btn.bmp`
  132.     File `/oname=$PLUGINSDIR\TanHao.bmp` `images\TanHao.bmp`

  134.                 ;进度条皮肤
  135.           File `/oname=$PLUGINSDIR\Progress.bmp` `images\Progress.bmp`
  136.           File `/oname=$PLUGINSDIR\ProgressBar.bmp` `images\ProgressBar.bmp`

  138.     SkinBtn::Init "$PLUGINSDIR\btn_btn.bmp"
  139.     SkinBtn::Init "$PLUGINSDIR\btn_in.bmp"
  140.     SkinBtn::Init "$PLUGINSDIR\btn_mini.bmp"
  141.                 SkinBtn::Init "$PLUGINSDIR\btn_clos.bmp"
  142. FunctionEnd

  144. Function onGUIInit

  146.     ;消除边框
  147.     System::Call `user32::SetWindowLong(i$HWNDPARENT,i${GWL_STYLE},0x9480084C)i.R0`
  148.     ;隐藏一些既有控件
  149.     GetDlgItem $0 $HWNDPARENT 1034
  150.     ShowWindow $0 ${SW_HIDE}
  151.     GetDlgItem $0 $HWNDPARENT 1035
  152.     ShowWindow $0 ${SW_HIDE}
  153.     GetDlgItem $0 $HWNDPARENT 1036
  154.     ShowWindow $0 ${SW_HIDE}
  155.     GetDlgItem $0 $HWNDPARENT 1037
  156.     ShowWindow $0 ${SW_HIDE}
  157.     GetDlgItem $0 $HWNDPARENT 1038
  158.     ShowWindow $0 ${SW_HIDE}
  159.     GetDlgItem $0 $HWNDPARENT 1039
  160.     ShowWindow $0 ${SW_HIDE}
  161.     GetDlgItem $0 $HWNDPARENT 1256
  162.     ShowWindow $0 ${SW_HIDE}
  163.     GetDlgItem $0 $HWNDPARENT 1028
  164.     ShowWindow $0 ${SW_HIDE}

  166.     ${NSW_SetWindowSize} $HWNDPARENT 498 373 ;改变主窗体大小
  167.     System::Call User32::GetDesktopWindow()i.R0
  168.     ;圆角
  169.     System::Alloc 16
  170.           System::Call user32::GetWindowRect(i$HWNDPARENT,isR0)
  171.           System::Call *$R0(i.R1,i.R2,i.R3,i.R4)
  172.           IntOp $R3 $R3 - $R1
  173.           IntOp $R4 $R4 - $R2
  174.           System::Call gdi32::CreateRoundRectRgn(i0,i0,iR3,iR4,i4,i4)i.r0
  175.           System::Call user32::SetWindowRgn(i$HWNDPARENT,ir0,i1)
  176.           System::Free $R0
  177.                 Call UninstallSoft
  178. FunctionEnd

  180. ;处理无边框移动
  181. Function onGUICallback
  182.   ${If} $MSG = ${WM_LBUTTONDOWN}
  183.     SendMessage $HWNDPARENT ${WM_NCLBUTTONDOWN} ${HTCAPTION} $0
  184.   ${EndIf}
  185. FunctionEnd
  186. ;弹出对话框移动
  187. Function onWarningGUICallback
  188.   ${If} $MSG = ${WM_LBUTTONDOWN}
  189.     SendMessage $WarningForm ${WM_NCLBUTTONDOWN} ${HTCAPTION} $0
  190.   ${EndIf}
  191. FunctionEnd


  194. Function Page.1

  196.     GetDlgItem $0 $HWNDPARENT 1
  197.     ShowWindow $0 ${SW_HIDE}
  198.     GetDlgItem $0 $HWNDPARENT 2
  199.     ShowWindow $0 ${SW_HIDE}
  200.     GetDlgItem $0 $HWNDPARENT 3
  201.     ShowWindow $0 ${SW_HIDE}
  202.     GetDlgItem $0 $HWNDPARENT 1990
  203.     ShowWindow $0 ${SW_HIDE}
  204.     GetDlgItem $0 $HWNDPARENT 1991
  205.     ShowWindow $0 ${SW_HIDE}
  206.     GetDlgItem $0 $HWNDPARENT 1992
  207.     ShowWindow $0 ${SW_HIDE}
  208.    
  209.     nsDialogs::Create 1044
  210.     Pop $0
  211.     ${If} $0 == error
  212.         Abort
  213.     ${EndIf}
  214.     SetCtlColors $0 ""  transparent ;背景设成透明

  216.     ${NSW_SetWindowSize} $0 498 373 ;改变Page大小

  218.                 ;XXX安装向导
  219.     ${NSD_CreateLabel} 1u 130u 493U 18u "欢迎使用${PRODUCT_NAME}安装向导"
  220.     Pop $lbl_zhuye
  221.     SetCtlColors $lbl_zhuye "" transparent ;背景设成透明
  222.     CreateFont $1 "宋体" "11" "800"
  223.     SendMessage $lbl_zhuye ${WM_SETFONT} $1 0
  224.     ${NSD_AddStyle} $lbl_zhuye ${ES_CENTER}

  226.                 ;标题文字
  227.     ${NSD_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME} 安装"
  228.     Pop $lbl_biaoti
  229.     ;SetCtlColors $lbl_biaoti "" 0xFFFFFF ;蓝色
  230.     SetCtlColors $lbl_biaoti "666666"  transparent ;背景设成透明

  232.     ;自定义安装按钮
  233.     ${NSD_CreateButton} 120u 185u 136 32 "自定义安装"
  234.     Pop $btn_ins
  235.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_in.bmp $btn_ins
  236.     SetCtlColors $btn_ins "808080"  transparent ;背景设成透明
  237.     GetFunctionAddress $3 onClickins
  238.     SkinBtn::onClick $btn_ins $3

  240.     ;快速安装按钮
  241.     ${NSD_CreateButton} 120u 153u 136 32 "快速安装(推荐)"
  242.     Pop $btn_in
  243.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_in.bmp $btn_in
  244.     SetCtlColors $btn_in "808080"  transparent ;背景设成透明
  245.     GetFunctionAddress $3 onClickin
  246.     SkinBtn::onClick $btn_in $3


  249.                 ;标题文字
  250.     ${NSD_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME} 安装"
  251.     Pop $lbl_biaoti
  252.     ;SetCtlColors $lbl_biaoti "" 0xFFFFFF ;蓝色
  253.     SetCtlColors $lbl_biaoti "666666"  transparent ;背景设成透明
  254.    
  255.     ;最小化按钮
  256.     ${NSD_CreateButton} 434 1 31 18 ""
  257.     Pop $0
  258.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $0
  259.     GetFunctionAddress $3 onClickmini
  260.     SkinBtn::onClick $0 $3

  262.     ;关闭按钮
  263.     ${NSD_CreateButton} 465 1 31 18 ""
  264.     Pop $0
  265.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $0
  266.     GetFunctionAddress $3 MessgesboxPage
  267.     SkinBtn::onClick $0 $3

  269.     ;贴背景大图
  270.     ${NSD_CreateBitmap} 0 0 100% 100% ""
  271.     Pop $BGImage
  272.     ${NSD_SetImage} $BGImage $PLUGINSDIR\bg.bmp $ImageHandle

  274.     GetFunctionAddress $0 onGUICallback
  275.     WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  276.     nsDialogs::Show
  277.     ${NSD_FreeImage} $ImageHandle
  278. FunctionEnd

  280. Function Page.2

  282.     GetDlgItem $0 $HWNDPARENT 1
  283.     ShowWindow $0 ${SW_HIDE}
  284.     GetDlgItem $0 $HWNDPARENT 2
  285.     ShowWindow $0 ${SW_HIDE}
  286.     GetDlgItem $0 $HWNDPARENT 3
  287.     ShowWindow $0 ${SW_HIDE}
  288.     GetDlgItem $0 $HWNDPARENT 1990
  289.     ShowWindow $0 ${SW_HIDE}
  290.     GetDlgItem $0 $HWNDPARENT 1991
  291.     ShowWindow $0 ${SW_HIDE}
  292.     GetDlgItem $0 $HWNDPARENT 1992
  293.     ShowWindow $0 ${SW_HIDE}

  295.     nsDialogs::Create 1044
  296.     Pop $0
  297.     ${If} $0 == error
  298.         Abort
  299.     ${EndIf}
  300.     SetCtlColors $0 ""  transparent ;背景设成透明

  302.     ${NSW_SetWindowSize} $0 498 373 ;改变Page大小

  304.     ;安装按钮
  305.     ${NSD_CreateButton} 416U 339U 72U 24U "安装"
  306.     Pop $0
  307.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_BTN.bmp $0
  308.     GetFunctionAddress $3 onClickinst
  309.     SkinBtn::onClick $0 $3

  311.                 ;标题文字
  312.     ${NSD_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME} 安装"
  313.     Pop $lbl_biaoti
  314.     ;SetCtlColors $lbl_biaoti "" 0xFFFFFF ;蓝色
  315.     SetCtlColors $lbl_biaoti "666666"  transparent ;背景设成透明


  318.                 ;路径选择
  319.     ${NSD_CreateLabel} 36 110u 130 13u "选择组件："
  320.     Pop $0
  321.     SetCtlColors $0 ""  transparent ;背景设成透明
  322. ;    CreateFont $1 "宋体" "11" "800"
  323. ;    SendMessage $0 ${WM_SETFONT} $1 0

  325.                 ;路径选择
  326.     ${NSD_CreateLabel} 36 90 130u 12u "安装目录："
  327.     Pop $0
  328.     SetCtlColors $0 ""  transparent ;背景设成透明
  329.    ; CreateFont $1 "宋体" "11" "800"
  330.    ; SendMessage $3 ${WM_SETFONT} $1 0

  332. #------------------------------------------
  333. #可选项1
  334. #------------------------------------------   
  335.     ${NSD_CreateCheckbox} 36 130u 12u 12u ""
  336.     Pop $Checkbox1
  337.     SetCtlColors $Checkbox1 "" "f7f7f7"
  338.                 ;${NSD_SetState} $Checkbox1 ${BST_CHECKED}


  341.                 ${NSD_CreateLabel} 36u 131u 100u 12u "可选项目一"
  342.                 Pop $Checkbox_State1
  343.     SetCtlColors $Checkbox_State1 ""  transparent ;前景色,背景设成透明
  344.     ${NSD_OnClick} $Checkbox_State1 onCheckbox1
  345. #------------------------------------------
  346. #可选项2
  347. #------------------------------------------
  348.     ${NSD_CreateCheckbox} 36 150u 12u 12u ""
  349.     Pop $Checkbox2
  350.                 SetCtlColors $Checkbox2 "" "f4f4f4"
  351.                 ${NSD_SetState} $Checkbox3 ${BST_CHECKED}
  352.                 ;ShowWindow $Checkbox2 ${SW_HIDE}
  353.                
  354.                 ${NSD_CreateLabel} 36u 151u 100u 12u "可选项目二"
  355.                 Pop $Checkbox_State2
  356.     SetCtlColors $Checkbox_State2 ""  transparent ;前景色,背景设成透明
  357.     ${NSD_OnClick} $Checkbox_State2 onCheckbox2
  358.     ;ShowWindow $Checkbox_State2 ${SW_HIDE}   ;当你不使用该选项时，可以隐藏
  359. #------------------------------------------
  360. #可选项3
  361. #------------------------------------------
  362.     ${NSD_CreateCheckbox} 36 170u 12u 12u ""
  363.     Pop $Checkbox3
  364.                 SetCtlColors $Checkbox3 "" "f5f5f5"
  365.                 ${NSD_SetState} $Checkbox3 ${BST_CHECKED}
  366.                 ;ShowWindow $Checkbox3 ${SW_HIDE}  ;当你不使用该选项时，可以隐藏

  368.                 ${NSD_CreateLabel} 36u 171u 100u 12u "可选项目三"
  369.                 Pop $Checkbox_State3
  370.     SetCtlColors $Checkbox_State3 ""  transparent ;前景色,背景设成透明
  371.     ${NSD_OnClick} $Checkbox_State3 onCheckbox3
  372.     ;ShowWindow $Checkbox_State3 ${SW_HIDE}  ;当你不使用该选项时，可以隐藏
  373. #------------------------------------------
  374. #可选项4
  375. #------------------------------------------
  376.     ${NSD_CreateCheckbox} 36 190u 12u 12u ""
  377.     Pop $Checkbox4
  378.                 SetCtlColors $Checkbox4 "" "f6f6f6"
  379.                 ${NSD_SetState} $Checkbox4 ${BST_CHECKED}
  380.                 ;ShowWindow $Checkbox4 ${SW_HIDE}  ;当你不使用该选项时，可以隐藏
  381.                
  382.                 ${NSD_CreateLabel} 36u 191u 100u 12u "可选项目四"
  383.                 Pop $Checkbox_State4
  384.     SetCtlColors $Checkbox_State4 ""  transparent ;前景色,背景设成透明
  385.     ${NSD_OnClick} $Checkbox_State4 onCheckbox4
  386.     ;ShowWindow $Checkbox_State4 ${SW_HIDE}  ;当你不使用该选项时，可以隐藏
  387.    
  388. #可选项完成!
  389. #------------------------------------------

  391.     ;最小化按钮
  392.     ${NSD_CreateButton} 434 1 31 18 ""
  393.     Pop $0
  394.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $0
  395.     GetFunctionAddress $3 onClickmini
  396.     SkinBtn::onClick $0 $3

  398.     ;关闭按钮
  399.     ${NSD_CreateButton} 465 1 31 18 ""
  400.     Pop $0
  401.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $0
  402.     GetFunctionAddress $3 MessgesboxPage
  403.     SkinBtn::onClick $0 $3
  404.    
  405.                 ;创建安装目录输入文本框
  406.           ${NSD_CreateText} 36 120 350 24 $INSTDIR
  407.                 Pop $Txt_Browser
  408.     CreateFont $1 "tahoma" "10" "500"
  409.     SendMessage $Txt_Browser ${WM_SETFONT} $1 1
  410.                 ;ShowWindow $Txt_Browser ${SW_HIDE}


  413.     ;创建更改路径文件夹按钮
  414.     ${NSD_CreateButton} 395U 120U 72U 16u  "浏览"
  415.                 Pop $btn_Browser
  416.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $btn_Browser
  417.                 GetFunctionAddress $3 onButtonClickSelectPath
  418.     SkinBtn::onClick $btn_Browser $3
  419.                 ;ShowWindow $btn_Browser ${SW_HIDE}
  420.    
  421.     ;贴背景大图
  422.     ${NSD_CreateBitmap} 0 0 100% 100% ""
  423.     Pop $BGImage
  424.     ${NSD_SetImage} $BGImage $PLUGINSDIR\beijing.bmp $ImageHandle

  426.     GetFunctionAddress $0 onGUICallback
  427.     WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  428.     nsDialogs::Show
  429.     ${NSD_FreeImage} $ImageHandle
  430. FunctionEnd

  432. #----------------------------------------------
  433. #存储4个选项状态
  434. #----------------------------------------------
  435. Function Page.2leave
  436.    ${NSD_GetState} $Checkbox1 $Checkbox1_State
  437.    ${NSD_GetState} $Checkbox2 $Checkbox2_State
  438.    ${NSD_GetState} $Checkbox3 $Checkbox3_State
  439.    ${NSD_GetState} $Checkbox4 $Checkbox4_State
  440. FunctionEnd
  441. #----------------------------------------------
  442. #第2个页面完成
  443. #----------------------------------------------


  446. Function  InstFilesPageShow

  448.     FindWindow $R2 "#32770" "" $HWNDPARENT
  449.     GetDlgItem $0 $HWNDPARENT 1
  450.     ShowWindow $0 ${SW_HIDE}
  451.     GetDlgItem $0 $HWNDPARENT 2
  452.     ShowWindow $0 ${SW_HIDE}
  453.     GetDlgItem $0 $HWNDPARENT 3
  454.    
  455.     ShowWindow $0 ${SW_HIDE}
  456.     GetDlgItem $1 $R2 1027
  457.     ShowWindow $1 ${SW_HIDE}


  460.   File '/oname=$PLUGINSDIR\Slides.dat' 'nsisSlideShow\Slides.dat'
  461.   File '/oname=$PLUGINSDIR\Play1.png' 'nsisSlideShow\Play1.png'
  462.   File '/oname=$PLUGINSDIR\Play2.png' 'nsisSlideShow\Play2.png'
  463.   File '/oname=$PLUGINSDIR\Play3.png' 'nsisSlideShow\Play3.png'
  464.                 ;自定义进度条的颜色样式
  465.                 ;取消进度条windows 样式主题风格，改为用自已定义的颜色
  466. ;                GetDlgItem $2 $R2 1004
  467. ;                System::Call UxTheme::SetWindowTheme(i,w,w)i(r2, n, n)
  468.                 ;SendMessage $2 ${PBM_SETBARCOLOR} 0 0x339a00 ;设置进度条前景色
  469.                 ;SendMessage $2 ${PBM_SETBKCOLOR} 0 0xa4a4a4  ;设置进度条背景色

  471.     GetDlgItem $R0 $R2 1004  ;设置进度条位置
  472.     System::Call "user32::MoveWindow(i R0, i 30, i 100, i 440, i 12) i r2"


  475.     StrCpy $R0 $R2 ;改变页面大小,不然贴图不能全页
  476.     System::Call "user32::MoveWindow(i R0, i 0, i 0, i 498, i 373) i r2"
  477.     GetFunctionAddress $0 onGUICallback
  478.     WndProc::onCallback $R0 $0 ;处理无边框窗体移动
  479.    
  480.     GetDlgItem $R1 $R2 1006  ;获取1006控件设置颜色并改变位置
  481.     SetCtlColors $R1 ""  F6F6F6 ;背景设成F6F6F6,注意颜色不能设为透明，否则重叠
  482.     System::Call "user32::MoveWindow(i R1, i 30, i 82, i 440, i 12) i r2"

  484.     GetDlgItem $R3 $R2 1990  ;获取1006控件设置颜色并改变位置
  485.     System::Call "user32::MoveWindow(i R3, i 434, i 1, i 31, i 18) i r2"
  486.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $R3
  487.                 GetFunctionAddress $3 onClickmini
  488.     SkinBtn::onClick $R3 $3
  489.     ;SetCtlColors $R1 ""  F6F6F6 ;背景设成F6F6F6,注意颜色不能设为透明，否则重叠

  491.     GetDlgItem $R4 $R2 1991  ;获取1006控件设置颜色并改变位置
  492.     System::Call "user32::MoveWindow(i R4, i 465, i 1, i 31, i 18) i r2" ;改变位置465, 1, 31, 18
  493.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $R4
  494.                 GetFunctionAddress $3 onClickclos
  495.     SkinBtn::onClick $R4 $3
  496.     EnableWindow $R4 0  ;禁止0为禁止
  497.    
  498.     GetDlgItem $R5 $R2 1992  ;获取1006控件设置颜色并改变位置
  499.     System::Call "user32::MoveWindow(i R5, i 416, i 339, i 72, i 24) i r2"
  500.     ${NSD_SetText} $R5 "安装"
  501.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $R5
  502.                 ;GetFunctionAddress $3 onClickins
  503.     SkinBtn::onClick $R5 $3
  504.     EnableWindow $R5 0

  506.     GetDlgItem $R7 $R2 1993  ;获取1993控件设置颜色并改变位置
  507.     SetCtlColors $R7 "666666"  transparent ;
  508.     System::Call "user32::MoveWindow(i R7, i 38, i 12, i 150, i 12) i r2"
  509.     ${NSD_SetText} $R7 "${PRODUCT_NAME} 安装" ;设置某个控件的 text 文本


  512.     GetDlgItem $R8 $R2 1016  ;获取1006控件设置颜色并改变位置
  513.     SetCtlColors $R8 ""  F6F6F6 ;背景设成F6F6F6,注意颜色不能设为透明，否则重叠
  514.     System::Call "user32::MoveWindow(i R8, i 30, i 120, i 440, i 180) i r2"
  515.    
  516.     FindWindow $R2 "#32770" "" $HWNDPARENT
  517.     GetDlgItem $R0 $R2 1995
  518.     System::Call "user32::MoveWindow(i R0, i 0, i 0, i 498, i 373) i r2"
  519.     ${NSD_SetImage} $R0 $PLUGINSDIR\beijing.bmp $ImageHandle

  521.                 ;这里是给进度条贴图
  522.     FindWindow $R2 "#32770" "" $HWNDPARENT
  523.     GetDlgItem $5 $R2 1004
  524.           SkinProgress::Set $5 "$PLUGINSDIR\Progress.bmp" "$PLUGINSDIR\ProgressBar.bmp"

  526. FunctionEnd

  528. Function Page.3
  529.     GetDlgItem $0 $HWNDPARENT 1
  530.     ShowWindow $0 ${SW_HIDE}
  531.     GetDlgItem $0 $HWNDPARENT 2
  532.     ShowWindow $0 ${SW_HIDE}
  533.     GetDlgItem $0 $HWNDPARENT 3
  534.     ShowWindow $0 ${SW_HIDE}


  537.     nsDialogs::Create 1044
  538.     Pop $0
  539.     ${If} $0 == error
  540.         Abort
  541.     ${EndIf}
  542.     SetCtlColors $0 ""  transparent ;背景设成透明

  544.     ${NSW_SetWindowSize} $0 498 373 ;改变Page大小


  547.     ${NSD_CreateLabel} 10% 25% 250u 15u '"${PRODUCT_NAME}"安装完成！'
  548.     Pop $2
  549.     SetCtlColors $2 ""  transparent ;背景设成透明
  550.     CreateFont $1 "宋体" "11" "700"
  551.     SendMessage $2 ${WM_SETFONT} $1 0

  553.     ${NSD_CreateLabel} 10% 31% 250u 12u "${PRODUCT_NAME}已安装到您的电脑中，请单击【完成】。"
  554.     Pop $2
  555.     SetCtlColors $2 666666  transparent ;背景设成透明

  557.                 ;标题文字
  558.     ${NSD_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME} 安装"
  559.     Pop $lbl_biaoti
  560.     ;SetCtlColors $lbl_biaoti "" 0xFFFFFF ;蓝色
  561.     SetCtlColors $lbl_biaoti "666666"  transparent ;背景设成透明


  564.     ;完成按钮
  565.     ${NSD_CreateButton} 416 339 72 24 "完成"
  566.     Pop $0
  567.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_BTN.bmp $0
  568.     GetFunctionAddress $3 onClickend
  569.     SkinBtn::onClick $0 $3

  571.     ;最小化按钮
  572.     ${NSD_CreateButton} 434 1 31 18 ""
  573.     Pop $0
  574.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $0
  575.     GetFunctionAddress $3 onClickmini
  576.     SkinBtn::onClick $0 $3

  578.     ;关闭按钮
  579.     ${NSD_CreateButton} 465 1 31 18 ""
  580.     Pop $0
  581.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $0
  582.     GetFunctionAddress $3 MessgesboxPage
  583.     SkinBtn::onClick $0 $3
  584.     EnableWindow $0 0

  586.     ;贴背景大图
  587.     ${NSD_CreateBitmap} 0 0 100% 100% ""
  588.     Pop $BGImage
  589.     ${NSD_SetImage} $BGImage $PLUGINSDIR\beijing.bmp $ImageHandle


  592.     GetFunctionAddress $0 onGUICallback
  593.     WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  594.     nsDialogs::Show

  596.     ${NSD_FreeImage} $ImageHandle

  598. FunctionEnd


  601. Function Page.4

  603. FunctionEnd

  605. Function MessgesboxPage
  606.         IsWindow $WarningForm Create_End
  607.         !define Style ${WS_VISIBLE}|${WS_OVERLAPPEDWINDOW}
  608.         ${NSW_CreateWindowEx} $WarningForm $hwndparent ${ExStyle} ${Style} "" 1018

  610.         ;${NSW_SetWindowSize} $WarningForm 382 202
  611.         System::Call "user32::MoveWindow(i $WarningForm, i 0, i 0, i 382, i 202) i r2"
  612.         EnableWindow $hwndparent 0
  613.   ;SetCtlColors $hwndparent ""  transparent ;背景设成透明
  614.         System::Call `user32::SetWindowLong(i$WarningForm,i${GWL_STYLE},0x9480084C)i.R0`

  616.         ${NSW_CreateButton} 225 169 72 24 '确定'
  617.         Pop $1
  618.   SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $1
  619.   GetFunctionAddress $3 onClickclos
  620.   SkinBtn::onClick $1 $3

  622.         ${NSW_CreateButton} 303 169 72 24 '取消'
  623.         Pop $1
  624.   SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $1
  625.   GetFunctionAddress $3 OnClickQuitCancel
  626.   SkinBtn::onClick $1 $3

  628.   ;关闭按钮
  629.   ${NSW_CreateButton} 350 1 31 18 ""
  630.         Pop $1
  631.   SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $1
  632.   GetFunctionAddress $3 OnClickQuitCancel
  633.   SkinBtn::onClick $1 $3

  635.          ;退出提示
  636.   ${NSW_CreateLabel} 17% 95 170u 9u "确定要退出${PRODUCT_NAME}安装吗？"
  637.   Pop $R3
  638.   ;SetCtlColors $R2 "" 0xFFFFFF ;蓝色
  639.   SetCtlColors $R3 "636363"  transparent ;背景设成透明

  641.          ;左上角文字
  642.   ${NSW_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME}"
  643.   Pop $R2
  644.   ;SetCtlColors $R2 "" 0xFFFFFF ;蓝色
  645.   SetCtlColors $R2 "666666"  transparent ;背景设成透明

  647.         ;叹号
  648.         ${NSW_CreateBitmap} 10% 93 16u 16u ""
  649.   Pop $THImage
  650.   ${NSW_SetImage} $THImage $PLUGINSDIR\TanHao.bmp $ImageHandle

  652.         ;背景图
  653.         ${NSW_CreateBitmap} 0 0 380u 202u ""
  654.   Pop $BGImage
  655.   ${NSW_SetImage} $BGImage $PLUGINSDIR\mgbg.bmp $ImageHandle

  657.         GetFunctionAddress $0 onWarningGUICallback
  658.         WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  659. ;        WndProc::onCallback $THImage $0
  660. ;        WndProc::onCallback $R2 $0
  661. ;        WndProc::onCallback $R3 $0

  663.   ${NSW_CenterWindow} $WarningForm $hwndparent
  664.         ${NSW_Show}
  665.         Create_End:
  666.   ShowWindow $WarningForm ${SW_SHOW}

  668. FunctionEnd

  670. Section MainSetup
  671. SetDetailsPrint textonly
  672. DetailPrint "正在安装${PRODUCT_NAME}..."
  673. SetDetailsPrint None ;不显示信息
  674. nsisSlideshow::Show /NOUNLOAD /auto=$PLUGINSDIR\Slides.dat
  675. SetOutPath $INSTDIR
  676. Sleep 50
  677. Sleep 50
  678. Sleep 50
  679. Sleep 500
  680. Sleep 50
  681. Sleep 50
  682. Sleep 50
  683. Sleep 50
  684. Sleep 50
  685. Sleep 50
  686. Sleep 50
  687. Sleep 50
  688. Sleep 50
  689. Sleep 500
  690. Sleep 50
  691. Sleep 50
  692. Sleep 50
  693. Sleep 50
  694. Sleep 50
  695. Sleep 50
  696. Sleep 50
  697. Sleep 500
  698. Sleep 50
  699. Sleep 50
  700. Sleep 50
  701. Sleep 50
  702. Sleep 50
  703. Sleep 50
  704. Sleep 50
  705. Sleep 500
  706. Sleep 50
  707. Sleep 50
  708. Sleep 50
  709. Sleep 50
  710. Sleep 50
  711. Sleep 50
  712. Sleep 50
  713. Sleep 50
  714. Sleep 50
  715. Sleep 50
  716.   ;${NSD_GetState} $Checkbox1_State $0
  717.     ${If} $Checkbox1_State == 1
  718.     DetailPrint "选中"
  719.     MessageBox MB_OK '选中'
  720.     ${EndIf}
  721. MessageBox MB_OK '选中项:$\r$\n$Checkbox1_State$\r$\n$Checkbox2_State$\r$\n$Checkbox3_State$\r$\n$Checkbox4_State$\r$\n安装目录：$INSTDIR'
  722. nsisSlideshow::Stop
  723. ExecShell "open" "http://item.taobao.com/item.htm?id=20321929386"
  724. SetAutoClose true
  725. SectionEnd

  727. #----------------------------------------------
  728. #创建控制面板卸载程序信息 ,下面的具体用法卡查看帮助  D.2 添加卸载信息到添加/删除程序面板  或者在帮助里搜索关键词，如：DisplayName
  729. #----------------------------------------------
  730. Section -Post
  731.   WriteUninstaller "$INSTDIR\uninst.exe" ;这个是生成卸载程序
  732.   WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\AppMainExe.exe" ;这些请自行修改成自己的程序
  733.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
  734.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
  735.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$INSTDIR\AppMainExe.exe" ;这些请自行修改成自己的程序
  736.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
  737.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
  738. SectionEnd


  741. ;处理页面跳转的命令
  742. Function RelGotoPage
  743.   IntCmp $R9 0 0 Move Move
  744.     StrCmp $R9 "X" 0 Move
  745.       StrCpy $R9 "120"
  746.   Move:
  747.   SendMessage $HWNDPARENT "0x408" "$R9" ""
  748. FunctionEnd

  750. Function onClickins
  751.   StrCpy $R9 1 ;Goto the next page
  752.   Call RelGotoPage
  753.   Abort
  754. FunctionEnd

  756. Function onClickin
  757. StrCpy $Checkbox1_State 0  ;这里，我直接把第二页的四个选项情况写出来了，请自己修改
  758. StrCpy $Checkbox2_State 0
  759. StrCpy $Checkbox3_State 1
  760. StrCpy $Checkbox4_State 1
  761.   StrCpy $R9 2 ;Goto the next page
  762.   Call RelGotoPage
  763.   Abort
  764. FunctionEnd

  766. Function onClickinst
  767.   ${NSD_GetText} $Txt_Browser  $R0  ;获得设置的安装路径

  769.   ;判断目录是否正确
  770.         ClearErrors
  771.         CreateDirectory "$R0"
  772.         IfErrors 0 +3
  773.   MessageBox MB_ICONINFORMATION|MB_OK "'$R0' 安装目录不存在，请重新设置。"
  774.   Return

  776.         StrCpy $INSTDIR  $R0  ;保存安装路径

  778.         ;跳到下一页， $R9是NavigationGotoPage 函数需要的跳转参数变量
  779.   StrCpy $R9 1
  780.   call RelGotoPage
  781. FunctionEnd
  782. #------------------------------------------
  783. #最小化代码
  784. #------------------------------------------
  785. Function onClickmini
  786. System::Call user32::CloseWindow(i$HWNDPARENT) ;最小化
  787. FunctionEnd

  789. #------------------------------------------
  790. #关闭代码
  791. #------------------------------------------
  792. Function onClickclos
  793. SendMessage $hwndparent ${WM_CLOSE} 0 0  ;关闭
  794. FunctionEnd

  796. Function OnClickQuitCancel
  797.   ${NSW_DestroyWindow} $WarningForm
  798.   EnableWindow $hwndparent 1
  799.   BringToFront
  800. FunctionEnd

  802. #--------------------------------------------------------
  803. # 路径选择按钮事件，打开Windows系统自带的目录选择对话框
  804. #--------------------------------------------------------
  805. Function onButtonClickSelectPath


  808.          ${NSD_GetText} $Txt_Browser  $0
  809.    nsDialogs::SelectFolderDialog  "请选择 ${PRODUCT_NAME} 安装目录："  "$0"
  810.    Pop $0
  811.    ${IfNot} $0 == error
  812.                         ${NSD_SetText} $Txt_Browser  $0
  813.         ${EndIf}

  815. FunctionEnd

  817. #-------------------------------------------------
  818. # 第一个Lable点击，同步CheckBox状态处理函数
  819. #-------------------------------------------------
  820. Function onCheckbox1

  822.          ${NSD_GetState} $Checkbox1 $0

  824.    ${If} $0 == ${BST_CHECKED}
  825.                          ${NSD_SetState} $Checkbox1 ${BST_UNCHECKED}
  826.          ${Else}
  827.                          ${NSD_SetState} $Checkbox1 ${BST_CHECKED}
  828.          ${EndIf}

  830. FunctionEnd

  832. #-------------------------------------------------
  833. # 第二个Lable点击，同步CheckBox状态处理函数
  834. #-------------------------------------------------
  835. Function onCheckbox2

  837.          ${NSD_GetState} $Checkbox2 $0

  839.    ${If} $0 == ${BST_CHECKED}
  840.                          ${NSD_SetState} $Checkbox2 ${BST_UNCHECKED}
  841.          ${Else}
  842.                          ${NSD_SetState} $Checkbox2 ${BST_CHECKED}
  843.          ${EndIf}

  845. FunctionEnd

  847. #-------------------------------------------------
  848. # 第三个Lable点击，同步CheckBox状态处理函数
  849. #-------------------------------------------------
  850. Function onCheckbox3

  852.          ${NSD_GetState} $Checkbox3 $0

  854.    ${If} $0 == ${BST_CHECKED}
  855.                          ${NSD_SetState} $Checkbox3 ${BST_UNCHECKED}
  856.          ${Else}
  857.                          ${NSD_SetState} $Checkbox3 ${BST_CHECKED}
  858.          ${EndIf}

  860. FunctionEnd

  862. #-------------------------------------------------
  863. # 第四个Lable点击，同步CheckBox状态处理函数
  864. #-------------------------------------------------
  865. Function onCheckbox4

  867.          ${NSD_GetState} $Checkbox4 $0

  869.    ${If} $0 == ${BST_CHECKED}
  870.                          ${NSD_SetState} $Checkbox4 ${BST_UNCHECKED}
  871.          ${Else}
  872.                          ${NSD_SetState} $Checkbox4 ${BST_CHECKED}
  873.          ${EndIf}

  875. FunctionEnd


  878. ;完成页面完成按钮
  879. Function onClickend
  880. SendMessage $hwndparent ${WM_CLOSE} 0 0
  881. FunctionEnd

  883. #----------------------------------------------
  884. #执行卸载任务
  885. #----------------------------------------------
  886. Function UninstallSoft
  887.   ReadRegStr $R0 HKLM \
  888.   "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" \
  889.   "UninstallString"
  890.   ${GetParent} "$R0" $R1
  891.   StrCmp $R0 "" done
  892.   IfFileExists $R0 uninst
  893.         Goto done
  894. ;运行卸载程序
  895. uninst:
  896.   MessageBox MB_ICONQUESTION|MB_YESNO|MB_TOPMOST "系统已存在${PRODUCT_NAME}，是否卸载？" IDYES +2
  897.   Goto done
  898.   ExecWait "$R0 /S _?=$R1" ;这里$R0为读取到的卸载程序名称， /S是静默卸载参数使用NSIS生成的卸载程序必须要加上 _? 才能等待卸载。$R1是软件位置
  899.   IfFileExists "$R1" dir ;如果 $R1软件位置 还有文件则跳转到 DIR: 删除里面的所有文件
  900.   Goto done
  901. dir: ;如果文件夹存在
  902.         ;Delete "$R1\*.*" ;即删除里面所有文件,请谨慎使用

  904. done:

  906. FunctionEnd

  908. /******************************
  909. *  以下是安装程序的卸载部分  *
  910. ******************************/

  912. Section Uninstall
  913. SetDetailsPrint textonly
  914. DetailPrint "正在卸载${PRODUCT_NAME}..."
  915.   Sleep 5000
  916.   Delete "$INSTDIR\uninst.exe"

  918.   RMDir "$INSTDIR"

  920.   DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
  921.   DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}"
  922.   SetAutoClose true
  923. SectionEnd

  925. #-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#

  927. Function un.Page.5
  928.     GetDlgItem $0 $HWNDPARENT 1
  929.     ShowWindow $0 ${SW_HIDE}
  930.     GetDlgItem $0 $HWNDPARENT 2
  931.     ShowWindow $0 ${SW_HIDE}
  932.     GetDlgItem $0 $HWNDPARENT 3
  933.     ShowWindow $0 ${SW_HIDE}

  935.     nsDialogs::Create 1044
  936.     Pop $0
  937.     ${If} $0 == error
  938.         Abort
  939.     ${EndIf}
  940.     SetCtlColors $0 ""  transparent ;背景设成透明

  942.     ${NSW_SetWindowSize} $0 498 373 ;改变窗体大小


  945.     ${NSD_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME} 卸载"
  946.     Pop $2
  947.     SetCtlColors $2 666666  transparent ;背景设成透明

  949.     ${NSD_CreateLabel} 10% 25% 250u 15u '"欢迎使用${PRODUCT_NAME}"卸载向导！'
  950.     Pop $2
  951.     SetCtlColors $2 ""  transparent ;背景设成透明
  952.     CreateFont $1 "宋体" "11" "700"
  953.     SendMessage $2 ${WM_SETFONT} $1 0

  955.     ${NSD_CreateLabel} 10% 31% 280u 25u "这个向导将指引你从计算机移除${PRODUCT_NAME}。单击【卸载】按钮开始卸载。"
  956.     Pop $2
  957.     SetCtlColors $2 "666666"  transparent ;背景设成透明

  959.     ;创建取消按钮
  960.     ${NSD_CreateButton} 416 339 72 24 "取消"
  961.     Pop $0
  962.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $0
  963.     GetFunctionAddress $3 un.onClickclos
  964.     SkinBtn::onClick $0 $3

  966.     ${NSD_CreateButton} 338 339 72 24 "卸载"
  967.     Pop $R0
  968.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $R0
  969.     GetFunctionAddress $3 un.onClickins
  970.     SkinBtn::onClick $R0 $3

  972.     ;最小化按钮
  973.     ${NSD_CreateButton} 434 1 31 18 ""
  974.     Pop $0
  975.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $0
  976.     GetFunctionAddress $3 un.onClickmini
  977.     SkinBtn::onClick $0 $3

  979.     ;关闭按钮
  980.     ${NSD_CreateButton} 465 1 31 18 ""
  981.     Pop $0
  982.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $0
  983.     GetFunctionAddress $3 un.onClickclos
  984.     SkinBtn::onClick $0 $3

  986.     ;贴背景大图
  987.     ${NSD_CreateBitmap} 0 0 100% 100% ""
  988.     Pop $BGImage
  989.     ${NSD_SetImage} $BGImage $PLUGINSDIR\beijing.bmp $ImageHandle


  992.     GetFunctionAddress $0 un.onGUICallback
  993.     WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  994.     nsDialogs::Show

  996.     ${NSD_FreeImage} $ImageHandle
  997. FunctionEnd

  999. Function un.InstFiles.PRO

  1001. FunctionEnd

  1003. Function un.InstFiles.Show
  1004.     FindWindow $BCSJ "#32770" "" $HWNDPARENT
  1005.     GetDlgItem $0 $HWNDPARENT 1
  1006.     ShowWindow $0 ${SW_HIDE}
  1007.     GetDlgItem $0 $HWNDPARENT 2
  1008.     ShowWindow $0 ${SW_HIDE}
  1009.     GetDlgItem $0 $HWNDPARENT 3
  1010.     ShowWindow $0 ${SW_HIDE}
  1011.     GetDlgItem $1 $BCSJ 1027
  1012.     ShowWindow $1 ${SW_HIDE}

  1014.     GetDlgItem $R0 $BCSJ 1004  ;设置进度条位置
  1015.     System::Call "user32::MoveWindow(i R0, i 30, i 100, i 440, i 12) i r2"


  1018.     StrCpy $R0 $BCSJ ;改变页面大小,不然贴图不能全页
  1019.     System::Call "user32::MoveWindow(i R0, i 0, i 0, i 498, i 373) i r2"
  1020.     GetFunctionAddress $0 un.onGUICallback
  1021.     WndProc::onCallback $R0 $0 ;处理无边框窗体移动

  1023.     GetDlgItem $R1 $BCSJ 1006  ;获取1006控件设置颜色并改变位置
  1024.     SetCtlColors $R1 ""  F6F6F6 ;背景设成F6F6F6,注意颜色不能设为透明，否则重叠
  1025.     System::Call "user32::MoveWindow(i R1, i 30, i 82, i 440, i 12) i r2"

  1027.     GetDlgItem $R3 $BCSJ 1990  ;获取1006控件设置颜色并改变位置
  1028.     System::Call "user32::MoveWindow(i R3, i 434, i 1, i 31, i 18) i r2"
  1029.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $R3
  1030.                 GetFunctionAddress $3 un.onClickmini
  1031.     SkinBtn::onClick $R3 $3
  1032.     ;SetCtlColors $R1 ""  F6F6F6 ;背景设成F6F6F6,注意颜色不能设为透明，否则重叠

  1034.     GetDlgItem $R4 $BCSJ 1991  ;获取1006控件设置颜色并改变位置
  1035.     System::Call "user32::MoveWindow(i R4, i 465, i 1, i 31, i 18) i r2" ;改变位置465, 1, 31, 18
  1036.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $R4
  1037.                 GetFunctionAddress $3 un.onClickclos
  1038.     SkinBtn::onClick $R4 $3
  1039.     EnableWindow $R4 0  ;禁止0为禁止

  1041.     GetDlgItem $R5 $BCSJ 1992  ;获取1006控件设置颜色并改变位置
  1042.     System::Call "user32::MoveWindow(i R5, i 416, i 339, i 72, i 24) i r2"
  1043.     ${NSD_SetText} $R5 "安装"
  1044.                 SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $R5
  1045.                 ;GetFunctionAddress $3 un.onClickins
  1046.     SkinBtn::onClick $R5 $3
  1047.     EnableWindow $R5 0

  1049.     GetDlgItem $R7 $BCSJ 1993  ;获取1993控件设置颜色并改变位置
  1050.     SetCtlColors $R7 "666666"  transparent ;
  1051.     System::Call "user32::MoveWindow(i R7, i 38, i 12, i 150, i 12) i r2"
  1052.     ${NSD_SetText} $R7 "${PRODUCT_NAME} 安装" ;设置某个控件的 text 文本


  1055.     GetDlgItem $R8 $BCSJ 1016  ;获取1006控件设置颜色并改变位置
  1056.     SetCtlColors $R8 ""  F6F6F6 ;背景设成F6F6F6,注意颜色不能设为透明，否则重叠
  1057.     System::Call "user32::MoveWindow(i R8, i 30, i 120, i 440, i 180) i r2"

  1059.     FindWindow $R2 "#32770" "" $HWNDPARENT
  1060.     GetDlgItem $R0 $R2 1995
  1061.     System::Call "user32::MoveWindow(i R0, i 0, i 0, i 498, i 373) i r2"
  1062.     ${NSD_SetImage} $R0 $PLUGINSDIR\beijing.bmp $ImageHandle

  1064.                 ;这里是给进度条贴图
  1065.     FindWindow $R2 "#32770" "" $HWNDPARENT
  1066.     GetDlgItem $5 $R2 1004
  1067.           SkinProgress::Set $5 "$PLUGINSDIR\Progress.bmp" "$PLUGINSDIR\ProgressBar.bmp"

  1069. FunctionEnd

  1071. Function un.Page.6
  1072.     GetDlgItem $0 $HWNDPARENT 1
  1073.     ShowWindow $0 ${SW_HIDE}
  1074.     GetDlgItem $0 $HWNDPARENT 2
  1075.     ShowWindow $0 ${SW_HIDE}
  1076.     GetDlgItem $0 $HWNDPARENT 3
  1077.     ShowWindow $0 ${SW_HIDE}
  1078.    
  1079.     nsDialogs::Create 1044
  1080.     Pop $0
  1081.     ${If} $0 == error
  1082.         Abort
  1083.     ${EndIf}
  1084.     SetCtlColors $0 ""  transparent ;背景设成透明

  1086.     ${NSW_SetWindowSize} $0 498 373 ;改变窗体大小

  1088.     ${NSD_CreateLabel} 25u 8u 150u 9u "${PRODUCT_NAME} 卸载"
  1089.     Pop $2
  1090.     SetCtlColors $2 666666  transparent ;背景设成透明

  1092.     ${NSD_CreateLabel} 10% 25% 250u 15u '"${PRODUCT_NAME}"卸载完成！'
  1093.     Pop $2
  1094.     SetCtlColors $2 ""  transparent ;背景设成透明
  1095.     CreateFont $1 "宋体" "11" "700"
  1096.     SendMessage $2 ${WM_SETFONT} $1 0

  1098.     ${NSD_CreateLabel} 10% 31% 250u 12u "${PRODUCT_NAME}已从您的电脑中成功移除，请单击【完成】。"
  1099.     Pop $2
  1100.     SetCtlColors $2 666666  transparent ;背景设成透明

  1102.     ;完成按钮
  1103.     ${NSD_CreateButton} 416 339 72 24 "完成"
  1104.     Pop $2
  1105.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_btn.bmp $2
  1106.     GetFunctionAddress $3 un.onClickend
  1107.     SkinBtn::onClick $2 $3

  1109.     ;最小化按钮
  1110.     ${NSD_CreateButton} 434 1 31 18 ""
  1111.     Pop $0
  1112.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_mini.bmp $0
  1113.     GetFunctionAddress $3 un.onClickmini
  1114.     SkinBtn::onClick $0 $3

  1116.     ;关闭按钮
  1117.     ${NSD_CreateButton} 465 1 31 18 ""
  1118.     Pop $0
  1119.     SkinBtn::Set /IMGID=$PLUGINSDIR\btn_clos.bmp $0
  1120.     GetFunctionAddress $3 un.onClickclos
  1121.     SkinBtn::onClick $0 $3
  1122.     EnableWindow $0 0

  1124.     ;贴背景大图
  1125.     ${NSD_CreateBitmap} 0 0 100% 100% ""
  1126.     Pop $BGImage
  1127.     ${NSD_SetImage} $BGImage $PLUGINSDIR\beijing.bmp $ImageHandle
  1128.     GetFunctionAddress $0 un.onGUICallback
  1129.     WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  1130.     nsDialogs::Show

  1132. FunctionEnd


  1135. Function un.Page.7

  1137. FunctionEnd


  1140. Function un.onInit
  1141.     InitPluginsDir
  1142.     File `/ONAME=$PLUGINSDIR\BeiJing.bmp` `images\BeiJing.bmp`
  1143.     File `/oname=$PLUGINSDIR\btn_clos.bmp` `images\clos.bmp`
  1144.     File `/oname=$PLUGINSDIR\btn_mini.bmp` `images\mini.bmp`
  1145.     File `/oname=$PLUGINSDIR\btn_in.bmp` `images\in.bmp`
  1146.     File `/oname=$PLUGINSDIR\btn_btn.bmp` `images\btn.bmp`

  1148.                 ;进度条皮肤
  1149.           File `/oname=$PLUGINSDIR\Progress.bmp` `images\Progress.bmp`
  1150.           File `/oname=$PLUGINSDIR\ProgressBar.bmp` `images\ProgressBar.bmp`

  1152.     SkinBtn::Init "$PLUGINSDIR\btn_btn.bmp"
  1153.     SkinBtn::Init "$PLUGINSDIR\btn_in.bmp"
  1154.     SkinBtn::Init "$PLUGINSDIR\btn_mini.bmp"
  1155.                 SkinBtn::Init "$PLUGINSDIR\btn_clos.bmp"
  1156. FunctionEnd

  1158. Function un.onGUIInit
  1159.     ;消除边框
  1160.     System::Call `user32::SetWindowLong(i$HWNDPARENT,i${GWL_STYLE},0x9480084C)i.R0`
  1161.     ;隐藏一些既有控件
  1162.     GetDlgItem $0 $HWNDPARENT 1034
  1163.     ShowWindow $0 ${SW_HIDE}
  1164.     GetDlgItem $0 $HWNDPARENT 1035
  1165.     ShowWindow $0 ${SW_HIDE}
  1166.     GetDlgItem $0 $HWNDPARENT 1036
  1167.     ShowWindow $0 ${SW_HIDE}
  1168.     GetDlgItem $0 $HWNDPARENT 1037
  1169.     ShowWindow $0 ${SW_HIDE}
  1170.     GetDlgItem $0 $HWNDPARENT 1038
  1171.     ShowWindow $0 ${SW_HIDE}
  1172.     GetDlgItem $0 $HWNDPARENT 1039
  1173.     ShowWindow $0 ${SW_HIDE}
  1174.     GetDlgItem $0 $HWNDPARENT 1256
  1175.     ShowWindow $0 ${SW_HIDE}
  1176.     GetDlgItem $0 $HWNDPARENT 1028
  1177.     ShowWindow $0 ${SW_HIDE}

  1179.     ${NSW_SetWindowSize} $HWNDPARENT 498 373 ;改变主窗体大小
  1180.     System::Call User32::GetDesktopWindow()i.R0
  1181.     ;圆角
  1182.     System::Alloc 16
  1183.           System::Call user32::GetWindowRect(i$HWNDPARENT,isR0)
  1184.           System::Call *$R0(i.R1,i.R2,i.R3,i.R4)
  1185.           IntOp $R3 $R3 - $R1
  1186.           IntOp $R4 $R4 - $R2
  1187.           System::Call gdi32::CreateRoundRectRgn(i0,i0,iR3,iR4,i4,i4)i.r0
  1188.           System::Call user32::SetWindowRgn(i$HWNDPARENT,ir0,i1)
  1189.           System::Free $R0

  1191. FunctionEnd

  1193. ;处理无边框移动
  1194. Function un.onGUICallback
  1195.   ${If} $MSG = ${WM_LBUTTONDOWN}
  1196.     SendMessage $HWNDPARENT ${WM_NCLBUTTONDOWN} ${HTCAPTION} $0
  1197.   ${EndIf}
  1198. FunctionEnd

  1200. #------------------------------------------
  1201. #最小化代码
  1202. #------------------------------------------
  1203. Function un.onClickmini
  1204. System::Call user32::CloseWindow(i$HWNDPARENT) ;最小化
  1205. FunctionEnd

  1207. #------------------------------------------
  1208. #关闭代码
  1209. #------------------------------------------
  1210. Function un.onClickclos
  1211. SendMessage $hwndparent ${WM_CLOSE} 0 0  ;关闭
  1212. FunctionEnd

  1214. #------------------------------------------
  1215. #卸载完成页使用独立区段方便操作，如打开某个网页
  1216. #------------------------------------------
  1217. Function un.onClickend
  1218. SendMessage $hwndparent ${WM_CLOSE} 0 0
  1219. FunctionEnd

  1221. ;处理页面跳转的命令
  1222. Function un.RelGotoPage
  1223.   IntCmp $R9 0 0 Move Move
  1224.     StrCmp $R9 "X" 0 Move
  1225.       StrCpy $R9 "120"
  1226.   Move:
  1227.   SendMessage $HWNDPARENT "0x408" "$R9" ""
  1228. FunctionEnd

  1230. Function un.onClickins
  1231.   StrCpy $R9 1 ;Goto the next page
  1232.   Call un.RelGotoPage
  1233.   Abort
  1234. FunctionEnd

复制代码

全额附件下载
游客，本帖隐藏的内容需要积分高于 500 才可浏览，您当前积分为 0


回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|小黑屋|手机版|Archiver|SgzyStudio

GMT+8, 2024-5-17 15:39 , Processed in 0.116096 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表