最新消息:

寻找NSIS控件ID方法

nsis 永恒心锁 1367浏览 0评论
name 'Find Control IDs'
outfile 'findctlID_MUI.exe'
showinstdetails show
InstallDir '$EXEDIR'

var header

!include mui.nsh
; 许可协议页面
!define MUI_PAGE_CUSTOMFUNCTION_PRE lic_pre
!define MUI_PAGE_CUSTOMFUNCTION_SHOW lic_show
!insertmacro MUI_PAGE_LICENSE 'License.txt'
; 组件选择页面
!define MUI_PAGE_CUSTOMFUNCTION_SHOW comp_show
!insertmacro MUI_PAGE_COMPONENTS
; 安装目录选择页面
!define MUI_PAGE_CUSTOMFUNCTION_SHOW dir_show
!insertmacro MUI_PAGE_DIRECTORY
;开始菜单页面
!define MUI_PAGE_CUSTOMFUNCTION_SHOW smn_show
!insertmacro MUI_PAGE_STARTMENU app $R9
; 安装过程页面
!define MUI_PAGE_CUSTOMFUNCTION_SHOW inst_show
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "English"

section
sectionend
;协议页面ID
function lic_show
strcpy $header "LICENSE PAGE CONTROLS"
call findIDs
functionend
;选择页面ID
function comp_show
strcpy $header "COMPONENTS PAGE CONTROLS"
call findIDs
functionend
;安装页面ID
function dir_show
strcpy $header "DIRECTORY PAGE CONTROLS"
call findIDs
functionend
;开始页面ID
function smn_show
strcpy $header "START MENU PAGE CONTROLS"
call findIDs
functionend
过程页面ID
function inst_show
strcpy $header "INSTALL FILES PAGE CONTROLS"
call findIDs
functionend

function lic_pre
fileopen $5 '$EXEDIR\ids.txt' a
fileseek $5 '' END
filewrite $5 "PARENT DIALOG CONTROLS$\r$\n"
strcpy $0 0
loop:
strcmp $0 '2000' end
GetDlgItem $R0 $HWNDPARENT $0
strcmp $R0 0 +3
fileseek $5 '' END
filewrite $5 "Control ID == $0$\r$\n"
intop $0 $0 + 1
goto loop
end:
filewrite $5 "$\r$\n"
fileclose $5
functionend

function findIDs
fileopen $5 '$EXEDIR\ids.txt' a
fileseek $5 '' END
filewrite $5 "$header$\r$\n"
strcpy $0 0
loop:
strcmp $0 '2000' end
FindWindow $R5 "#32770" "" $HWNDPARENT
GetDlgItem $R0 $R5 $0
strcmp $R0 0 +3
fileseek $5 '' END
filewrite $5 "Control ID == $0$\r$\n"
intop $0 $0 + 1
goto loop
end:
filewrite $5 "$\r$\n"
fileclose $5
functionend

function .onInit
IfFileExists '$EXEDIR\ids.txt' 0 +2
delete '$EXEDIR\ids.txt'
functionend
永恒心锁,版权所有丨如未注明,均为转载丨本网站采用BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » 寻找NSIS控件ID方法

您必须 登录 才能发表评论!