脚本:猪猪番薯主题包1.3
优质
小牛编辑
145浏览
2023-12-01
引用脚本的内容:
; 该脚本使用 HM VNISEdit 脚本编辑器向导产生 !include "LogicLib.nsh" ; 安装程序初始定义常量 !define PRODUCT_NAME "猪猪番薯主题包" !define PRODUCT_VERSION "1.3" !define PRODUCT_PUBLISHER "猪猪番薯论坛" !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" !define PRODUCT_UNINST_ROOT_KEY "HKLM" SetCompressor /final /SOLID lzma BrandingText "猪猪番薯论坛 http://www.ppfans.net" ; ------ MUI 现代界面定义 (1.67 版本以上兼容) ------ !include "MUI.nsh" ; MUI 预定义常量 !define MUI_ABORTWARNING !define MUI_COMPONENTSPAGE_SMALLDESC !define MUI_ICON "ppfans.ico" !define MUI_UNICON "un.ico" !define MUI_WELCOMEFINISHPAGE_BITMAP "1.bmp" ;左边 !define MUI_HEADERIMAGE !define MUI_HEADERIMAGE_BITMAP "2.bmp" !define MUI_HEADERIMAGE_UNBITMAP "2.bmp" ;!define MUI_HEADERIMAGE_LEFT !define MUI_HEADERIMAGE_RIGHT ; 欢迎页面 !insertmacro MUI_PAGE_WELCOME ; 许可协议页面 !define MUI_LICENSEPAGE_CHECKBOX !insertmacro MUI_PAGE_LICENSE "License.txt" ; 组件选择页面 !insertmacro MUI_PAGE_COMPONENTS ; 安装过程页面 !insertmacro MUI_PAGE_INSTFILES ; 安装完成页面 !define MUI_FINISHPAGE_SHOWREADME "$WINDIR\Resources\Themes\README.TXT" !define MUI_FINISHPAGE_LINK_LOCATION "http://www.ppfans.net" !define MUI_FINISHPAGE_LINK "访问 猪猪番薯论坛" !insertmacro MUI_PAGE_FINISH ; 安装卸载过程页面 !insertmacro MUI_UNPAGE_INSTFILES ; 安装界面包含的语言设置 !insertmacro MUI_LANGUAGE "SimpChinese" ; 安装预释放文件 !insertmacro MUI_RESERVEFILE_INSTALLOPTIONS ; ------ MUI 现代界面定义结束 ------ Name "${PRODUCT_NAME} ${PRODUCT_VERSION}" OutFile "style v1.3.exe" InstallDir "$WINDIR\Resources\Themes" ShowInstDetails show ShowUnInstDetails show ; 激活安装日志记录,该日志文件将会作为卸载文件的依据(注意,本区段必须放置在所有区段之前) Section "猪猪番薯OEM信息" SEC00 SetOutPath "$WINDIR\system32" SetOverwrite on File "OEMINFO.INI" File "OEMLOGO.BMP" File "ppfans.ico" WriteRegStr HKCR "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}" "" "猪猪番薯" WriteRegStr HKCR "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}" "InfoTip" "系统信息" WriteRegStr HKCR "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon" "" "ppfans.ico" WriteRegStr HKCR "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag" "Command" "猪猪番薯XP系列" WriteRegStr HKCR "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag" "Param1" "sysdm.cpl" WriteRegDWORD HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartMenu\StartPanel\ShowOEMLink" "NoOEMLinkInstalled" 0x00000000 WriteRegStr HKCU "Software\Microsoft\Internet Explorer\Main" "Start Page" "http://www.ppfans.net/" SectionEnd Section "LE4_Blue" SEC01 SetOutPath "$WINDIR\Resources\Themes\LE4" SetOverwrite on File /r "2003\LE4\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\LE4_Blue.theme" SetOutPath "$WINDIR\system32" File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\LE4_Blue.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico1" SetOverwrite on File "2003\icons\ico1\ico.icl" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "LE4_Black" SEC02 SetOutPath "$WINDIR\Resources\Themes\LE4" SetOverwrite on File /r "2003\LE4\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\LE4_Black.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\LE4_Black.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico1" SetOverwrite on File "2003\icons\ico1\ico.icl" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "Longhorn_Black" SEC03 SetOutPath "$WINDIR\Resources\Themes\Longhorn" SetOverwrite on File /r "2003\Longhorn\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\Longhorn_Black.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\Longhorn_Black.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico2" SetOverwrite on File /r "2003\icons\ico2\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "Longhorn_Silver" SEC04 SetOutPath "$WINDIR\Resources\Themes\Longhorn" SetOverwrite on File /r "2003\Longhorn\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\Longhorn_Silver.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\Longhorn_Silver.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico2" SetOverwrite on File /r "2003\icons\ico2\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "Vista" SEC05 SetOutPath "$WINDIR\Resources\Themes\Vista" SetOverwrite on File /r "2003\Vista\*.*" SetOutPath "$WINDIR\Cursors\Vista 5456" SetOverwrite on File /r "2003\Cursors\Vista 5456\*.*" SetOutPath "$WINDIR\Media\幻想空间" File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\Vista.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\Vista.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico4" SetOverwrite on File /r "2003\icons\ico4\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "Vista 5456" "%Windir%\Cursors\Vista 5456\Arrow.ani,%Windir%\Cursors\Vista 5456\Help.ani,%Windir%\Cursors\Vista 5456\AppStarting.ani,%Windir%\Cursors\Vista 5456\Wait.ani,%Windir%\Cursors\Vista 5456\Cross.ani,%Windir%\Cursors\Vista 5456\IBeam.ani,%Windir%\Cursors\Vista 5456\Handwriting.ani,%Windir%\Cursors\Vista 5456\NO.ani,%Windir%\Cursors\Vista 5456\SizeNS.ani,%Windir%\Cursors\Vista 5456\SizeWE.ani,%Windir%\Cursors\Vista 5456\SizeNWSE.ani,%Windir%\Cursors\Vista 5456\SizeNESW.ani,%Windir%\Cursors\Vista 5456\SizeAll.ani,%Windir%\Cursors\Vista 5456\UpArrow.ani,%Windir%\Cursors\Vista 5456\Hand.ani" SectionEnd Section "VistaXP" SEC06 SetOutPath "$WINDIR\Resources\Themes\VistaXP1" SetOverwrite on File /r "2003\VistaXP\*.*" SetOutPath "$WINDIR\Cursors\Vista 5456" SetOverwrite on File /r "2003\Cursors\Vista 5456\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\VistaXP.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\VistaXP.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico4" SetOverwrite on File /r "2003\icons\ico4\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "Vista 5456" "%Windir%\Cursors\Vista 5456\Arrow.ani,%Windir%\Cursors\Vista 5456\Help.ani,%Windir%\Cursors\Vista 5456\AppStarting.ani,%Windir%\Cursors\Vista 5456\Wait.ani,%Windir%\Cursors\Vista 5456\Cross.ani,%Windir%\Cursors\Vista 5456\IBeam.ani,%Windir%\Cursors\Vista 5456\Handwriting.ani,%Windir%\Cursors\Vista 5456\NO.ani,%Windir%\Cursors\Vista 5456\SizeNS.ani,%Windir%\Cursors\Vista 5456\SizeWE.ani,%Windir%\Cursors\Vista 5456\SizeNWSE.ani,%Windir%\Cursors\Vista 5456\SizeNESW.ani,%Windir%\Cursors\Vista 5456\SizeAll.ani,%Windir%\Cursors\Vista 5456\UpArrow.ani,%Windir%\Cursors\Vista 5456\Hand.ani" SectionEnd Section "VistaCG" SEC07 SetOutPath "$WINDIR\Resources\Themes\VistaCG" SetOverwrite on File /r "2003\VistaCG\*.*" SetOutPath "$WINDIR\Cursors\Vista 5456" SetOverwrite on File /r "2003\Cursors\Vista 5456\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" File "2003\VistaCG.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\VistaCG.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico4" SetOverwrite on File /r "2003\icons\ico4\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "Vista 5456" "%Windir%\Cursors\Vista 5456\Arrow.ani,%Windir%\Cursors\Vista 5456\Help.ani,%Windir%\Cursors\Vista 5456\AppStarting.ani,%Windir%\Cursors\Vista 5456\Wait.ani,%Windir%\Cursors\Vista 5456\Cross.ani,%Windir%\Cursors\Vista 5456\IBeam.ani,%Windir%\Cursors\Vista 5456\Handwriting.ani,%Windir%\Cursors\Vista 5456\NO.ani,%Windir%\Cursors\Vista 5456\SizeNS.ani,%Windir%\Cursors\Vista 5456\SizeWE.ani,%Windir%\Cursors\Vista 5456\SizeNWSE.ani,%Windir%\Cursors\Vista 5456\SizeNESW.ani,%Windir%\Cursors\Vista 5456\SizeAll.ani,%Windir%\Cursors\Vista 5456\UpArrow.ani,%Windir%\Cursors\Vista 5456\Hand.ani" SectionEnd Section "Inspiat" SEC08 SetOutPath "$WINDIR\Resources\Themes\Inspiat" SetOverwrite on File /r "2003\Inspiat\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\Inspiat.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\Inspiat.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico1" SetOverwrite on File "2003\icons\ico1\ico.icl" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "MSN" SEC09 SetOutPath "$WINDIR\Resources\Themes\MSN" SetOverwrite on File /r "2003\MSN\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\MSN.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\MSN.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico1" SetOverwrite on File "2003\icons\ico1\ico.icl" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "PixOS" SEC10 SetOutPath "$WINDIR\Resources\Themes\PixOS" SetOverwrite on File /r "2003\PixOS\*.*" SetOutPath "$WINDIR\Cursors\PixOS" SetOverwrite on File /r "2003\Cursors\PixOS\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\PixOS.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\PixOS.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico6" SetOverwrite on File /r "2003\icons\ico6\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "PixOS" "%Windir%\Cursors\PixOS\Arrow.ani,%Windir%\Cursors\PixOS\Help.ani,%Windir%\Cursors\PixOS\AppStarting.ani,%Windir%\Cursors\PixOS\Wait.ani,%Windir%\Cursors\PixOS\Cross.ani,%Windir%\Cursors\PixOS\IBeam.ani,%Windir%\Cursors\PixOS\Handwriting.ani,%Windir%\Cursors\PixOS\NO.ani,%Windir%\Cursors\PixOS\SizeNS.ani,%Windir%\Cursors\PixOS\SizeWE.ani,%Windir%\Cursors\PixOS\SizeNWSE.ani,%Windir%\Cursors\PixOS\SizeNESW.ani,%Windir%\Cursors\PixOS\SizeAll.ani,%Windir%\Cursors\PixOS\UpArrow.ani,%Windir%\Cursors\PixOS\Hand.ani" SectionEnd Section "Royale" SEC11 SetOutPath "$WINDIR\Resources\Themes\Royale" SetOverwrite on File /r "2003\Royale\*.*" SetOutPath "$WINDIR\Cursors\blue_a" SetOverwrite on File /r "2003\Cursors\blue_a\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\Royale.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\Royale.jpg" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "blue_a" "%Windir%\Cursors\blue_a\Arrow.ani,%Windir%\Cursors\blue_a\Help.ani,%Windir%\Cursors\blue_a\AppStarting.ani,%Windir%\Cursors\blue_a\Wait.ani,%Windir%\Cursors\blue_a\Cross.ani,%Windir%\Cursors\blue_a\IBeam.ani,%Windir%\Cursors\blue_a\Handwriting.ani,%Windir%\Cursors\blue_a\NO.ani,%Windir%\Cursors\blue_a\SizeNS.ani,%Windir%\Cursors\blue_a\SizeWE.ani,%Windir%\Cursors\blue_a\SizeNWSE.ani,%Windir%\Cursors\blue_a\SizeNESW.ani,%Windir%\Cursors\blue_a\SizeAll.ani,%Windir%\Cursors\blue_a\UpArrow.ani,%Windir%\Cursors\blue_a\Hand.ani" SectionEnd Section "Tiger" SEC12 SetOutPath "$WINDIR\Resources\Themes\Tiger" SetOverwrite on File /r "2003\Tiger\*.*" SetOutPath "$WINDIR\Cursors\Blue apple" SetOverwrite on File /r "2003\Cursors\Blue apple\*.*" SetOutPath "$WINDIR\Media\幻想空间" SetOverwrite on File /r "2003\Media\幻想空间\*.*" SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\Tiger.theme" SetOutPath "$WINDIR\system32" SetOverwrite on File "2003\Screensaver\Aurora.scr" SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File "2003\主题Wallpapers\Tiger.jpg" SetOutPath "$WINDIR\Resources\Themes\icons\ico3" SetOverwrite on File /r "2003\icons\ico3\*.*" WriteRegStr HKCU "Control Panel\Cursors\Schemes" "Blue apple" "%Windir%\Cursors\Blue apple\Arrow.ani,%Windir%\Cursors\Blue apple\Help.ani,%Windir%\Cursors\Blue apple\AppStarting.ani,%Windir%\Cursors\Blue apple\Wait.ani,%Windir%\Cursors\Blue apple\Cross.ani,%Windir%\Cursors\Blue apple\IBeam.ani,%Windir%\Cursors\Blue apple\Handwriting.ani,%Windir%\Cursors\Blue apple\NO.ani,%Windir%\Cursors\Blue apple\SizeNS.ani,%Windir%\Cursors\Blue apple\SizeWE.ani,%Windir%\Cursors\Blue apple\SizeNWSE.ani,%Windir%\Cursors\Blue apple\SizeNESW.ani,%Windir%\Cursors\Blue apple\SizeAll.ani,%Windir%\Cursors\Blue apple\UpArrow.ani,%Windir%\Cursors\Blue apple\Hand.ani" SectionEnd Section "壁纸" SEC13 SectionIn 1 2 SetOutPath "$WINDIR\web\Wallpaper" SetOverwrite on File /r "2003\Wallpaper\*.*" File /r "2003\主题Wallpapers\*.*" Delete "$WINDIR\Blue Lace 16.bmp" Delete "$WINDIR\Coffee Bean.bmp" Delete "$WINDIR\FeatherTexture.bmp" Delete "$WINDIR\Gone Fishing.bmp" Delete "$WINDIR\Greenstone.bmp" Delete "$WINDIR\Prairie Wind.bmp" Delete "$WINDIR\Rhododendron.bmp" Delete "$WINDIR\River Sumida.bmp" Delete "$WINDIR\Santa Fe Stucco.bmp" Delete "$WINDIR\Soap Bubbles.bmp" Delete "$WINDIR\Zapotec.bmp" Delete "$WINDIR\Web\Wallpaper\Ascent.jpg" Delete "$WINDIR\Web\Wallpaper\Autumn.jpg" Delete "$WINDIR\Web\Wallpaper\Azul.jpg" Delete "$WINDIR\Web\Wallpaper\Crystal.jpg" Delete "$WINDIR\Web\Wallpaper\Follow.jpg" Delete "$WINDIR\Web\Wallpaper\Friend.jpg" Delete "$WINDIR\Web\Wallpaper\Home.jpg" Delete "$WINDIR\Web\Wallpaper\Moon flower.jpg" Delete "$WINDIR\Web\Wallpaper\Peace.jpg" Delete "$WINDIR\Web\Wallpaper\Power.jpg" Delete "$WINDIR\Web\Wallpaper\Purple flower.jpg" Delete "$WINDIR\Web\Wallpaper\Radiance.jpg" Delete "$WINDIR\Web\Wallpaper\Red moon desert.jpg" Delete "$WINDIR\Web\Wallpaper\Ripple.jpg" Delete "$WINDIR\Web\Wallpaper\Stonehenge.jpg" Delete "$WINDIR\Web\Wallpaper\Ripple.jpg" Delete "$WINDIR\Web\Wallpaper\Tulips.jpg" Delete "$WINDIR\Web\Wallpaper\Vortec space.jpg" Delete "$WINDIR\Web\Wallpaper\Wind.jpg" Delete "$WINDIR\Web\Wallpaper\Windows XP.jpg" SectionEnd Section "用户头像" SEC14 Strcpy $R2 $WINDIR 2 SectionIn 1 2 SetOutPath "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures" SetOverwrite on File /r "2003\Default Pictures\*.*" SectionEnd Section "-屏幕保护" SEC15 SetOutPath "$WINDIR\system32" SetOverwrite on File /r "2003\Screensaver\*.*" SectionEnd Section "-License and README" SEC16 SetOutPath "$WINDIR\Resources\Themes" SetOverwrite on File "2003\License.txt" File "2003\README.TXT" SectionEnd Section -Post WriteUninstaller "$INSTDIR\uninst.exe" WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)" WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe" WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}" WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}" SectionEnd #-- 根据 NSIS 脚本编辑规则,所有 Function 区段必须放置在 Section 区段之后编写,以避免安装程序出现未可预知的问题。--# !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN !insertmacro MUI_DESCRIPTION_TEXT ${SEC00} "猪猪番薯OEM信息" !insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "LE4_Blue(LE4蓝色桌面主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "LE4_Black(LE4黑色桌面主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC03} "Longhorn_Black(Longhorn黑色主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC04} "Longhorn_Silver(Longhorn银色主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC05} "Vista(Windows Vista主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC06} "Vistaxp(仿透明Vista主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC07} "VistaCG(Vista主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC08} "Inspiat(Inspiat银色主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC09} "MSN(MSN桌面主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC10} "PixOS(PixOS苹果桌面主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC11} "Royale(Windows Media Center默认主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC12} "Tiger(FlyakiteOSX主题)" !insertmacro MUI_DESCRIPTION_TEXT ${SEC13} "75张精选壁纸" !insertmacro MUI_DESCRIPTION_TEXT ${SEC14} "精选头像" !insertmacro MUI_FUNCTION_DESCRIPTION_END /****************************** * 以下是安装程序的卸载部分 * ******************************/ ; 根据安装日志卸载文件的调用宏 !macro DelFileByLog LogFile ifFileExists `${LogFile}` 0 +4 Push `${LogFile}` Call un.DelFileByLog Delete `${LogFile}` !macroend Section Uninstall Delete "$INSTDIR\${PRODUCT_NAME}.url" ; 调用宏只根据安装日志卸载安装程序自己安装过的文件 !insertmacro DelFileByLog "$INSTDIR\install.log" ; 清除安装程序创建的且在卸载时可能为空的子目录,对于递归添加的文件目录,请由最内层的子目录开始清除(注意,不要带 /r 参数,否则会失去 DelFileByLog 的意义) Delete /REBOOTOK "$INSTDIR\uninst.exe" Delete /REBOOTOK "$INSTDIR\License.txt" Delete /REBOOTOK "$INSTDIR\README.TXT" Delete /REBOOTOK "$INSTDIR\LE4_Black.theme" Delete /REBOOTOK "$INSTDIR\LE4_Blue.theme" Delete /REBOOTOK "$INSTDIR\Longhorn_Black.theme" Delete /REBOOTOK "$INSTDIR\Longhorn_Silver.theme" Delete /REBOOTOK "$INSTDIR\Vista.theme" Delete /REBOOTOK "$INSTDIR\Vistaxp.theme" Delete /REBOOTOK "$INSTDIR\VistaCG.theme" Delete /REBOOTOK "$INSTDIR\Inspiat.theme" Delete /REBOOTOK "$INSTDIR\MSN.theme" Delete /REBOOTOK "$INSTDIR\PixOS.theme" Delete /REBOOTOK "$INSTDIR\Royale.theme" Delete /REBOOTOK "$INSTDIR\Tiger.theme" Delete /REBOOTOK "$SYSDIR\Aurora.scr" RMDir /r "$INSTDIR\LE4" RMDir /r "$INSTDIR\Longhorn" RMDir /r "$INSTDIR\Vista" RMDir /r "$INSTDIR\VistaXP1" RMDir /r "$INSTDIR\VistaCG" RMDir /r "$INSTDIR\Inspiat" RMDir /r "$INSTDIR\MSN" RMDir /r "$INSTDIR\PixOS" RMDir /r "$INSTDIR\Royale" RMDir /r "$INSTDIR\Tiger" RMDir /r "$INSTDIR\icons" RMDir /r "$WINDIR\Cursors\PixOS" RMDir /r "$WINDIR\Cursors\Blue apple" RMDir /r "$WINDIR\Cursors\Vista 5456" RMDir /r "$WINDIR\Cursors\blue_a" RMDir /r "$WINDIR\Media\幻想空间" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Inspiat.JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\VistaCG.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\LE4_Blue.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\LE4_Black.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Longhorn_Black.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Longhorn_Silver.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Vista.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\VistaXP.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\VistaCG.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Inspiat.JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\MSN.JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\PixOS.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Royale.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\Tiger.jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (0).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (1).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (2).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (3).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (4).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (5).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (6).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (7).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (8).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (9).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (10).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (11).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (12).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (13).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (14).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (15).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (16).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (17).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (18).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (19).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (20).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (21).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (22).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (23).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (24).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (25).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (26).JPG" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (27).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (28).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (29).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (30).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (31).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (32).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (33).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (34).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (35).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (36).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (37).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (38).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (39).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (40).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (41).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (42).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (43).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (44).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (45).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (46).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (47).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (48).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (49).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (50).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (51).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (52).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (53).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (54).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (55).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (56).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (57).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (58).jpg" Delete /REBOOTOK "$WINDIR\Web\Wallpaper\wallpapers (59).jpg" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (1).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (2).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (3).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (4).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (5).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (6).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (7).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (8).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (9).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (10).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (11).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (12).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (13).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (14).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (15).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (16).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (17).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (18).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (19).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (20).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (21).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (22).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (23).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (24).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (25).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (26).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (27).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (28).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (29).png" Delete /REBOOTOK "$R2\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Default Pictures (30).png" DeleteRegValue HKCU "Control Panel\Cursors\Schemes" "Blue apple" DeleteRegValue HKCU "Control Panel\Cursors\Schemes" "PixOS" DeleteRegValue HKCU "Control Panel\Cursors\Schemes" "Vista 5456" DeleteRegValue HKCU "Control Panel\Cursors\Schemes" "blue_a" RMDir "$INSTDIR" DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" SetAutoClose true SectionEnd #-- 根据 NSIS 脚本编辑规则,所有 Function 区段必须放置在 Section 区段之后编写,以避免安装程序出现未可预知的问题。--# Function un.onInit MessageBox MB_OK "在删除之前,先请换回XP默认主题!" ExecShell "open" "$WINDIR\Resources\Themes\Luna.theme" MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "你确实要完全移除 猪猪番薯主题包v1.3,及其所有的组件?" IDYES +2 Abort FunctionEnd Function un.onUninstSuccess HideWindow MessageBox MB_ICONINFORMATION|MB_OK "猪猪番薯主题包v1.3 已成功地从你的计算机移除。" FunctionEnd ; 以下是卸载程序通过安装日志卸载文件的专用函数,请不要随意修改 Function un.DelFileByLog Exch $R0 Push $R1 Push $R2 Push $R3 FileOpen $R0 $R0 r ${Do} FileRead $R0 $R1 ${IfThen} $R1 == `` ${|} ${ExitDo} ${|} StrCpy $R1 $R1 -2 StrCpy $R2 $R1 11 StrCpy $R3 $R1 20 ${If} $R2 == "File: wrote" ${OrIf} $R2 == "File: skipp" ${OrIf} $R3 == "CreateShortCut: out:" ${OrIf} $R3 == "created uninstaller:" Push $R1 Push `"` Call un.DelFileByLog.StrLoc Pop $R2 ${If} $R2 != "" IntOp $R2 $R2 + 1 StrCpy $R3 $R1 "" $R2 Push $R3 Push `"` Call un.DelFileByLog.StrLoc Pop $R2 ${If} $R2 != "" StrCpy $R3 $R3 $R2 Delete /REBOOTOK $R3 ${EndIf} ${EndIf} ${EndIf} StrCpy $R2 $R1 7 ${If} $R2 == "Rename:" Push $R1 Push "->" Call un.DelFileByLog.StrLoc Pop $R2 ${If} $R2 != "" IntOp $R2 $R2 + 2 StrCpy $R3 $R1 "" $R2 Delete /REBOOTOK $R3 ${EndIf} ${EndIf} ${Loop} FileClose $R0 Pop $R3 Pop $R2 Pop $R1 Pop $R0 FunctionEnd Function un.DelFileByLog.StrLoc Exch $R0 Exch Exch $R1 Push $R2 Push $R3 Push $R4 Push $R5 StrLen $R2 $R0 StrLen $R3 $R1 StrCpy $R4 0 ${Do} StrCpy $R5 $R1 $R2 $R4 ${If} $R5 == $R0 ${OrIf} $R4 = $R3 ${ExitDo} ${EndIf} IntOp $R4 $R4 + 1 ${Loop} ${If} $R4 = $R3 StrCpy $R0 "" ${Else} StrCpy $R0 $R4 ${EndIf} Pop $R5 Pop $R4 Pop $R3 Pop $R2 Pop $R1 Exch $R0 FunctionEnd
定义宏的示例:
!macro MyFunc UN Function ${UN}MyFunc Call ${UN}DoRegStuff ReadRegStr $0 HKLM Software\MyProgram key DetailPrint $0 FunctionEnd