NSIS：实现程序窗口逐渐透明的渐入渐出效果-阿里云开发者社区

NSIS：实现程序窗口逐渐透明的渐入渐出效果

2014-04-08 979

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： 原文 NSIS：实现程序窗口逐渐透明的渐入渐出效果需要修改版的插件(支持timer功能)： MUI：InstallOptions.dll MUI2:nsDialogs.dll 以及system插件，(受api限制)只能运行于2k或者更高的平台之上。

原文 NSIS：实现程序窗口逐渐透明的渐入渐出效果

需要修改版的插件(支持timer功能)：

MUI：InstallOptions.dll

MUI2:nsDialogs.dll

以及system插件，(受api限制)只能运行于2k或者更高的平台之上。

轻狂说明：

请在相应目录下建立transparent.ini文件。

 
            001 
            /* 
           
            002 
             <a href="http://www.flighty.cn" target="_blank">www.flighty.cn</a>  
           
            003 
            */ 
           
            004 
            !AddPluginDir .\ 
           
            005 
            ;-------------------------------- 
           
            006 
            !define MUI2  ;定义UI版本(MUI,MUI2) 
           
            007 
            !define iTransparentPercent 90   ;定义透明度 
           
            008 
            Var DIALOG 
           
            009 
            var iTransparent 
           
            010 
            var bTransparent 
           
            011 
             Name "Transparent Example"  
           
            012 
            SetCompressor /SOLID lzma 
           
            013 
            InstallDir $ExeDir 
           
            014 
            OutFile transparent_nsis.exe 
           
            015 
            !ifdef MUI2 
           
            016 
            !include MUI2.nsh 
           
            017 
            Var TIMERID 
           
            018 
             !else  
           
            019 
            !include MUI.nsh 
           
            020 
            ;定义INI文件 
           
            021 
            !define INI $PLUGINSDIR\transparent.ini 
           
            022 
            !endif 
           
            023 
            !include LogicLib.nsh 
           
            024 
            !ifndef GWL_EXSTYLE 
           
            025 
            !define GWL_EXSTYLE -20 
           
            026 
            !endif 
           
            027 
            !ifndef WS_EX_LAYERED 
           
            028 
            !define WS_EX_LAYERED 0x80000 
           
            029 
            !endif 
           
            030 
            !ifndef LWA_ALPHA 
           
            031 
            !define LWA_ALPHA 2 
           
            032 
            !endif 
           
            033 
            !define MUI_CUSTOMFUNCTION_ABORT UserAbort 
           
            034 
            !ifdef MUI2 
           
            035 
            Page custom nsDialogsPage 
           
            036 
             !else  
           
            037 
            page custom InstallOptionsPage 
           
            038 
            !endif 
           
            039 
            !define MUI_PAGE_CUSTOMFUNCTION_SHOW welcome_PageShow 
           
            040 
            ; 欢迎页面 
           
            041 
            !insertmacro MUI_PAGE_WELCOME 
           
            042 
            !insertmacro MUI_PAGE_DIRECTORY 
           
            043 
              !insertmacro MUI_PAGE_INSTFILES  
           
            044 
              !insertmacro MUI_PAGE_FINISH  
           
            045 
            ;-------------------------------- 
           
            046 
              !insertmacro MUI_LANGUAGE "SimpChinese"  
           
            047 
            Section -Nil 
           
            048 
            SectionEnd 
           
            049 
            Function welcome_PageShow 
           
            050 
            !ifdef MUI2 
           
            051 
               Pop $0  
           
            052 
                nsDialogs::KillTimer /NOUNLOAD $TIMERID  
           
            053 
            !endif 
           
            054 
               GetDlgItem $0 $hwndparent 3  
           
            055 
               ShowWindow $0 0  
           
            056 
               ${if} $bTransparent == 0  
           
            057 
                 ${For} $R0 0 $iTransparent  
           
            058 
                   system::call 'user32::SetLayeredWindowAttributes(i $HWNDPARENT, i 0, i R0, i ${LWA_ALPHA}) .iR1'  
           
            059 
                   sleep 1  
           
            060 
                 ${Next}  
           
            061 
               ${endif}  
           
            062 
               StrCpy $bTransparent 1  
           
            063 
            FunctionEnd 
           
            064 
            Function Exit 
           
            065 
               ${ForEach} $R0 $iTransparent 0 - 1  
           
            066 
                 system::call 'user32::SetLayeredWindowAttributes(i $HWNDPARENT, i 0, i R0, i ${LWA_ALPHA}) .iR1'  
           
            067 
                 sleep 1  
           
            068 
               ${Next}  
           
            069 
            FunctionEnd 
           
            070 
            Function UserAbort 
           
            071 
               Messagebox MB_YESNO|MB_ICONQUESTION "Are Sure you want to cancel?" IDYES +2  
           
            072 
               Abort  
           
            073 
               call Exit  
           
            074 
            FunctionEnd 
           
            075 
            Function .onInstSuccess 
           
            076 
               Messagebox MB_OK|MB_ICONINFORMATION "Install Success!"  
           
            077 
               call Exit  
           
            078 
            FunctionEnd 
           
            079 
            Function SetWindowAttrib 
           
            080 
               ${if} $bTransparent == 0  
           
            081 
                 system::call 'user32::GetWindowLong(i $HWNDPARENT, i ${GWL_EXSTYLE}) .iR0'  
           
            082 
                 ;messagebox mb_ok $R0  
           
            083 
                 IntOp $R0 $R0 + ${WS_EX_LAYERED}  
           
            084 
                 system::call 'user32::SetWindowLong(i $HWNDPARENT, i ${GWL_EXSTYLE}, i R0) .iR1'  
           
            085 
                 system::call 'user32::SetLayeredWindowAttributes(i $HWNDPARENT, i 0, i 0, i ${LWA_ALPHA}) .iR2'  
           
            086 
               Pop $R2  
           
            087 
               Pop $R1  
           
            088 
               Pop $R0  
           
            089 
               ${endif}  
           
            090 
            FunctionEnd 
           
            091 
            !ifndef MUI2 
           
            092 
            Function InstallOptionsPage 
           
            093 
               Call SetWindowAttrib  
           
            094 
               InstallOptions::initDialog /NOUNLOAD ${INI}  
           
            095 
                 Pop $DIALOG  
           
            096 
            ;如果你想做的更逼真一些，请把它仿成欢迎页面(你的初始页面)一样的 
           
            097 
               InstallOptions::Show  
           
            098 
            FunctionEnd 
           
            099 
            !endif 
           
            100 
            !ifdef MUI2 
           
            101 
            Function OnTimer 
           
            102 
               Pop $0 ;Free Timer id  
           
            103 
               GetDlgItem $1 $HWNDPARENT 1  
           
            104 
               SendMessage $1 ${BM_CLICK} 0  1  
           
            105 
            FunctionEnd 
           
            106 
            Function nsDialogsPage 
           
            107 
               Call SetWindowAttrib  
           
            108 
               nsDialogs::Create /NOUNLOAD 1018  
           
            109 
               Pop $DIALOG  
           
            110 
            ;如果你想做的更逼真一些，请把它仿成欢迎页面(你的初始页面)一样的 
           
            111 
               GetFunctionAddress $0 OnTimer  
           
            112 
               nsDialogs::CreateTimer /NOUNLOAD $0 10  
           
            113 
               Pop $TIMERID  
           
            114 
               nsDialogs::Show  
           
            115 
            FunctionEnd 
           
            116 
            !endif 
           
            117 
            Function .OnInit 
           
            118 
               InitPluginsDir  
           
            119 
            !ifndef MUI2 
           
            120 
               File /oname=${INI} "transparent.ini"  
           
            121 
            !endif 
           
            122 
               IntOp $iTransparent ${iTransparentPercent} * 255  
           
            123 
               IntOp $iTransparent $iTransparent / 100  
           
            124 
               StrCpy $bTransparent 0  
           
            125 
            FunctionEnd

NSIS：实现程序窗口逐渐透明的渐入渐出效果

热门文章

最新文章

相关电子书

相关实验场景