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

简介: 原文 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
目录
相关文章
|
11天前
|
Python
wxPython StaticText控件背景色透明
wxPython StaticText控件背景色透明
41 0
|
计算机视觉 Windows
Qt实用技巧:实现窗口透明的五种方法
Qt实用技巧:实现窗口透明的五种方法
Qt实用技巧:实现窗口透明的五种方法
|
6月前
|
Windows 存储 Cloud Native
C++Qt windows系统托盘增加图标和功能
C++Qt windows系统托盘增加图标和功能
|
8月前
|
Python
飞机大战-创建窗口(1)
用Python编程,编写飞机大战-创建窗口。
37 0
|
计算机视觉
Qt实用技巧:使用非透明窗体鼠标穿透到桌面的设置方法
Qt实用技巧:使用非透明窗体鼠标穿透到桌面的设置方法
QT软件开发: 窗口打开固定在屏幕中间或者右下角
QT软件开发: 窗口打开固定在屏幕中间或者右下角
326 0
QT软件开发: 打开的窗口默认处于屏幕中间
QT软件开发: 打开的窗口默认处于屏幕中间
210 0
QT软件开发: 打开的窗口默认处于屏幕中间
QT应用编程: QSlider设置滚动块定位到鼠标点击的地方
QT应用编程: QSlider设置滚动块定位到鼠标点击的地方
472 0
QT应用编程: QSlider设置滚动块定位到鼠标点击的地方
QT应用编程: 鼠标拖动文件到应用程序窗口
QT应用编程: 鼠标拖动文件到应用程序窗口
280 0
QT应用编程: 鼠标拖动文件到应用程序窗口
|
iOS开发
iOS开发遇到的屏幕上下闪出黑边的解决方法
iOS开发遇到的屏幕上下闪出黑边的解决方法
187 0
iOS开发遇到的屏幕上下闪出黑边的解决方法