app/setup.ahk

   1 ; Copyright (C) 2008, Vincent Povirk for CodeWeavers
   2 ;
   3 ; This library is free software; you can redistribute it and/or
   4 ; modify it under the terms of the GNU Lesser General Public
   5 ; License as published by the Free Software Foundation; either
   6 ; version 2 of the License, or (at your option) any later version.
   7 ;
   8 ; This library is distributed in the hope that it will be useful,
   9 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 ; Lesser General Public License for more details.
  12 ;
  13 ; You should have received a copy of the GNU Lesser General Public
  14 ; License along with this library; if not, write to the
  15 ; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  16 ; Boston, MA 02111-1307, USA.
  17
  18 ; Compiled to setup.exe using AutoHotKey's script compiler (www.autohotkey.com)
  19
  20 #NoEnv
  21 #NoTrayIcon
  22
  23 DownloadWithProgressBar(url, desc, size, file)
  24 {
  25     global DownloadProgress = 0
  26
  27     ProgressWidth := A_ScreenWidth / 3
  28
  29     ;TODO: internationalize this text
  30     Gui, Add, Text, , Downloading %desc%...
  31     Gui, Add, Progress, Range-0-%size% VDownloadProgress w%ProgressWidth%
  32     Gui, Add, Button, Right GQuit, Cancel
  33     Gui, Show
  34
  35     SetTimer, UpdateDownloadProgress, 500
  36
  37     UrlDownloadToFile, %url%, %file%
  38
  39     result := ErrorLevel
  40
  41     SetTimer, UpdateDownloadProgress, Off
  42
  43     Gui, Hide
  44
  45     return result
  46
  47 UpdateDownloadProgress:
  48     FileGetSize, BytesDownloaded, %file%
  49     GuiControl,, DownloadProgress, %BytesDownloaded%
  50
  51     return
  52
  53 Quit:
  54     ; UrlDownloadToFile can't be interrupted once it started so we have to end
  55     ; the process.
  56     ExitApp
  57 }
  58
  59 UpdateFirefoxShortcut()
  60 {
  61     RegRead, CurrentVersion, HKEY_LOCAL_MACHINE, Software\Mozilla\Mozilla Firefox, CurrentVersion
  62     IfEqual, ErrorLevel, 1
  63         FileCreateShortcut, %A_ScriptDir%\setup.exe setup-firefox, %A_ProgramsCommon%\Install Firefox.lnk
  64     else
  65         FileDelete, %A_ProgramsCommon%\Install Firefox.lnk
  66 }
  67
  68 ; The thing on the left in IfEqual is a variable name. This compares the first
  69 ; argument to setup-firefox
  70 IfEqual, 1, setup-firefox
  71 {
  72     filename = %A_Temp%\install-firefox.exe
  73
  74     ; TODO: check firefox install
  75     DownloadWithProgressBar("http://download.mozilla.org/?product=firefox-3.0.5&os=win&lang=en-US", "firefox", 7518240, filename)
  76
  77     IfEqual, ErrorLevel, 1
  78         ExitApp
  79
  80     RunWait, %filename%
  81
  82     UpdateFirefoxShortcut()
  83 }
  84 else
  85 {
  86     ;normal pre-init setup
  87
  88     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Wine\WineBrowser, Browser, sugar-start-uri
  89
  90     ;don't ever blink cursors
  91     IniWrite, -1, %A_WinDir%\win.ini, windows, CursorBlinkRate
  92
  93     ; work around wine bug 16729
  94     RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel\Desktop, FontSmoothing, 2
  95     RegWrite, REG_DWORD, HKEY_CURRENT_USER, Control Panel\Desktop, FontSmoothingType, 1
  96     RegWrite, REG_DWORD, HKEY_CURRENT_USER, Control Panel\Desktop, FontSmoothingGamma, 1400
  97
  98     FileCreateShortcut, %A_ScriptDir%\7zip\7zFM.exe C:, %A_ProgramsCommon%\Accessories\7-Zip File Manager.lnk, %A_ScriptDir%\7zip
  99
 100     ; 7zip file associations
 101     archive_types = 7z rar z zip
 102     Loop, Parse, archive_types, %A_Space%
 103     {
 104         RegWrite, REG_SZ, HKEY_CLASSES_ROOT, .%A_LoopField%, , 7-Zip.%A_LoopField%
 105         RegWrite, REG_SZ, HKEY_CLASSES_ROOT, 7-Zip.%A_LoopField%, , %A_LoopField% Archive
 106         RegWrite, REG_SZ, HKEY_CLASSES_ROOT, 7-Zip.%A_LoopField%\DefaultIcon, , %A_ScriptDir%\7zip\7z.dll`,0
 107         RegWrite, REG_SZ, HKEY_CLASSES_ROOT, 7-Zip.%A_LoopField%\shell\open\command, , "%A_ScriptDir%\7zip\7zFM.exe" "`%1"
 108     }
 109
 110     UpdateFirefoxShortcut()
 111 }
 112
 113 ExitApp
 114