程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> NSIS入門之水紋特效腳本語言

NSIS入門之水紋特效腳本語言

編輯:更多關於編程

     NSIS入門之水紋特效腳本語言 三聯

      /*

      腳本編寫:zhfi

      特別感謝:Restools,X-Star

      */

      !AddPluginDir "."

      !AddIncludeDir "."

      !include MUI2.nsh

      ; --------------------------------------------------

      ; General settings.

      Name "WaterCtrl_Test Example"

      OutFile "WaterCtrl_Test.exe"

      SetCompressor /SOLID lzma

      ReserveFile "${NSISDIR}Pluginssystem.dll"

      ReserveFile waterctrl.dll

      ;SetFont tahoma 8

      ; --------------------------------------------------

      ; MUI interface settings.

      !define MUI_FINISHPAGE_NOAUTOCLOSE

      ; --------------------------------------------------

      ; Insert MUI pages.

      !define MUI_WELCOMEFINISHPAGE_BITMAP WizModernImage-Is.bmp

      ; Installer pages

      !define MUI_PAGE_CUSTOMFUNCTION_PRE pre

      !define MUI_PAGE_CUSTOMFUNCTION_LEAVE leave

      !insertmacro MUI_PAGE_WELCOME

      !insertmacro MUI_PAGE_INSTFILES

      !define MUI_PAGE_CUSTOMFUNCTION_Pre pre

      !define MUI_PAGE_CUSTOMFUNCTION_LEAVE leave

      !insertmacro MUI_PAGE_FINISH

      ; --------------------------------------------------

      ; Languages.

      !insertmacro MUI_LANGUAGE "SimpChinese"

      Function .onGUIEnd

      SetPluginUnload manual

      waterctrl::disablewater

      System::Free

      FunctionEnd

      Function .onInit

      InitPluginsDir

      SetOutPath $PLUGINSDIR

      File waterctrl.dll

      SetOutPath $TEMP

      FunctionEnd

      Function Pre

      System::Call 'user32::LoadImage(i,t,i,i,i,i,) i (0,"$PLUGINSDIRmodern-wizard.bmp",0,0,0,0x2010) .s'

      Pop $R0

      System::Call '$PLUGINSDIRwaterctrl::enablewater(i,i,i,i,i,i) i ($HWNDPARENT,0,0,$R0,3,50)'

      System::Call '$PLUGINSDIRwaterctrl::setwaterparent(i $HWNDPARENT)'

      System::Call '$PLUGINSDIRwaterctrl::flattenwater()'

      System::Call '$PLUGINSDIRwaterctrl::waterblob(i,i,i,i) i (70,198,10,1000)'

      FunctionEnd

      Function leave

      System::Call '$PLUGINSDIRwaterctrl::disablewater()'

      FunctionEnd

      Section "Dummy" SecDummy

      SectionEnd

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved