Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Habetdin


Автор проектов


Сообщения: 3652
Благодарности: 1498

Профиль | Сайт | Отправить PM | Цитировать


Скрипт для перепаковки MRA 5.7.3637
Код: Выделить весь код
!define PRODUCT_NAME "Mail.ru Агент"
!define PRODUCT_VERSION "5.7.3637"
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
!define PRODUCT_UNINST_ROOT_KEY "HKLM"
!define Branding "OSzone.net"
!define pkgdir "D:\MRA"

; MUI 1.67 compatible ------
!include "MUI.nsh"
SetCompressor /SOLID lzma
; MUI Settings
!define MUI_COMPONENTSPAGE_NODESC 
!define MUI_ABORTWARNING
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"
!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico"

!insertmacro MUI_PAGE_WELCOME
!insertmacro MUI_PAGE_DIRECTORY
!insertmacro MUI_PAGE_COMPONENTS
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_PAGE_FINISH
;;;
!insertmacro MUI_UNPAGE_CONFIRM
!insertmacro MUI_UNPAGE_COMPONENTS
!insertmacro MUI_UNPAGE_INSTFILES
!insertmacro MUI_UNPAGE_FINISH

; Language files
!insertmacro MUI_LANGUAGE "Russian"

; MUI end ------
Name "${PRODUCT_NAME}"
Caption "${PRODUCT_NAME} ${PRODUCT_VERSION}"
UninstallCaption "Удаление ${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "${PRODUCT_NAME}-${PRODUCT_VERSION}.exe"
InstallDir "$PROGRAMFILES\Mail.ru\Agent"
BrandingText "${Branding}"
ShowInstDetails show
ShowUnInstDetails show
InstType "Полная"
InstType "Сокращенная"
InstType "un.Полное удаление ${PRODUCT_NAME}"
Section "${PRODUCT_NAME}" SEC01
	SectionIn 1 2 RO
  SetAutoClose true
  SetOutPath "$INSTDIR"
  File /r "${pkgdir}\agent\*.*"
  RegDLL "$INSTDIR\Mra\dll\mramenu.dll"
  RegDLL "$INSTDIR\Mra\dll\mratag.dll"
  ;WriteRegDWORD HKCU "Software\Mail.Ru\Agent" "set_mrasearch" 0
  WriteRegStr HKCU "Software\Mail.Ru\Agent" "lang" "ru" 
  ;WriteRegDWORD HKCU "Software\Mail.Ru\Agent" "SavedInstSettings" 286261249
  WriteRegDWORD HKCU "Software\Mail.Ru\Agent" "SendSystemStatistics" 0
  ;;;
  WriteRegDWORD HKLM "Software\Mail.Ru\Agent" "ForAllUsers" 1
  WriteRegDWORD HKLM "Software\Mail.Ru\Agent" "SendSystemStatistics" 0
  WriteRegDWORD HKLM "Software\Mail.Ru\Agent" "version" 3270
  WriteRegStr HKLM "Software\Mail.Ru\Agent" "InstallPath" "$OUTDIR" 
  
  CreateDirectory "$APPDATA\Mra\Update"
  
  SetShellVarContext all
  CreateDirectory "$SMPROGRAMS\Mail.ru"
  CreateShortCut "$SMPROGRAMS\Mail.ru\${PRODUCT_NAME}.lnk" "$OUTDIR\magent.exe"
  WriteUninstaller "$OUTDIR\uninst.exe"
  CreateShortCut "$SMPROGRAMS\Mail.ru\Удалить ${PRODUCT_NAME}.lnk" "$OUTDIR\uninst.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "${PRODUCT_NAME}"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$OUTDIR\uninst.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
SectionEnd

Section /o "Ярлык на рабочем столе"
    SectionIn 1
	CreateShortCut "$Desktop\${PRODUCT_NAME}.lnk" "$INSTDIR\magent.exe"
SectionEnd


Section Uninstall secidx01
  SectionIn 1 RO
  DeleteRegKey HKLM "Software\Mail.Ru\Agent"
  UnRegDLL "$INSTDIR\Mra\dll\mramenu.dll"
  UnRegDLL "$INSTDIR\Mra\dll\mratag.dll"
  UnRegDLL "$INSTDIR\Mra\dll\newmrasearch.dll"
  Delete /REBOOTOK "$INSTDIR\Mra\dll\mramenu.dll"
  RMDir /r "$INSTDIR"

  SetShellVarContext all
  RMDir /r "$SMPROGRAMS\Mail.ru"
  Delete "$Desktop\${PRODUCT_NAME}.lnk" 	
  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
  DeleteRegValue HKCU "Software\Microsoft\Internet Explorer\URLSearchHooks" "{83821C2B-32A8-4DD7-B6D4-44309A78E668}"
  DeleteRegKey HKLM "SOFTWARE\Classes\*\shellex\ContextMenuHandlers\MRACMenu"
  SetAutoClose true
SectionEnd


Section "Un.Удалить папку данных"
    SectionIn 1
	SetShellVarContext current
	RMDir /r "$APPDATA\Mra\" 
SectionEnd

Section "Un.Удалить настройки реестра"
  SectionIn 1
  SetShellVarContext current
  DeleteRegKey HKCU "Software\Mail.Ru\Agent"
SectionEnd


Function un.onInit
	SectionSetText ${secidx01} "Удалить приложение"
FunctionEnd

-------
Рекомендую: $25 на тест виртуального сервера (VPS) за регистрацию по ссылке

Это сообщение посчитали полезным следующие участники:

Отправлено: 03:02, 30-07-2010 | #38