SetCompressor /SOLID lzma
XPStyle on
Name "Test"
OutFile "Test.exe"
Caption "Test安装向导"
BrandingText 'Test'
Var count
SetFont /LANG=2052 "tahoma" 8
!include "UseFulLib.nsh"
!include "MUI.nsh"
InstallDir "$EXEDIR"
!define MUI_ABORTWARNING
!define MUI_CUSTOMFUNCTION_GUIINIT MyGUIInit ;创建关于相关链接
!insertmacro MUI_PAGE_WELCOME
!insertmacro MUI_PAGE_COMPONENTS
!insertmacro MUI_PAGE_DIRECTORY
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_PAGE_FINISH
!insertmacro MUI_LANGUAGE "SimpChinese"
Section "BOO"
SectionEnd
Function MyGUIInit
Push `;`
System::Call 'User32::CreateWindowEx(i,t,t,i,i,i,i,i,i,i,i,v) i (0,"button",s,0x54000000,i 10,i 327,i 24,i 24,$HWNDPARENT,1199,s,0) .s'
Exch $R0
Push $R1
CreateFont $R1 "webdings" 11 1500
SetCtlColors $R1 0xFF0080 transparent
SendMessage $R0 ${WM_SETFONT} $R1 0
GetFunctionAddress $R2 Link1
ButtonLinker::AddEventHandler /NOUNLOAD 1199 $R2
FunctionEnd
Function Link1
GetDlgItem $R2 $HWNDPARENT 1199
IntOp $count $count !
StrCmp $count 1 +1 +4
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicPause()'
SendMessage $R2 ${WM_SETTEXT} 0 "STR:4"
Goto +3
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicPlay()'
SendMessage $R2 ${WM_SETTEXT} 0 "STR:;"
FunctionEnd
Function .onInit
InitPluginsDir
StrCpy $count 0
File /oname=$PLUGINSDIRBASSMOD.dll BASSMOD.dll
File /oname=$PLUGINSDIRmymusic.mod mymusic.mod
StrCpy $R1 "$PLUGINSDIRmymusic.mod"
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_Init(i -1,i 44100,i 0)'
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicFree()'
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicLoad(i 0,t R1,i 0,i 0,i 4)'
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicPlay()'
FunctionEnd
Function .onGUIEnd
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicStop()'
System::Call '$PLUGINSDIRBASSMOD::BASSMOD_MusicFree()'
FunctionEnd
免责声明：根据《计算机软件保护条例》第十七条规定“为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，不向其支付报酬。”您需知晓本站所有内容资源均来源于网络，仅供用户交流学习与研究使用，版权归属原版权方所有，版权争议与本站无关，用户本人下载后不能用作商业或非法用途，需在24个小时之内从您的电脑中彻底删除上述内容，否则后果均由用户承担责任；如果您访问和下载此文件，表示您同意只将此文件用于参考、学习而非其他用途，否则一切后果请您自行承担，如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。丨本站为个人博客非盈利性站点，所有软件信息均来自网络，所有资源仅供学习参考研究目的，并不贩卖软件，不存在任何商业目的及用途。丨本文采用知识共享 署名4.0国际许可协议 [BY-NC-SA] 进行授权BY-NC-SA协议进行授权
转载请注明：永恒心锁-分享互联网 » 实例MOD播放例子