var txt_LicensePage
Var TopImage
Var BGImage
Var ImageHandle

; 該指令碼使用 HM VNISEdit 指令碼編輯器嚮導產生
; 安裝程式初始定義常量
!define PRODUCT_NAME "pkpm"
!define PRODUCT_VERSION "1.0"
!define PRODUCT_PUBLISHER "My company, Inc."
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
!define PRODUCT_UNINST_ROOT_KEY "HKLM"

SetCompressor lzma
;BrandingText "${EM_BrandingText}"
SetCompress force
XPStyle on

; ------ MUI 現代介面定義 (1.67 版本以上相容) ------
!include "MUI.nsh"
;!include "MUI2.nsh"
!include "nsWindows.nsh"
!include "WinCore.nsh"
;載入rtf的標頭檔案
!include "LoadRTF.nsh"

; MUI 預定義常量
!define MUI_ABORTWARNING
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"
!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico"

;自定義初始化
!define MUI_CUSTOMFUNCTION_GUIINIT onGUIInit
;自定義頁面
Page custom WelcomePage

; 歡迎頁面
!insertmacro MUI_PAGE_WELCOME
;許可協議頁面
!define MUI_LICENSEPAGE_CHECKBOX
!insertmacro MUI_PAGE_LICENSE "aa.txt"
; 安裝目錄選擇頁面
!insertmacro MUI_PAGE_DIRECTORY
; 安裝過程頁面
!insertmacro MUI_PAGE_INSTFILES
; 安裝完成頁面
!insertmacro MUI_PAGE_FINISH

; 安裝解除安裝過程頁面
!insertmacro MUI_UNPAGE_INSTFILES
; 安裝介面包含的語言設定
!insertmacro MUI_LANGUAGE "SimpChinese"
; 安裝預釋放檔案
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
; ------ MUI 現代介面定義結束 ------

Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "pkpm.exe"
InstallDir "$PROGRAMFILES\pkpm"
ShowInstDetails show
ShowUnInstDetails show

;初始化必須要呼叫的元件
Function .onInit
  InitPluginsDir
  ;File `/oname=$PLUGINSDIR\license.rtf` `license\license.rtf`
  File `/ONAME=$PLUGINSDIR\bg.bmp` `images\bg.bmp`
  File `/ONAME=$PLUGINSDIR\welcome.bmp` `images\welcome.bmp`
  File `/ONAME=$PLUGINSDIR\a.bmp` `images\a.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 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 ;背景設成透明

    ;加入標頭檔案"nsWindows.nsh"
    ${NSW_SetWindowSize} $HWNDPARENT 520 350 ;改變窗體大小
    ${NSW_SetWindowSize} $0 520 350 ;改變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_LicensePage
  ${LoadRTF} '$PLUGINSDIR\license.rtf' $txt_LicensePage
    ShowWindow $txt_LicensePage ${SW_HIDE}
    */
   
    ;介面的上方圖片
    ${NSD_CreateBitmap} 0 0 520 230 ""
    Pop $TopImage
    ${NSD_SetImage} $TopImage $PLUGINSDIR\welcome.bmp $ImageHandle
    ;ShowWindow $MiddleImage ${SW_HIDE}

    ;貼背景大圖
    ${NSD_CreateBitmap} 0 0 100% 100% ""
    Pop $BGImage
    ;${NSD_SetImage} $BGImage $PLUGINSDIR\bg.bmp $ImageHandle
    ${NSD_SetImage} $BGImage $PLUGINSDIR\a.bmp $ImageHandle
   
    #當加上以下的程式碼後，背景圖片以及介面的上方圖片顯示出來
    GetFunctionAddress $0 onGUICallback
  WndProc::onCallback $BGImage $0 ;處理無邊框窗體移動
  nsDialogs::Show
  ${NSD_FreeImage} $ImageHandle
FunctionEnd

Section "MainSection" SEC01
SectionEnd

Section -AdditionalIcons

  SetOutPath $INSTDIR
  CreateDirectory "$SMPROGRAMS\pkpm"
  CreateShortCut "$SMPROGRAMS\pkpm\Uninstall.lnk" "$INSTDIR\uninst.exe"

SectionEnd

Section -Post
  WriteUninstaller "$INSTDIR\uninst.exe"

  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"

SectionEnd

/******************************
 *  以下是安裝程式的解除安裝部分  *
 ******************************/

Section Uninstall

  Delete "$INSTDIR\uninst.exe"

  Delete "$SMPROGRAMS\pkpm\Uninstall.lnk"

  RMDir "$SMPROGRAMS\pkpm"

  RMDir "$INSTDIR"

  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
  SetAutoClose true

SectionEnd

#-- 根據 NSIS 指令碼編輯規則，所有 Function 區段必須放置在 Section 區段之後編寫，以避免安裝程式出現未可預知的問題。--#

Function un.onInit
  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "您確實要完全移除 $(^Name) ，及其所有的元件？" IDYES +2
  Abort
FunctionEnd

Function un.onUninstSuccess
  HideWindow
  MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地從您的計算機移除。"
FunctionEnd