# The contents of this file are subject to the BitTorrent Open Source License# Version 1.0 (the License).  You may not copy or use this file, in either# source code or executable form, except in compliance with the License.  You# may obtain a copy of the License at http://www.bittorrent.com/license/.## Software distributed under the License is distributed on an AS IS basis,# WITHOUT WARRANTY OF ANY KIND, either express or implied.  See the License# for the specific language governing rights and limitations under the# License.# Written by Bram Cohen and Matt Chisholm!define VERSION "4.0.1"!define APPNAME "BitTorrent"Outfile ${APPNAME}-${VERSION}.exeName "${APPNAME}"SilentInstall silentSetCompressor lzmaInstallDir "$PROGRAMFILES\${APPNAME}\"; This function ensures that you have administrator privileges; it is copied from:;http://nsis.sourceforge.net/archive/viewpage.php?pageid=275Function IsUserAdminPush $R0Push $R1Push $R2ClearErrorsUserInfo::GetNameIfErrors Win9xPop $R1UserInfo::GetAccountTypePop $R2StrCmp $R2 "Admin" 0 ContinueStrCpy $R0 "true"Goto DoneContinue:StrCmp $R2 "" Win9xStrCpy $R0 "false"Goto DoneWin9x:StrCpy $R0 "true"Done:Pop $R2Pop $R1Exch $R0FunctionEndFunction QuitIt  checkforit:    Processes::FindProcess "btdownloadgui.exe"    StrCmp $R0 "1" foundit didntfindit  waitforit:    Sleep 2000    Goto checkforit   foundit:    MessageBox MB_OKCANCEL "You must quit ${APPNAME} before installing this \    version.$\r$\nPlease quit it and press OK to continue." IDOK waitforit    Abort  didntfindit:  checkforit2:    Processes::FindProcess "btmaketorrentgui.exe"    StrCmp $R0 "1" foundit2 didntfindit2  waitforit2:    Sleep 2000    Goto checkforit2  foundit2:    MessageBox MB_OKCANCEL "You must quit ${APPNAME} metafile creator before \    installing this version.$\r$\nPlease quit it and press OK to continue." \    IDOK waitforit2    Abort  didntfindit2:FunctionEnd; This function is a copy of QuitIt because NSIS enforces weird namespace crapFunction un.QuitIt  checkforit:    Processes::FindProcess "btdownloadgui.exe"    StrCmp $R0 "1" foundit didntfindit  waitforit:    Sleep 2000    Goto checkforit   foundit:    MessageBox MB_OKCANCEL "You must quit ${APPNAME} before installing this \    version.$\r$\nPlease quit it and press OK to continue." IDOK waitforit    Abort  didntfindit:  checkforit2:    Processes::FindProcess "btmaketorrentgui.exe"    StrCmp $R0 "1" foundit2 didntfindit2  waitforit2:    Sleep 2000    Goto checkforit2  foundit2:    MessageBox MB_OKCANCEL "You must quit ${APPNAME} metafile creator before \    installing this version.$\r$\nPlease quit it and press OK to continue." \    IDOK waitforit2    Abort  didntfindit2:FunctionEnd; This function automatically uninstalls older versions.; It is partly copied from: ; http://nsis.sourceforge.net/archive/viewpage.php?pageid=326Function .onInit  Call QuitIt  ClearErrors  ReadRegStr $R0 HKLM \  "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" \  "UninstallString"  StrCmp $R0 "" done  MessageBox MB_OKCANCEL|MB_ICONEXCLAMATION \  "Another version of ${APPNAME} is already installed. $\n$\nClick `OK` to \  remove the already installed version and continue installing this version. \   $\n$\nClick `Cancel` to cancel this installation." \  IDOK uninst  Abort  ;Run the uninstalleruninst:  ExecWait '$R0 _?=$INSTDIR /S' ;Do not copy the uninstaller to a temp file  IfErrors no_remove_uninstaller  Goto endofuninst  no_remove_uninstaller:     MessageBox MB_OK "Uninstallation failed. Aborting."    Abort  endofuninst:done:FunctionEndSection "Install"  Call IsUserAdmin  Pop $R0  StrCmp $R0 "false" abortinstall continueinstall  abortinstall:  MessageBox MB_OK "You must have Administrator privileges to install ${APPNAME}."   Goto endofinstall  continueinstall:  SetOutPath $INSTDIR  WriteUninstaller "$INSTDIR\uninstall.exe"  File dist\*.exe  File dist\*.pyd  File dist\*.dll  File dist\library.zip  File /r dist\images  File /r dist\lib  File /r dist\etc  File /r dist\share  File redirdonate.html  File credits.txt  File LICENSE.txt  File README.txt  ; registry entries  WriteRegStr HKCR .torrent "" bittorrent  DeleteRegKey HKCR ".torrent\Content Type"  WriteRegStr HKCR "MIME\Database\Content Type\application/x-bittorrent" Extension .torrent  WriteRegStr HKCR bittorrent "" "TORRENT File"  WriteRegBin HKCR bittorrent EditFlags 00000100  WriteRegStr HKCR "bittorrent\shell" "" open  WriteRegStr HKCR "bittorrent\shell\open\command" "" `"$INSTDIR\btdownloadgui.exe" --responsefile "%1"`  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" "DisplayName" "${APPNAME} ${VERSION}"  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}" "UninstallString" '"$INSTDIR\uninstall.exe"'  ; Add items to start menu  CreateDirectory "$SMPROGRAMS\${APPNAME}"  CreateShortCut "$SMPROGRAMS\${APPNAME}\Downloader.lnk"   "$INSTDIR\btdownloadgui.exe"  CreateShortCut "$SMPROGRAMS\${APPNAME}\Make Torrent.lnk" "$INSTDIR\btmaketorrentgui.exe"  CreateShortCut "$SMPROGRAMS\${APPNAME}\Donate.lnk"       "$INSTDIR\redirdonate.html"  ExecShell open "$INSTDIR\redirdonate.html"  Sleep 2000  MessageBox MB_OK "${APPNAME} has been successfully installed!$\r$\n$\r$\nTo use ${APPNAME}, visit a web site which uses it and click on a link."  BringToFront  endofinstall:SectionEndSection "Uninstall"  Call un.QuitIt  DeleteRegKey HKCR .torrent  DeleteRegKey HKCR "MIME\Database\Content Type\application/x-bittorrent"  DeleteRegKey HKCR bittorrent  DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${APPNAME}"  RMDir /r "$INSTDIR"  RMDir /r "$SMPROGRAMS\${APPNAME}"SectionEnd