#1、搭建界面的代码
;界面的checkBox框(桌面快捷方式,任务栏快捷方式) taskbarpin ShortCut
${NSD_CreateButton} 202 120 15 15 ""
Pop $Ck_DesktopShortCut
StrCpy $1 $Ck_DesktopShortCut
Call SkinBtn_Checked
GetFunctionAddress $3 OnClick_CheckDesktopShortCut
SkinBtn::onClick $1 $3
StrCpy $Bool_DesktopShortCut 1
${NSD_CreateLabel} 222 120 100 15 "创建桌面快捷方式"
Pop $Lbl_DesktopShortCut
SetCtlColors $Lbl_DesktopShortCut "" transparent ;背景设成透明
${NSD_CreateButton} 202 162 15 15 ""
Pop $Ck_taskbarpin
StrCpy $1 $Ck_taskbarpin
Call SkinBtn_Checked
GetFunctionAddress $3 OnClick_taskbarpin
SkinBtn::onClick $1 $3
StrCpy $Bool_taskbarpin 1
${NSD_CreateLabel} 222 162 100 15 "创建任务栏快捷方式"
Pop $Lbl_taskbarpin
SetCtlColors $Lbl_taskbarpin "" transparent ;背景设成透明
#2、事件代码
;点击checkBox桌面快捷方式的处理事件
Function OnClick_CheckDesktopShortCut
${IF} $Bool_DesktopShortCut == 1
IntOp $Bool_DesktopShortCut $Bool_DesktopShortCut - 1
StrCpy $1 $Ck_DesktopShortCut
Call SkinBtn_UnChecked
;EnableWindow $Btn_Install 0 ;是否显示按钮
${ELSE}
IntOp $Bool_DesktopShortCut $Bool_DesktopShortCut + 1
StrCpy $1 $Ck_DesktopShortCut
Call SkinBtn_Checked
;EnableWindow $Btn_Install 1
${EndIf}
FunctionEnd
;点击checkBox桌面任务栏快捷方式的处理事件
Function OnClick_taskbarpin
${IF} $Bool_taskbarpin == 1
IntOp $Bool_taskbarpin $Bool_taskbarpin - 1
StrCpy $1 $Ck_taskbarpin
Call SkinBtn_UnChecked
${ELSE}
IntOp $Bool_taskbarpin $Bool_taskbarpin + 1
StrCpy $1 $Ck_taskbarpin
Call SkinBtn_Checked
${EndIf}
FunctionEnd
Function OnClick_Finish
;当选择了生成快捷方式的combox的选择框时
${If} $Bool_taskbarpin == 1
${AndIf} $Bool_DesktopShortCut == 1
;生成桌面的快捷方式
CreateShortCut "$DESKTOP\Electron.lnk" "$INSTDIR\Electron.exe"
;生成任务栏的快捷方式
ExecShell "taskbarpin" "$DESKTOP\Electron.lnk"
${ElseIf} $Bool_taskbarpin == 1
;生成安装目录的快捷方式
CreateShortCut "$INSTDIR\Electron.lnk" "$INSTDIR\Electron.exe"
;创建任务栏快捷方式
ExecShell "taskbarpin" "$DESKTOP\Electron.lnk"
${ElseIf} $Bool_DesktopShortCut == 1
;生成桌面的快捷方式
CreateShortCut "$DESKTOP\Electron.lnk" "$INSTDIR\Electron.exe"
${Else}
${EndIf}
Call onClickClose ;点击关闭响应的事件
FunctionEnd
;点击右上角关闭按钮
Function onClickClose
#关闭窗体的方法一:
FindProcDLL::FindProc "pkpm.exe"
Sleep 10
Pop $R0
${If} $R0 != 0
KillProcDLL::KillProc "pkpm.exe"
${EndIf}
#关闭窗体的方法二:
;SendMessage $hwndparent ${WM_CLOSE} 0 0
FunctionEnd
;点击关闭按钮响应的函数
Function onClose
Call onClickClose ;点击关闭响应的事件
FunctionEnd
© 版权声明
THE END
暂无评论内容