NSIS总脚本代码参考

最新推荐文章于 2024-08-07 17:56:56 发布
最新推荐文章于 2024-08-07 17:56:56 发布
阅读量3k 收藏 7
点赞数 1
分类专栏： NSIS 文章标签： nsis 脚本

NSIS总脚本代码参考

注：参考博客：http://blog.csdn.net/taiyang1987912/article/details/40506439

Var MSG
Var Dialog

Var BGImage
Var MiddleImage         
Var ImageHandle
Var Btn_Next
Var Btn_Cancel
Var Btn_Agreement
Var Bool_License
Var Txt_License
Var Btn_Close
Var WarningForm

Var Ck_ShortCut
Var Bool_ShortCut
Var Lbl_ShortCut

Var Ck_AutoRun
Var Bool_AutoRun
Var Lbl_AutoRun

Var Ck_FinishPage
Var Bool_FinishPage
Var Lbl_FinishPage

Var Btn_Install

Var Txt_Browser
Var Btn_Browser

Var Btn_DetailsPrint
Var UDetailsPrint   ;详细输入文字
Var Txt_DetailsPrint  ;详细文字框控件
Var Bool_DetailsPrint ;记录是否显示详细信息文本框

Var Lbl_Sumary
Var PB_ProgressBar

Var WebImg ;网页控件

Var Ck_Weibo
Var Bool_Weibo
Var Lbl_Weibo
Var Btn_Complete




;---------------------------全局编译脚本预定义的常量-----------------------------------------------------
!define  EM_BrandingText "testtest"
; MUI 预定义常量
!define MUI_ABORTWARNING
;安装图标的路径名字
!define MUI_ICON "images\fav.ico"
;卸载图标的路径名字
!define MUI_UNICON "images\fav.ico"
;产品协议书的路径名字
;!define MUI_PAGE_LICENSE_RTY "license\license.rtf"
!define EM_OUTFILE_NAME "test.exe"

;---------------------------设置软件压缩类型（也可以通过外面编译脚本控制）------------------------------------
SetCompressor lzma
BrandingText "${EM_BrandingText}"
SetCompress force
XPStyle on
; ------ MUI 现代界面定义 (1.67 版本以上兼容) ------
!include "MUI2.nsh"
!include "WinCore.nsh"
;引用文件函数头文件
!include "FileFunc.nsh"
!include "nsWindows.nsh"
!include "LoadRTF.nsh"
!include "WinMessages.nsh"

!define MUI_CUSTOMFUNCTION_GUIINIT onGUIInit

;自定义页面
Page custom WelcomePage
Page custom InstallationPage
Page custom LoadingPage
Page custom CompletePage

; 许可协议页面
!define MUI_LICENSEPAGE_CHECKBOX

; 安装目录选择页面
!insertmacro MUI_PAGE_DIRECTORY
; 安装过程页面
!insertmacro MUI_PAGE_INSTFILES
; 安装完成页面
!insertmacro MUI_PAGE_FINISH
; 安装卸载过程页面
!insertmacro MUI_UNPAGE_INSTFILES
; 安装界面包含的语言设置
!insertmacro MUI_LANGUAGE "SimpChinese"

;------------------------------------------------------MUI 现代界面定义以及函数结束------------------------
;应用程序显示名字
Name "test"
;应用程序输出路径
OutFile "${EM_OUTFILE_NAME}"
InstallDir "$PROGRAMFILES\test"

Function .onInit
    InitPluginsDir
    File `/ONAME=$PLUGINSDIR\bg.bmp` `images\bg.bmp`
    File `/ONAME=$PLUGINSDIR\quit.bmp` `images\quit.bmp`
    File `/ONAME=$PLUGINSDIR\select.bmp` `images\select.bmp`
    File `/ONAME=$PLUGINSDIR\welcome.bmp` `images\welcome.bmp`
        File `/ONAME=$PLUGINSDIR\btn_next.bmp` `images\btn_next.bmp`
        File `/oname=$PLUGINSDIR\btn_agreement1.bmp` `images\btn_agreement1.bmp`
    File `/oname=$PLUGINSDIR\btn_agreement2.bmp` `images\btn_agreement2.bmp`
    File `/oname=$PLUGINSDIR\license.rtf` `license\license.rtf`
    File `/oname=$PLUGINSDIR\btn_close.bmp` `images\btn_close.bmp`
    File `/oname=$PLUGINSDIR\btn_cancel.bmp` `images\btn_cancel.bmp`
    File `/oname=$PLUGINSDIR\checkbox1.bmp` `images\checkbox1.bmp`
    File `/oname=$PLUGINSDIR\checkbox2.bmp` `images\checkbox2.bmp`
    File `/oname=$PLUGINSDIR\btn_quit.bmp` `images\btn_quit.bmp`
    File `/oname=$PLUGINSDIR\btn_install.bmp` `images\btn_install.bmp`
    File `/oname=$PLUGINSDIR\btn_change.bmp` `images\btn_change.bmp`

    File `/oname=$PLUGINSDIR\index.htm` `images\index.htm`
    File `/oname=$PLUGINSDIR\loading_pic1.bmp` `images\loading_pic1.bmp`
    File `/oname=$PLUGINSDIR\loading_pic2.bmp` `images\loading_pic2.bmp`
    File `/oname=$PLUGINSDIR\loading_pic3.bmp` `images\loading_pic3.bmp`
    File `/oname=$PLUGINSDIR\loading_pic4.bmp` `images\loading_pic4.bmp`
    File `/oname=$PLUGINSDIR\installation.bmp` `images\installation.bmp`

    File `/oname=$PLUGINSDIR\loading1.bmp` `images\loading1.bmp`
    File `/oname=$PLUGINSDIR\loading2.bmp` `images\loading2.bmp`
    File `/oname=$PLUGINSDIR\btn_complete.bmp` `images\btn_complete.bmp`
    File `/oname=$PLUGINSDIR\success.bmp` `images\success.bmp`

        SkinBtn::Init "$PLUGINSDIR\btn_next.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_agreement1.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_agreement2.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_close.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_cancel.bmp"
        SkinBtn::Init "$PLUGINSDIR\checkbox1.bmp"
        SkinBtn::Init "$PLUGINSDIR\checkbox2.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_quit.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_install.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_change.bmp"
        SkinBtn::Init "$PLUGINSDIR\btn_complete.bmp"

FunctionEnd

Function onGUIInit
    ;消除边框
    System::Call `user32::SetWindowLong(i$HWNDPARENT,i${GWL_STYLE},0x9480084C)i.R0`
    ;隐藏一些既有控件
    GetDlgItem $0 $HWNDPARENT 1034
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1035
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1036
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1037
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1038
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1039
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1256
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 1028
    ShowWindow $0 ${SW_HIDE}
FunctionEnd

;处理无边框移动
Function onGUICallback
  ${If} $MSG = ${WM_LBUTTONDOWN}
    SendMessage $HWNDPARENT ${WM_NCLBUTTONDOWN} ${HTCAPTION} $0
  ${EndIf}
FunctionEnd

Function onWarningGUICallback
  ${If} $MSG = ${WM_LBUTTONDOWN}
    SendMessage $WarningForm ${WM_NCLBUTTONDOWN} ${HTCAPTION} $0
  ${EndIf}
FunctionEnd

;协议按钮事件
Function onClickAgreement
    ${IF} $Bool_License == 1
        ShowWindow $Txt_License ${SW_HIDE}
        ShowWindow $MiddleImage ${SW_SHOW}
        IntOp $Bool_License $Bool_License - 1
        StrCpy $1 $Btn_Agreement
        Call SkinBtn_Agreement1
    ${ELSE}
      ShowWindow $Txt_License ${SW_SHOW}
      ShowWindow $MiddleImage ${SW_HIDE}
        IntOp $Bool_License $Bool_License + 1
        StrCpy $1 $Btn_Agreement
        Call SkinBtn_Agreement2
    ${EndIf}
FunctionEnd

;-----------------------------------------皮肤贴图方法----------------------------------------------------
Function SkinBtn_Next
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_next.bmp $1
FunctionEnd

Function SkinBtn_Agreement1
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_agreement1.bmp $1
FunctionEnd

Function SkinBtn_Agreement2
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_agreement2.bmp $1
FunctionEnd

Function SkinBtn_Close
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_close.bmp $1
FunctionEnd

Function SkinBtn_Cancel
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_cancel.bmp $1
FunctionEnd

Function SkinBtn_Checked
  SkinBtn::Set /IMGID=$PLUGINSDIR\checkbox2.bmp $1
FunctionEnd

Function SkinBtn_UnChecked
  SkinBtn::Set /IMGID=$PLUGINSDIR\checkbox1.bmp $1
FunctionEnd

Function SkinBtn_Quit
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_quit.bmp $1
FunctionEnd

Function SkinBtn_Install
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_install.bmp $1
FunctionEnd

Function SkinBtn_Browser
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_change.bmp $1
FunctionEnd

Function SkinBtn_DetailsPrint1
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_installlist1.bmp $1
FunctionEnd

Function SkinBtn_DetailsPrint2
  SkinBtn::Set /IMGID=$PLUGINSDIR\btn_installlist2.bmp $1
FunctionEnd

Function SkinBtn_Complete
    SkinBtn::Set /IMGID=$PLUGINSDIR\btn_complete.bmp $1
FunctionEnd

Function OnClickQuitOK
    Call onClickClose
FunctionEnd

Function OnClick_CheckShortCut
  ${IF} $Bool_ShortCut == 1
        IntOp $Bool_ShortCut $Bool_ShortCut - 1
        StrCpy $1 $Ck_ShortCut
        Call SkinBtn_UnChecked
    ${ELSE}
        IntOp $Bool_ShortCut $Bool_ShortCut + 1
        StrCpy $1 $Ck_ShortCut
        Call SkinBtn_Checked
    ${EndIf}
FunctionEnd

Function OnClick_CheckAutoRun
  ${IF} $Bool_AutoRun == 1
        IntOp $Bool_AutoRun $Bool_AutoRun - 1
        StrCpy $1 $Ck_AutoRun
        Call SkinBtn_UnChecked
    ${ELSE}
        IntOp $Bool_AutoRun $Bool_AutoRun + 1
        StrCpy $1 $Ck_AutoRun
        Call SkinBtn_Checked
    ${EndIf}
FunctionEnd

Function OnClick_CheckFinishPage
  ${IF} $Bool_FinishPage == 1
        IntOp $Bool_FinishPage $Bool_FinishPage - 1
        StrCpy $1 $Ck_FinishPage
        Call SkinBtn_UnChecked
    ${ELSE}
        IntOp $Bool_FinishPage $Bool_FinishPage + 1
        StrCpy $1 $Ck_FinishPage
        Call SkinBtn_Checked
    ${EndIf}
FunctionEnd

;点击右上角关闭按钮
Function onClickClose
    FindProcDLL::FindProc "test.exe"
    Sleep 500
    Pop $R0
    ${If} $R0 != 0
    KillProcDLL::KillProc "test.exe"
    ${EndIf}
FunctionEnd

;处理页面跳转的命令
Function RelGotoPage
  IntCmp $R9 0 0 Move Move
    StrCmp $R9 "X" 0 Move
      StrCpy $R9 "120"
  Move:
  SendMessage $HWNDPARENT "0x408" "$R9" ""
FunctionEnd

;下一步按钮事件
Function onClickNext
  StrCpy $R9 1 ;Goto the next page
  Call RelGotoPage
  Abort
FunctionEnd

;点击安装按钮
Function OnClick_Install
    StrCpy $R9 1 ;Goto the next page
    Call RelGotoPage
FunctionEnd

Function OnClickQuitCancel
  ${NSW_DestroyWindow} $WarningForm
  EnableWindow $hwndparent 1
  BringToFront
FunctionEnd

Function onCancel
    IsWindow $WarningForm Create_End
    !define Style ${WS_VISIBLE}|${WS_OVERLAPPEDWINDOW}
    ${NSW_CreateWindowEx} $WarningForm $hwndparent ${ExStyle} ${Style} "" 1018

    ${NSW_SetWindowSize} $WarningForm 349 184
    EnableWindow $hwndparent 0
    System::Call `user32::SetWindowLong(i$WarningForm,i${GWL_STYLE},0x9480084C)i.R0`
    ${NSW_CreateButton} 148 122 88 25 ''
    Pop $R0
    StrCpy $1 $R0
    Call SkinBtn_Quit
    ${NSW_OnClick} $R0 OnClickQuitOK

    ${NSW_CreateButton} 248 122 88 25 ''
    Pop $R0
    StrCpy $1 $R0
    Call SkinBtn_Cancel
    ${NSW_OnClick} $R0 OnClickQuitCancel

    ${NSW_CreateBitmap} 0 0 100% 100% ""
    Pop $BGImage
  ${NSW_SetImage} $BGImage $PLUGINSDIR\quit.bmp $ImageHandle
    GetFunctionAddress $0 onWarningGUICallback
    WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
  ${NSW_CenterWindow} $WarningForm $hwndparent
    ${NSW_Show}
    Create_End:
  ShowWindow $WarningForm ${SW_SHOW}
FunctionEnd

;更改目录事件
Function OnChange_DirRequest
    ;Pop $0
    ;System::Call "user32::GetWindowText($Txt_Browser,t.r0,i${NSIS_MAX_STRLEN})"
    ;StrCpy $INSTDIR $0
FunctionEnd

Function OnClick_BrowseButton
  Pop $0

  Push $INSTDIR ; input string "C:\Program Files\ProgramName"
  Call GetParent
  Pop $R0 ; first part "C:\Program Files"

  Push $INSTDIR ; input string "C:\Program Files\ProgramName"
  Push "\" ; input chop char
  Call GetLastPart
  Pop $R1 ; last part "ProgramName"

  nsDialogs::SelectFolderDialog "请选择 $R0 安装的文件夹:" "$R0"
  Pop $0
  ${If} $0 == "error" # returns 'error' if 'cancel' was pressed?
    Return
  ${EndIf}
  ${If} $0 != ""
    StrCpy $INSTDIR "$0\$R1"
    system::Call `user32::SetWindowText(i $Txt_Browser, t "$INSTDIR")`
  ${EndIf}
FunctionEnd
; Usage:
; Push "C:\Program Files\Directory\Whatever"
; Call GetParent
; Pop $R0 ; $R0 equal "C:\Program Files\Directory"
;得到选中目录用于拼接安装程序名称
Function GetParent
  Exch $R0 ; input string
  Push $R1
  Push $R2
  Push $R3
  StrCpy $R1 0
  StrLen $R2 $R0
  loop:
    IntOp $R1 $R1 + 1
    IntCmp $R1 $R2 get 0 get
    StrCpy $R3 $R0 1 -$R1
    StrCmp $R3 "\" get
    Goto loop
  get:
    StrCpy $R0 $R0 -$R1
    Pop $R3
    Pop $R2
    Pop $R1
    Exch $R0 ; output string
FunctionEnd

; Usage:
; Push $INSTDIR ; input string "C:\Program Files\ProgramName"
; Push "\" ; input chop char
; Call GetLastPart
; Pop $R1 ; last part "ProgramName"
;截取选中目录
Function GetLastPart
  Exch $0 ; chop char
  Exch
  Exch $1 ; input string
  Push $2
  Push $3
  StrCpy $2 0
  loop:
    IntOp $2 $2 - 1
    StrCpy $3 $1 1 $2
    StrCmp $3 "" 0 +3
      StrCpy $0 ""
      Goto exit2
    StrCmp $3 $0 exit1
    Goto loop
  exit1:
    IntOp $2 $2 + 1
    StrCpy $0 $1 "" $2
  exit2:
    Pop $3
    Pop $2
    Pop $1
    Exch $0 ; output string
FunctionEnd

;详细安装事件
Function onClickDetailsPrint
    ${IF} $Bool_DetailsPrint == 1
        ShowWindow $WebImg ${SW_SHOW}
        ShowWindow $Txt_DetailsPrint ${SW_HIDE}
        IntOp $Bool_DetailsPrint $Bool_DetailsPrint - 1
        StrCpy $1 $Btn_DetailsPrint
        Call SkinBtn_DetailsPrint1
    ${ELSE}
        ShowWindow $WebImg ${SW_HIDE}
        ShowWindow $Txt_DetailsPrint ${SW_SHOW}
        IntOp $Bool_DetailsPrint $Bool_DetailsPrint + 1
        StrCpy $1 $Btn_DetailsPrint
        Call SkinBtn_DetailsPrint2
    ${EndIf}
FunctionEnd

Function NSD_TimerFun
    GetFunctionAddress $0 NSD_TimerFun
    nsDialogs::KillTimer $0
    !if 1   ;是否在后台运行,1有效
        GetFunctionAddress $0 InstallationMainFun
        BgWorker::CallAndWait
    !else
        Call InstallationMainFun
    !endif
FunctionEnd

Function OnClick_CheckWeibo
    ${IF} $Bool_Weibo == 1
        IntOp $Bool_Weibo $Bool_Weibo - 1
        StrCpy $1 $Ck_Weibo
        Call SkinBtn_UnChecked
    ${ELSE}
        IntOp $Bool_Weibo $Bool_Weibo + 1
        StrCpy $1 $Ck_Weibo
        Call SkinBtn_Checked
    ${EndIf}
FunctionEnd

;点击最后完成
Function onClickComplete

    ;判断是否添加桌面快捷方式
    ${If} $Bool_ShortCut == 1
      ;CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\test.exe"
    ${EndIf}
    ;判断是否开机运行程序
    ${If} $Bool_AutoRun == 1
      ;CreateShortCut "$QUICKLAUNCH\${PRODUCT_NAME}.lnk" "$INSTDIR\${PRODUCT_EXECUTE_NAME}"
      ;CreateShortCut "$SMSTARTUP\${PRODUCT_NAME}.lnk" "$INSTDIR\${PRODUCT_EXECUTE_NAME}"
    ${EndIf}
    ;判断是否打开网站
    ${If} $Bool_FinishPage == 1
        ExecShell open "http://www.pylife.net"
    ${EndIf}
    ;判断是否立即运行程序
    ${If} $Bool_Weibo == 1
      ExecShell open "http://weibo.com/pylife"
      ShowWindow $HWNDPARENT ${SW_HIDE}
      GetFunctionAddress $0 onClickClose
      BgWorker::CallAndWait
        ${ELSE}
          ShowWindow $HWNDPARENT ${SW_HIDE}
      Call onClickClose
    ${EndIf}
FunctionEnd

Function InstallationMainFun


    SendMessage $PB_ProgressBar ${PBM_SETRANGE32} 0 100  ;总步长为顶部定义值
        SendMessage $PB_ProgressBar ${PBM_SETPOS} 10 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 20 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 30 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 40 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 50 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 60 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 70 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 80 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 90 0
    Sleep 1000
    SendMessage $PB_ProgressBar ${PBM_SETPOS} 100 0

    ShowWindow $Btn_Next ${SW_SHOW}
        ShowWindow $Btn_Install ${SW_HIDE}
        EnableWindow $Btn_Cancel 0


FunctionEnd



Function WelcomePage
    GetDlgItem $0 $HWNDPARENT 1
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 2
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 3
    ShowWindow $0 ${SW_HIDE}

    nsDialogs::Create 1044
    Pop $0
    ${If} $0 == error
        Abort
    ${EndIf}
    SetCtlColors $0 ""  transparent ;背景设成透明

    ${NSW_SetWindowSize} $HWNDPARENT 513 354 ;改变窗体大小
    ${NSW_SetWindowSize} $0 513 354 ;改变Page大小

    ;读取RTF的文本框
        nsDialogs::CreateControl "RichEdit20A" \
    ${ES_READONLY}|${WS_VISIBLE}|${WS_CHILD}|${WS_TABSTOP}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN} \
        ${WS_EX_STATICEDGE}  5 35 501 216 ''
    Pop $Txt_License
        ${LoadRTF} '$PLUGINSDIR\license.rtf' $Txt_License
    ShowWindow $Txt_License ${SW_HIDE}


    ;下一步
    ${NSD_CreateButton} 320 315 88 25 ""
        Pop $Btn_Next
        StrCpy $1 $Btn_Next
        Call SkinBtn_Next
        GetFunctionAddress $3 onClickNext
    SkinBtn::onClick $1 $3

        ;取消
    ${NSD_CreateButton} 417 315 88 25 ""
    Pop $Btn_Cancel
    StrCpy $1 $Btn_Cancel
    Call SkinBtn_Cancel
    GetFunctionAddress $3 onCancel
  SkinBtn::onClick $1 $3

    ;关闭按钮
  ${NSD_CreateButton} 490 8 15 15 ""
    Pop $Btn_Close
    StrCpy $1 $Btn_Close
    Call SkinBtn_Close
  GetFunctionAddress $3 onCancel
  SkinBtn::onClick $1 $3

    ;用户协议
        ${NSD_CreateButton} 181 273 95 15 ""
        Pop $Btn_Agreement
        StrCpy $1 $Btn_Agreement
        Call SkinBtn_Agreement1
      GetFunctionAddress $3 onClickAgreement
      SkinBtn::onClick $1 $3
        StrCpy $Bool_License 0 ;初始化值为0

    ;贴小图
    ${NSD_CreateBitmap} 1 31 511 226 ""
    Pop $MiddleImage
    ${NSD_SetImage} $MiddleImage $PLUGINSDIR\welcome.bmp $ImageHandle
    ;ShowWindow $MiddleImage ${SW_HIDE}

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

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

Function InstallationPage
  GetDlgItem $0 $HWNDPARENT 1
  ShowWindow $0 ${SW_HIDE}
  GetDlgItem $0 $HWNDPARENT 2
  ShowWindow $0 ${SW_HIDE}
  GetDlgItem $0 $HWNDPARENT 3
  ShowWindow $0 ${SW_HIDE}

    nsDialogs::Create 1044
    Pop $0
    ${If} $0 == error
        Abort
    ${EndIf}
    SetCtlColors $0 ""  transparent ;背景设成透明

    ${NSW_SetWindowSize} $HWNDPARENT 520 350 ;改变自定义窗体大小
    ${NSW_SetWindowSize} $0 520 350 ;改变自定义Page大小

    ;更改目录控件创建
    ${NSD_CreateDirRequest} 26 79 358 25 "$INSTDIR"
    Pop $Txt_Browser
    ${NSD_OnChange} $Txt_Browser OnChange_DirRequest

    ${NSD_CreateBrowseButton} 400 79 88 25 ""
    Pop $Btn_Browser
    StrCpy $1 $Btn_Browser
    Call SkinBtn_Browser
    GetFunctionAddress $3 OnClick_BrowseButton
  SkinBtn::onClick $1 $3



    ;CheckBox选中项
    ${NSD_CreateButton} 26 150 15 15 ""
    Pop $Ck_ShortCut
    StrCpy $1 $Ck_ShortCut
    Call SkinBtn_Checked
    GetFunctionAddress $3 OnClick_CheckShortCut
    SkinBtn::onClick $1 $3
    StrCpy $Bool_ShortCut 1
    ${NSD_CreateLabel} 45 151 100 15 "添加桌面快捷方式"
    Pop $Lbl_ShortCut
    SetCtlColors $Lbl_ShortCut ""  transparent ;背景设成透明

    ${NSD_CreateButton} 26 180 15 15 ""
    Pop $Ck_AutoRun
    StrCpy $1 $Ck_AutoRun
    Call SkinBtn_Checked
    GetFunctionAddress $3 OnClick_CheckAutoRun
    SkinBtn::onClick $1 $3
    StrCpy $Bool_AutoRun 1
    ${NSD_CreateLabel} 45 181 175 15 "开机自动运行程序"
    Pop $Lbl_AutoRun
    SetCtlColors $Lbl_AutoRun ""  transparent ;背景设成透明

  ${NSD_CreateButton} 26 210 15 15 ""
    Pop $Ck_FinishPage
    StrCpy $1 $Ck_FinishPage
    Call SkinBtn_Checked
    GetFunctionAddress $3 OnClick_CheckFinishPage
  SkinBtn::onClick $1 $3
    StrCpy $Bool_FinishPage 1
  ${NSD_CreateLabel} 45 211 300 15 "安装完毕后打开烂菜的网站http://www.pylife.net"
  Pop $Lbl_FinishPage
  SetCtlColors $Lbl_FinishPage ""  transparent ;背景设成透明

    ;安装
    ${NSD_CreateButton} 320 315 88 25 ""
        Pop $Btn_Install
        StrCpy $1 $Btn_Install
        Call SkinBtn_Install
        GetFunctionAddress $3 OnClick_Install
      SkinBtn::onClick $1 $3

        ;取消
        ${NSD_CreateButton} 417 315 88 25 ""
        Pop $Btn_Cancel
        StrCpy $1 $Btn_Cancel
        Call SkinBtn_Cancel
        GetFunctionAddress $3 onCancel
      SkinBtn::onClick $1 $3

    ;关闭按钮
  ${NSD_CreateButton} 490 8 15 15 ""
    Pop $Btn_Close
    StrCpy $1 $Btn_Close
    Call SkinBtn_Close
  GetFunctionAddress $3 onCancel
  SkinBtn::onClick $1 $3

  ;贴背景大图
    ${NSD_CreateBitmap} 0 0 100% 100% ""
    Pop $BGImage
  ${NSD_SetImage} $BGImage $PLUGINSDIR\select.bmp $ImageHandle


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

;安装进度页面
Function LoadingPage
  GetDlgItem $0 $HWNDPARENT 1
  ShowWindow $0 ${SW_HIDE}
  GetDlgItem $0 $HWNDPARENT 2
  ShowWindow $0 ${SW_HIDE}
  GetDlgItem $0 $HWNDPARENT 3
  ShowWindow $0 ${SW_HIDE}

    nsDialogs::Create 1044
    Pop $0
    ${If} $0 == error
        Abort
    ${EndIf}
    SetCtlColors $0 ""  transparent ;背景设成透明

    ${NSW_SetWindowSize} $HWNDPARENT 520 350 ;改变自定义窗体大小
    ${NSW_SetWindowSize} $0 520 350 ;改变自定义Page大小

    ;Details输出文本框
    StrCpy $UDetailsPrint "开始执行安装$\r$\nhttp://www.eastmoney.com$\r$\n"
    nsDialogs::CreateControl EDIT "${__NSD_Text_STYLE}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN}" "${__NSD_Text_EXSTYLE}" 10 44 500 200 $UDetailsPrint
    Pop $Txt_DetailsPrint
    ShowWindow $Txt_DetailsPrint ${SW_HIDE}
    StrCpy $Bool_DetailsPrint 0


    ;创建简要说明
    ${NSD_CreateLabel} 24 243 57 20 "正在安装"
    Pop $Lbl_Sumary
    SetCtlColors $Lbl_Sumary ""  transparent ;背景设成透明

    ${NSD_CreateProgressBar} 24 265 474 7 ""
    Pop $PB_ProgressBar
    SkinProgress::Set $PB_ProgressBar "$PLUGINSDIR\loading2.bmp" "$PLUGINSDIR\loading1.bmp"

    GetFunctionAddress $0 NSD_TimerFun
    nsDialogs::CreateTimer $0 1

    ;下一步
    ${NSD_CreateButton} 320 315 88 25 ""
    Pop $Btn_Next
    StrCpy $1 $Btn_Next
    Call SkinBtn_Next
    GetFunctionAddress $3 onClickNext
    SkinBtn::onClick $1 $3
    ShowWindow $Btn_Next ${SW_HIDE}

    ;安装
    ${NSD_CreateButton} 320 315 88 25 ""
        Pop $Btn_Install
        StrCpy $1 $Btn_Install
        Call SkinBtn_Install
          EnableWindow $Btn_Install 0

        ;取消
        ${NSD_CreateButton} 417 315 88 25 ""
        Pop $Btn_Cancel
        StrCpy $1 $Btn_Cancel
        Call SkinBtn_Cancel
        GetFunctionAddress $3 onCancel
      SkinBtn::onClick $1 $3
          EnableWindow $Btn_Cancel 0

    ;关闭按钮
  ${NSD_CreateButton} 490 8 15 15 ""
    Pop $Btn_Close
    StrCpy $1 $Btn_Close
    Call SkinBtn_Close
  GetFunctionAddress $3 onCancel
  SkinBtn::onClick $1 $3
  EnableWindow $Btn_Close 0

    System::Call `*(i,i,i,i)i(1,34,518,200).R0`
    System::Call `user32::MapDialogRect(i$HWNDPARENT,iR0)`
    System::Call `*$R0(i.s,i.s,i.s,i.s)`
    System::Free $R0
    FindWindow $R0 "#32770" "" $HWNDPARENT
    System::Call `user32::CreateWindowEx(i,t"STATIC",in,i${DEFAULT_STYLES}|${SS_BLACKRECT},i1,i34,i518,i200,iR0,i1100,in,in)i.R0`
    StrCpy $WebImg $R0
    WebCtrl::ShowWebInCtrl $WebImg "$PLUGINSDIR/index.htm"

    ;贴背景大图
    ${NSD_CreateBitmap} 0 0 100% 100% ""
    Pop $BGImage
    ${NSD_SetImage} $BGImage $PLUGINSDIR\installation.bmp $ImageHandle

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

Function CompletePage
    GetDlgItem $0 $HWNDPARENT 1
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 2
    ShowWindow $0 ${SW_HIDE}
    GetDlgItem $0 $HWNDPARENT 3
    ShowWindow $0 ${SW_HIDE}

    nsDialogs::Create 1044
    Pop $0
    ${If} $0 == error
        Abort
    ${EndIf}
    SetCtlColors $0 ""  transparent ;背景设成透明

    ${NSW_SetWindowSize} $HWNDPARENT 520 350 ;改变自定义窗体大小
    ${NSW_SetWindowSize} $0 520 350 ;改变自定义Page大小

    ${NSD_CreateButton} 255 163 15 15 ""
    Pop $Ck_Weibo
    StrCpy $1 $Ck_Weibo
    Call SkinBtn_Checked
    GetFunctionAddress $3 OnClick_CheckWeibo
    SkinBtn::onClick $1 $3
    StrCpy $Bool_Weibo 1
    ${NSD_CreateLabel} 273 163 300 15 "亲，粉一下呗,http://weibo.com/pylife"
    Pop $Lbl_Weibo
    SetCtlColors $Lbl_Weibo "" transparent ;背景设成透明

    ;关闭按钮
  ${NSD_CreateButton} 495 10 15 15 ""
    Pop $Btn_Close
    StrCpy $1 $Btn_Close
    Call SkinBtn_Close
  GetFunctionAddress $3 onClickComplete
  SkinBtn::onClick $1 $3

  ;完成
  ${NSD_CreateButton} 417 303 88 25 ""
    Pop $Btn_Complete
    StrCpy $1 $Btn_Complete
    Call SkinBtn_Complete
    GetFunctionAddress $2 onClickComplete
  SkinBtn::onClick $1 $2

    ;贴背景大图
    ${NSD_CreateBitmap} 0 0 100% 100% ""
    Pop $BGImage
    ${NSD_SetImage} $BGImage $PLUGINSDIR\success.bmp $ImageHandle

    GetFunctionAddress $0 onGUICallback
    WndProc::onCallback $BGImage $0 ;处理无边框窗体移动
    nsDialogs::Show
    ${NSD_FreeImage} $ImageHandle
FunctionEnd
雨田哥
关注
  • 1
    点赞
  • 踩
  • 7
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
基于NSIS传统界面制作的网易云音乐安装包
01-18
基于NSIS传统界面制作的网易云音乐安装包。博客地址：http://blog.csdn.net/china_jeffery/article/details/79095247
实测NSIS文档中没的内容：1.在win7旗舰版，x86平台上，$PROGRAMFILES32=$PROGRAMFILES64=$PROGRAMFILES
web虎-b/s源代码加密,软件/flash课件保护系统
08-10 2567
1.在在win7旗舰版，x86平台上，$PROGRAMFILES32=$PROGRAMFILES64=$PROGRAMFILES=c:\program files 2.在win2008 R2 Enterprise，x64平台上，$PROGRAMFILES32=$PROGRAMFILES= c:\program files (x86) ,  $PROGRAMFILES64=c:\progr
16个好用到爆的Python实用脚本！
最新发布
2301_78096295的博客
08-07 354
每个脚本都有其特定的用途，并且我会附上相应的源码。这些脚本涵盖了数据处理、网络请求、文件操作等多个方面，非常适合初学者和进阶者学习和使用。
NSIS脚本实例（RCP）
heming1990的专栏
06-11 265
; 安装程序初始定义常量 !define PRODUCT_NAME "银驼铃MSAP2000网元管理软件" !define PRODUCT_VERSION "1.0" !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" !define PRODUCT...
NSIS制作自己的安装包
热门推荐
jing0611的专栏
11-10 1万+
想必大家都用过WinAMP 来播放MP3音乐，也都熟悉了WinAMP 的安装界面。它的安装程序小巧玲珑，简单直观。想为你自己编的程序制作一个这样的安装界面吗？完全可以，因为有免费的NSIS。它的全称是Nullsoft Installation System，和著名的WinAMP一样，都是出自Nullsoft公司之手，而且它也是免费的，不存在任何时间限制或功能限制。<br />NSIS安装程序使用‘MakeNSIS’程序来编译一个 NSIS 脚本(.NSI) 成为一个可执行的安装程序的。<br /><br /
NSIS 自定义安装部署实例
yimengchenxi的专栏
08-18 4642
;安装目录 Var LoadFileLabrary #自定义页面中的变量 ;var txt_LicensePage ;界面上半部分的图片 Var TopImage ;界面的背景图片 Var BGImage Var ImageHandle ;界面上立即安装的按钮 Var Btn_Install ;Var Bool_Install ;定义的一个Bool值，用于是否显示 ;界面关
nsis-打包软件脚本示例.rar
01-21
这个“nsis-打包软件脚本示例.rar”压缩包包含了一个NSIS脚本，可以作为参考来学习如何使用NSIS进行软件打包。 NSIS脚本是基于ASCII文本的，其语法简洁且易于理解。它提供了丰富的内置函数和指令，使得开发者能够...
nsis打包工具3.0.8中文增强版
03-29
1. nsis中文版本，自带教程手册 2. 可以打包electron生成的项目，大大减小打包体积 3. 自带有zeus打包脚本具体可以参考 https://blog.csdn.net/qq_35921773/article/details/129832612
nsis 脚本编写之Hello World 源代码包
11-11
【标题】：“NSIS脚本编写之Hello World 源代码包”介绍 【描述】：这个压缩包文件提供了一个NSIS（Nullsoft Scriptable Install System）脚本的实例，用于展示基础的安装程序创建过程。它包含了.NET Framework 2.0...
NSIS-killer
06-28
首先，NSIS插件通常扩展了NSIS脚本语言的功能，提供了额外的特性或者简化了某些复杂的任务。例如，有的插件可能用于集成版本控制，有的则可能帮助处理数字签名或实现更高级的用户界面元素。"NSIS-killer"这个名字...
NSIS+Duilib自定义安装程序
04-13
`samples`可能是NSIS或Duilib的示例代码，供学习参考；`include`则可能包含NSIS的头文件和Duilib的XML布局模板。 掌握NSIS+Duilib的结合使用，不仅可以创建出美观且功能强大的安装程序，还能提高软件的安装率和用户...
NSIS 进度条精确显示 （学习六）
yimengchenxi的专栏
08-14 3599
#1、界面的搭建 ;创建简要说明     Pop $0     ${NSD_CreateLabel} 40 243 100 20 "开始安装..."     Pop $9     ;进度条的创建     ${NSD_CreateProgressBar} 24 265 460 20 ""     SkinProgress::Set $PB_ProgressBar "$PLUGINSDI
NSIS进阶教程(二)
glt3953的专栏
04-07 2662
自定义界面之Button、License窗口实现 **前言** 在上一节中我们粗略的处理一下无边框窗体、背景贴图、鼠标移动。这节主要是创建用于响应事件的Button以及能展示软件License的窗口，还能用Button控制软件协议的展示与否。 代码还是延续上一节的。 本篇主要讲讲以下几点： 如何创建一个自己的按钮 如何创建一个自己的License窗口 如何用自己的
NSIS进阶教程(四)
dc_show的专栏
05-04 2554
NSIS进阶教程(四) 自定义目录选择，自定义进度条，自定义图片切换效果 **前言** 上一节中我们已经处理了有关CheckBox自定义贴图的部分，但是目录选择的部分还没有加上，这节，我们先处理一下目录的选择部分，选择完路径之后就剩下安装了，于是进度条的创建的显得很有必要，但是系统的进度条创建简单，如何改变进度条的背景色跟进度色呢，这节我们也处理掉。有关图片切换的效果的插件也有很多，但是
12.3-Windows下使用NSIS打包QT应用程序安装包，看这一篇就足够了（包括第三方Lib库）
Robert Zhang
03-28 1439
一、准备需要打包的文件 准备可执行程序文件 使用Qt Creater或visual Studio+qt插件生成目标软件的Release版本。把生成的软件复制到一个单独的目录中。打开CMD命令行，切换到刚才创建的目录中，使用“windeployqt”命令来查找并添加当前软件的qt依赖库。命令详情如下： windeployqt LedStripEditor.exe 命令执行完成以后，在刚才所创建...
NSIS进阶教程(三)
xiliang_pan的专栏
11-06 3960
自定义MessageBox，自定义页跳转，自定义CheckBox样式 前言 上一节中我们处理了Button的自定义以及Button的事件消息、协议框的创建等等，这节中我们要更加完美的要求我们的提示框也要漂亮，CheckBox也要自定义样式。有人说MessageBox在NSIS默认情况下是带边框的API窗口，是一个比较丑雏形，但是NSIS的nsDialogs插件也没有提供一个可以创建
NSIS 自定义安装界面准确获取安装进度完美解决方案
水晶石专栏
12-13 1万+
几乎所有玩过nsis的人在制作安装进度页面时都会遇到一个比较棘手的问题，画出进度条容易，但准确掌握文件释放进度，同时再去配合进度条的进度在nsis看来几乎是个无法逾越的障碍，因为迄今为止NSIS尚无可直接使用的指令或者函数来获取相关数据。网络上解决这个问题大部分做法都是大约分为若干段，20%...40%...80%...100%这样大概做个进度的样子，其实与释放的文件几乎没什么联系，并且误差非常大
NSIS教程(10): MUI跳过某些安装步骤
while(1) { smile(); }
11-14 2054
在正常情况下安装包会有“欢迎界面”，“安装目录选择界面”等等。假如现在安装包支持通过命令行参数传入“安装目录”（如setup.exe /installdir F:\test），在检测到命令行参数中已经指定了安装目录的情况下，则跳过“欢迎界面”和“安装目录选择界面”。 HOW TO DO? 在页面插入宏之前通过MUI_PAGE_CUSTOMFUNCTION_PRE来指定pre处理函数，在该函数中来判...
NSIS安装脚本初学者教程：轻松打包软件
对于NSIS初学者来说，编写NSIS脚本可能会感到困难，因为通常会遇到许多难以理解的代码。因此，这篇教程旨在提供一个基础的引导，帮助新手逐步掌握NSIS的使用。 在开始之前，你需要准备两个工具：NSISEdit和Nullsoft...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值