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

2022-11-11 17:20:45

原文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

码农公寓

相关文章