制作Windows8风格安装界面(模仿Visual Studio 2012的主题和颜色)

NSIS借助一些插件可以制作出界面很漂亮的安装程序,SkinSE就是使用的比较多的一个插件,迅雷和QQ的安装程序就是NSIS+SkinSE制作的。我比较喜欢windows8风格的界面,所以这次模仿一个Visual Studio2012界面的安装程序。
这次模仿只修改了使用到的控件的主题,未使用的控件图片不进行修改(我PS不是很好,修改图片很痛苦的),修改内容包括Button,CheckBox,最大化按钮,最小化按钮,菜单,滚动条,窗体背景图,分隔符,进度条。
在修改的过程中遇到3个问题暂时还没法解决:
1.控件获取焦点后的文字的颜色没法修改,现在颜色默认为黑色,通过几种方式修改均未发现有效果
2.选择安装目录的界面,如果使用SkinSE,界面默认只能看见背景图片,需要将鼠标移动过去才会显示其他信息(这个只会在windows7才出现,windows xp下正常)。
3.安装进度界面如果使用自定义页面没法获取安装的具体进度
有能解决以上3个问题的朋友请告诉我一下。
下面是安装界面的截图和脚本代码(安装程序的文字说明和图片使用即将发布的一款软件里面的截图和描述)

!system '>blank set/p=MSCF< '
 !packhdr temp.dat 'cmd /c Copy /b temp.dat /b + blank && del blank'
 !AddPluginDir .
 SetCompressor /solid lzma
 SetCompressorDictSize 32
 !include "MUI2.nsh"
 !include "LogicLib.nsh"
 !include "LoadRTF.nsh"
 !define MUI_UI MetroUI.exe
 !define MUI_FINISHPAGE_RUN "$INSTDIRAutoCall.exe"
 !define PRODUCT_VERSION "1.0.0.0"
 !define PRODUCT_PUBLISHER "Loyldg"
 !define PRODUCT_WEB_SITE "http://www.loyldg.com"
 !define PRODUCT_DIR_REGKEY "SoftwareMicrosoftWindowsCurrentVersionAutoCallautocall.exe"
 !define PRODUCT_UNINST_KEY "SoftwareMicrosoftWindowsCurrentVersionUninstall${PRODUCT_NAME}"
 !define PRODUCT_UNINST_ROOT_KEY "HKLM"
 !define EM_SETBKGNDCOLOR 1091
 !define MUI_PAGE_HEADER_TEXT " "
 !define MUI_PAGE_HEADER_SUBTEXT " "
 !define TextColor "999999"
 !define MUI_ICON "imgAutoCall.ico"
 Name "AutoCall"
 OutFile "MetroUITest.exe"
 AutoCloseWindow true
 Caption "AutoCall安装"
 RequestExecutionLevel admin
 ShowInstDetails nevershow
 ShowUninstDetails NeverShow
 SilentUnInstall silent
 MiscButtonText "上一歩" "下一步" "取消" "完成"
 InstallButtonText "下一歩"
 BrandingText " "
 InstProgressFlags smooth
 !define MUI_CUSTOMFUNCTION_GUIINIT myGuiInit
 Page custom WelcomePage
 Page custom ChooseInstallDirPage
 !define MUI_PAGE_CUSTOMFUNCTION_SHOW CreateStaticRect1
 !insertmacro MUI_PAGE_INSTFILES
 Page custom InstallFinishPage AfterInstallFinish
 !insertmacro MUI_LANGUAGE "SimpChinese"
 InstallDir "$PROGRAMFILESLoyldgAutoCall"
 Var ImageHandle
 Var Checkbox1
 var Checkbox2
 Var steps
 var rtxt
 Function .onInit
 InitPluginsDir
 File "/oname=$PLUGINSDIRstep1.bmp" "imgastep1.bmp"
 File "/oname=$PLUGINSDIRstep2.bmp" "imgastep2.bmp"
 File "/oname=$PLUGINSDIRstep3.bmp" "imgastep3.bmp"
 File "/oname=$PLUGINSDIRstep4.bmp" "imgastep4.bmp"
 File "/oname=$PLUGINSDIRmultiTheme.bmp" "imgamultiTheme.bmp"
 File "/oname=$PLUGINSDIRmain.bmp" "imgamain.bmp"
 File "/oname=$PLUGINSDIRtasklist.bmp" "imgatasklist.bmp"
 File "/oname=$PLUGINSDIRabout.bmp" "imgaabout.bmp"
 File "/oname=$PLUGINSDIRline.bmp" "imgaline.bmp"
 File "/oname=$PLUGINSDIRlicense.rtf" "license.rtf"
 FunctionEnd
 #=======================初始化界面皮肤======================================================================================================
 Function myGuiInit
 InitPluginsDir
 File "/oname=$PLUGINSDIRtheme.zip" "themetheme.zip"
 File "/oname=$PLUGINSDIRSkinSE.dll" "SkinSE.dll"
 SetOutPath $PLUGINSDIR
 SkinSE_NSIS::setskinpath /NOUNLOAD "$PLUGINSDIRtheme.zip"
 System::Call SkinSE::SkinSE_Menu_EnableSkin(i1)
 ;创建互斥防止重复运行
 System::Call 'kernel32::CreateMutexA(i 0, i 0, t "autocall_installer") i .r1 ?e'
 Pop $R0
 StrCmp $R0 0 +3
 MessageBox MB_OK|MB_ICONEXCLAMATION "已经有一个AutoCall安装向导正在运行! "
 Abort
 FunctionEnd
 Function .onGUIEnd
 SkinSE::UnstallSkinSE
 System::Call Kernel32::GetModuleHandle(t"SkinSE_NSIS.dll")i.s
 System::Call Kernel32::FreeLibrary(is)
 System::Call Kernel32::SetCurrentDirectory(t"$EXEDIR")
 FunctionEnd
 #===============================欢迎界面====================================================================================
 Function WelcomePage
 SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:AutoCall 欢迎安装AutoCall"
 nsDialogs::Create /NOUNLOAD 1018
 Pop $0
 ${If} $0 == error
 Abort
 ${EndIf}
 System::Call SkinSE::SkinSE_Init(i$HWNDPARENT,i1)
 ${NSD_CreateLabel} 10u 14u 290u 8u "在安装软件前,请仔细阅读下面的软件许可协议"
 Pop $0
 SetCtlColors $0 ${TextColor} transparent
 nsDialogs::CreateControl "RichEdit20A"
 "${DEFAULT_STYLES}|${WS_TABSTOP}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_READONLY}"
 "${WS_EX_WINDOWEDGE}|${WS_EX_CLIENTEDGE}" 9u 28u 337u 132u ""
 Pop $rtxt
 ${LoadRTF} "$PLUGINSDIRlicense.rtf" $rtxt
 ${NSD_CreateCheckbox} 10u 166u 155u 15u "我已阅读并同意软件许可协议书"
 Pop $Checkbox1
 ${NSD_OnClick} $Checkbox1 onCheckbox1
 setctlcolors $Checkbox1 "999999" transparent
 SendMessage $rtxt ${EM_SETBKGNDCOLOR} 0 0x303030
 GetDlgItem $steps $HWNDPARENT 1
 EnableWindow $steps 0
 ${NSD_CreateBitmap} 0u 210u 100% 1u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRline.bmp $ImageHandle
 ${NSD_CreateBitmap} 245u 190u 100% 100% ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRstep1.bmp $ImageHandle
 nsDialogs::Show
 ${NSD_FreeImage} $ImageHandle
 FunctionEnd
 #---------------------------------------------------------------------------------------------------------------------#
 #=======================选择安装目录===================================================================================
 Function ChooseInstallDirPage
 SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:AutoCall 选择安装路径"
 nsDialogs::Create /NOUNLOAD 1018
 Pop $0
 ${If} $0 == error
 Abort
 ${EndIf}
 ${NSD_CreateLabel} 10u 27u 70u 10u "程序安装目录"
 Pop $0
 SetCtlColors $0 ${TextColor} transparent
 ${NSD_CreateBitmap} 0u 10u 100% 1u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRline.bmp $ImageHandle
 ${NSD_CreateDirRequest} 60u 23u 225u 12u $INSTDIR
 Pop $1
 ${NSD_CreateButton} 300u 23u 45u 15u "浏览(&B)"
 Pop $0
 ${NSD_OnClick} $0 OnDirRequest
 ${NSD_CreateBitmap} 10u 55u 100% 5u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRmultiTheme.bmp $ImageHandle
 SetCtlColors $0 "" transparent
 ${NSD_CreateBitmap} 0u 210u 100% 1u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRline.bmp $ImageHandle
 ${NSD_CreateBitmap} 245u 190u 100% 100% ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRstep2.bmp $ImageHandle
 System::Call SkinSE::SkinSE_Init(i$HWNDPARENT,i1)
 nsDialogs::Show
 ${NSD_FreeImage} $ImageHandle
 FunctionEnd
 #-----------------------------------------------------------------------------------------#
 Function onCheckbox1
 Pop $Checkbox1
 SendMessage $Checkbox1 ${BM_GETCHECK} 0 0 $0
 EnableWindow $steps $0
 FunctionEnd
 function onCheckbox2
 pop $Checkbox2
 sendmessage $checkbox2 ${BM_GETCHECK} 0 0 $0
 functionend
 #-----------------------------------------------------------#
 Function OnDirRequest
 nsDialogs::SelectFolderDialog /NOUNLOAD "$n请选择目录" ""
 Pop $0
 ${If} $0 != error
 ${NSD_SetText} $1 $0
 ${EndIf}
 FunctionEnd
 #-----------------------------------------------------------#
 #=========================显示主界面图片=================================================================
 Function CreateStaticRect1
 SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:AutoCall 正在安装..."
 FindWindow $0 "#32770" "" $HWNDPARENT
 GetDlgItem $R0 $0 59
 ${NSD_SetImage} $R0 "$PLUGINSDIRmain.bmp" $ImageHandle
 functionend
 Function HideImageCtrl
 FindWindow $0 "#32770" "" $HWNDPARENT
 GetDlgItem $R0 $0 59
 ShowWindow $R0 ${SW_HIDE}
 GetDlgItem $R0 $0 1202
 ShowWindow $R0 ${SW_HIDE}
 functionend
 #==============================安装完成页面========================================================================
 Function InstallFinishPage
 SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:AutoCall 安装完成"
 call HideImageCtrl
 GetDlgItem $0 $HWNDPARENT 3
 ShowWindow $0 ${SW_HIDE}
 nsDialogs::Create /NOUNLOAD 1018
 Pop $0
 ${If} $0 == error
 Abort
 ${EndIf}
 ${NSD_CreateLabel} 10u 18u 60u 10u "安装完成"
 Pop $0
 SetCtlColors $0 ${TextColor} transparent
 ${NSD_CreateBitmap} 0u 10u 100% 1u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRline.bmp $ImageHandle
 ${NSD_CreateBitmap} 0u 55u 100% 5u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRabout.bmp $ImageHandle
 ${NSD_CreateCheckbox} 68u 32u 140u 15u "立即运行AutoCall"
 Pop $Checkbox2
 ${NSD_Check} $Checkbox2
 ${NSD_OnClick} $Checkbox2 onCheckbox2
 setctlcolors $Checkbox2 "" C5DEF0
 ${NSD_CreateBitmap} 0u 210u 100% 1u ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRline.bmp $ImageHandle
 ${NSD_CreateBitmap} 245u 190u 100% 100% ""
 Pop $0
 ${NSD_SetImage} $0 $PLUGINSDIRstep4.bmp $ImageHandle
 System::Call SkinSE::SkinSE_Init(i$HWNDPARENT,i1)
 nsDialogs::Show
 ${NSD_FreeImage} $ImageHandle
 FunctionEnd
 #-----------------------------------------------------------------------------------------#
 #=======================安装完成后要执行的操作============================================
 Function AfterInstallFinish
 ${NSD_GetState} $Checkbox2 $0
 ${if} $0 == 1
 exec "$INSTDIRAutoCall.exe"
 ${endif}
 quit
 FunctionEnd
 #========================卸载===================================================================
 Function un.onInit
 InitPluginsDir
 System::Call 'kernel32::CreateMutexA(i 0, i 0, t "autocall_uninstaller") i .r1 ?e'
 Pop $R0
 StrCmp $R0 0 +3
 MessageBox MB_OK|MB_ICONEXCLAMATION "已经有一个AutoCall卸载向导正在运行! "
 Abort
 MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "您确实要完全移除 $(^Name) ,其及所有的组件? " /SD IDYES IDNO +7
 execwait "$INSTDIRNetAssistant.Uninstall.exe" $0
 ${if} $0 == 1
 Abort
 ${elseif} $0 == 2
 goto End1
 ${endif}
 Abort
 End1:
 FunctionEnd
 Function un.onGUIEnd
 FunctionEnd
 Function un.onUninstSuccess
 HideWindow
 MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地从您的计算机移除。 "
 FunctionEnd
 #=======================安装的具体操作======================================================
 Section Main
 SetOutPath "$INSTDIR"
 SetOverwrite try
 File /r "files*.*"
 sleep 5000
 SectionEnd
 #-----------------------------------------------------------------------------------------#
 Section -Addtion
 CreateShortCut "$DESKTOPAutoCall.lnk" "$INSTDIRAutoCall.exe" "" "" "" "" "" "AutoCall"
 CreateDirectory "$SMPROGRAMSAutoCall"
 CreateShortCut "$SMPROGRAMSAutoCallAutoCall.lnk" "$INSTDIRAutoCall.exe"
 CreateShortCut "$SMPROGRAMSAutoCallAutoCall卸载.lnk" "$INSTDIRuninst.exe"
 GetDlgItem $0 $HWNDPARENT 1
 EnableWindow $0 1
 SendMessage $0 ${BM_CLICK} 0 0
 sectionEnd
 Section -Post
 WriteUninstaller "$INSTDIRuninst.exe"
 SectionEnd
 Section Uninstall
 sleep 1000
 Delete "$INSTDIR*.*"
 RMDir "$INSTDIR"
 Delete "$SMPROGRAMSAutoCallAutoCall.lnk"
 Delete "$SMPROGRAMSAutoCallAutoCall卸载.lnk"
 RMDir "$SMPROGRAMSAutoCall"
 Delete "$DESKTOPAutoCall.lnk"
 SetAutoClose true
 SectionEnd