Installer/InnoSetup/WinMerge.iss

   1 ;           Programmed by:  Christian Blackburn, Christian List, Kimmo Varis,\r
   2 ;                 Purpose:  The is the Inno Setup installation script for distributing our WinMerge application.\r
   3 ; Tools Needed To Compile:  Inno Setup 5.1.7+ (http://www.jrsoftware.org/isdl.php), Inno Setup QuickStart Pack 5.1.7+(http://www.jrsoftware.org/isdl.php)\r
   4 ;                           note: the versions of Inno Setup and the QuickStart Pack should be identical to ensure proper function\r
   5 ;Directly Dependant Files:  Because this is an installer. It would be difficult to list and maintain each of the files referenced\r
   6 ;                           throughout the script in the header.  If you search this plain text script for a particular file in our Subversio repository and it\r
   7 ;                           doesn't appear then this script is not directly dependant on that file.\r
   8 ;Compilation Instructions:  1.  Open this file in Inno Setup or ISTool\r
   9 ;                           2.  Make sure Compression=LZMA/Ultra, InternalCompressLevel=Ultra, and SolidCompression=True these values are lowered during\r
  10 ;                               development to speed up compilation, however at release we want the intaller to be as strong as possible.\r
  11 ;                           3. Check all files are present:\r
  12 ;                                   -From ISTool Click\r
  13 ;                           4.  Compile the script: "Project" --> "Verify Files..."\r
  14 ;                                   -From Inno Setup "Click "Build" --> "Compile"\r
  15 ;                                   -From ISTool Click "Project" --> "Compile Setup"\r
  16 ;                           5.  The compiled installer will appear in the \InnoSetup\Output\ directory at currently should be around 1.5MBs in size.\r
  17 ;\r
  18 ; Installer To Do List:\r
  19 ; #  Make the Install7ZipDll() Function automatically work with future versions of Merge7zDLL (Use GetCurentFileName)\r
  20 ; #  Provide the option to or not to assign the Ctrl+Alt+M accelerator to WinMerge., make sure it's turned on for at least one icon\r
  21 ; #  Add WinMerge to the user's path so they can execute comparison's from a Dos Prompt (Cmd.exe/Command.exe)\r
  22 ; #  We need to unregister, and delete the ShellExtension Dll if the user doesn't want it, during installation\r
  23 \r
  24 ; #  Display integration options in gray rather than hiding them if the user doesn't have the application in question installed\r
  25 ; #  We need to ask those that have the RCLLocalization.dll in their plugins folder if they actually want it, their answer will need to be stored in the registry\r
  26 ; #  Write code to detect "\Programs\WinMerge\WinMerge" type start menu installs\r
  27 ;\r
  28 ; Custom Installer Pages:\r
  29 ; #  Bundle 7-Zip with WinMerge or provide on the fly download capability.\r
  30 ; #  Allow users to set their working directory via a custom installer page\r
  31 ;\r
  32 ; Things that make the user's life easier:\r
  33 ; #  Create instructions and a sample language file using the Inno Setup Translator Tool (http://www2.arnes.si/~sopjsimo/translator.html)\r
  34 ; #  Add "WinMerge is running would you like to close it now?" support with programmatic termination\r
  35 ;     -Note: We'll need to add a declares statement to our ISX code so that we can use FindWindowEx directly or a mutex search or two\r
  36 ; #  Rather than requiring users to restart we could just kill all intances of Explorer.exe, but we'll need to prompt the user first and restart it\r
  37 ;    once the ShellExtension.dll file has been added or removed.\r
  38 ;\r
  39 ; Non-Essential Features:\r
  40 ; #  See about getting a higher resolution copy of the Users's Guide.ico source art from somebody (A 32x32, and or 48x48 would be nice)\r
  41 ; #  Using the registry set the order our icons appear within their group in the start menu.:\r
  42 ;      1.  WinMerge\r
  43 ;      2.  Read Me\r
  44 ;      3.  Users's Guide\r
  45 ;      4.  WinMerge on the Web\r
  46 ;      5.  Uninstall WinMerge\r
  47 ; #  Create the ability to install to two start menu groups simultaneously\r
  48 ;\r
  49 ; Not yet possible (Limited by Inno Setup):\r
  50 ; #  While uninstalling prompt the user as to whether or not they'd like to remove their WinMerge preferences too?\r
  51 \r
  52 #define AppVersion GetFileVersion(SourcePath + "\..\..\Build\MergeUnicodeRelease\WinMergeU.exe")\r
  53 #define FriendlyAppVersion Copy(GetFileVersion(SourcePath + "\..\..\Build\MergeUnicodeRelease\WinMergeU.exe"), 1, 5)\r
  54 \r
  55 \r
  56 [Setup]\r
  57 AppName=WinMerge\r
  58 AppVersion={#AppVersion}\r
  59 AppVerName=WinMerge {#AppVersion}\r
  60 AppPublisher=Thingamahoochie Software\r
  61 AppPublisherURL=http://www.geocities.co.jp/SiliconValley-SanJose/8165/\r
  62 AppSupportURL=http://www.geocities.co.jp/SiliconValley-SanJose/8165/\r
  63 AppUpdatesURL=http://www.geocities.co.jp/SiliconValley-SanJose/8165/\r
  64 \r
  65 ; Installer executable's version resource info\r
  66 VersionInfoCompany=http://www.geocities.co.jp/SiliconValley-SanJose/8165/\r
  67 VersionInfoDescription=WinMerge Installer\r
  68 VersionInfoVersion={#AppVersion}\r
  69 \r
  70 ;This is in case an older version of the installer happened to be\r
  71 DirExistsWarning=no\r
  72 \r
  73 ;Tells the installer to only display a select language dialog if the an exact match wasn't found\r
  74 ShowLanguageDialog=auto\r
  75 \r
  76 DefaultDirName={pf}\WinMerge\r
  77 DefaultGroupName=WinMerge\r
  78 DisableStartupPrompt=true\r
  79 AllowNoIcons=true\r
  80 InfoBeforeFile=..\..\Docs\users\GPL.rtf\r
  81 InfoAfterFile=..\..\Docs\users\ReadMe.txt\r
  82 \r
  83 OutputBaseFilename=WinMerge-{#AppVersion}-Setup\r
  84 \r
  85 ;This must be admin to install C++ Runtimes and shell extension\r
  86 PrivilegesRequired=admin\r
  87 \r
  88 ;Windows 2000 or later required\r
  89 MinVersion=0,5.0\r
  90 \r
  91 UninstallDisplayIcon={app}\{code:ExeName}\r
  92 \r
  93 ;Artwork References\r
  94 WizardImageFile=Art\Large Logo.bmp\r
  95 WizardSmallImageFile=Art\Small Logo.bmp\r
  96 WizardImageStretch=false\r
  97 \r
  98 ;It is confusing, if Setup/Uninstall use the same icon like WinMerge!\r
  99 ;SetupIconFile=..\..\src\res\Merge.ico\r
 100 \r
 101 ;Compression Parameters\r
 102 ;Please note while Compression=lzma/ultra and InternalCompressLevel=Ultra are better than max\r
 103 ;they also require 320 MB of memory for compression. If you're system has at least 256MB RAM then by all\r
 104 ;means set it to ultra before compilation\r
 105 Compression=lzma/ultra\r
 106 InternalCompressLevel=ultra\r
 107 SolidCompression=true\r
 108 \r
 109 ; Update file associations for shell (project files)\r
 110 ChangesAssociations=true\r
 111 ; Updates PATH\r
 112 ChangesEnvironment=true\r
 113 OutputDir=..\..\Build\r
 114 AlwaysShowComponentsList=true\r
 115 \r
 116 \r
 117 [Languages]\r
 118 ;Inno Setup's Native Language\r
 119 Name: English; MessagesFile: ..\..\Translations\InnoSetup\English.isl\r
 120 \r
 121 ;Localizations:\r
 122 Name: Basque; MessagesFile: ..\..\Translations\InnoSetup\Basque.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Basque.txt\r
 123 Name: Bulgarian; MessagesFile: ..\..\Translations\InnoSetup\Bulgarian.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Bulgarian.txt\r
 124 Name: Catalan; MessagesFile: ..\..\Translations\InnoSetup\Catalan.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Catalan.txt\r
 125 Name: Chinese_Simplified; MessagesFile: ..\..\Translations\InnoSetup\Chinese_Simplified.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-ChineseSimplified.txt\r
 126 Name: Chinese_Traditional; MessagesFile: ..\..\Translations\InnoSetup\Chinese_Traditional.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-ChineseTraditional.txt\r
 127 Name: Croatian; MessagesFile: ..\..\Translations\InnoSetup\Croatian.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Croatian.txt\r
 128 Name: Czech; MessagesFile: ..\..\Translations\InnoSetup\Czech.isl\r
 129 Name: Danish; MessagesFile: ..\..\Translations\InnoSetup\Danish.isl\r
 130 Name: Dutch; MessagesFile: ..\..\Translations\InnoSetup\Dutch.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Dutch.txt\r
 131 Name: French; MessagesFile: ..\..\Translations\InnoSetup\French.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-French.txt\r
 132 Name: Galician; MessagesFile: ..\..\Translations\InnoSetup\Galician.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Galician.txt\r
 133 Name: German; MessagesFile: ..\..\Translations\InnoSetup\German.isl\r
 134 Name: Greek; MessagesFile: ..\..\Translations\InnoSetup\Greek.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Greek.txt\r
 135 Name: Hungarian; MessagesFile: ..\..\Translations\InnoSetup\Hungarian.isl\r
 136 Name: Italian; MessagesFile: ..\..\Translations\InnoSetup\Italian.isl\r
 137 Name: Japanese; MessagesFile: ..\..\Translations\InnoSetup\Japanese.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Japanese.txt\r
 138 Name: Korean; MessagesFile: ..\..\Translations\InnoSetup\Korean.isl\r
 139 Name: Norwegian; MessagesFile: ..\..\Translations\InnoSetup\Norwegian.isl\r
 140 Name: Persian; MessagesFile: ..\..\Translations\InnoSetup\Persian.isl\r
 141 Name: Polish; MessagesFile: ..\..\Translations\InnoSetup\Polish.isl\r
 142 Name: Portuguese; MessagesFile: ..\..\Translations\InnoSetup\Portuguese.isl\r
 143 Name: PortugueseBrazilian; MessagesFile: ..\..\Translations\InnoSetup\Brazilian_Portuguese.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Brazilian.txt\r
 144 Name: Romanian; MessagesFile: ..\..\Translations\InnoSetup\Romanian.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Romanian.txt\r
 145 Name: Russian; MessagesFile: ..\..\Translations\InnoSetup\Russian.isl\r
 146 Name: Serbian; MessagesFile: ..\..\Translations\InnoSetup\Serbian.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Serbian.txt\r
 147 Name: Slovak; MessagesFile: ..\..\Translations\InnoSetup\Slovak.isl\r
 148 Name: Slovenian; MessagesFile: ..\..\Translations\InnoSetup\Slovenian.isl\r
 149 Name: Spanish; MessagesFile: ..\..\Translations\InnoSetup\Spanish.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Spanish.txt\r
 150 Name: Swedish; MessagesFile: ..\..\Translations\InnoSetup\Swedish.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Swedish.txt\r
 151 Name: Turkish; MessagesFile: ..\..\Translations\InnoSetup\Turkish.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Turkish.txt\r
 152 Name: Ukrainian; MessagesFile: ..\..\Translations\InnoSetup\Ukrainian.isl; InfoAfterFile: ..\..\Translations\Docs\Readme\ReadMe-Ukrainian.txt\r
 153 \r
 154 \r
 155 [Messages]\r
 156 English.FinishedLabel=Setup has finished installing WinMerge on your computer.\r
 157 English.SetupAppTitle=Setup - WinMerge {#AppVersion}\r
 158 English.WizardInfoBefore=License Agreement\r
 159 English.InfoBeforeLabel=GNU General Public License\r
 160 \r
 161 \r
 162 [Types]\r
 163 Name: typical; Description: {cm:TypicalInstallation}\r
 164 Name: full; Description: {cm:FullInstallation}\r
 165 Name: compact; Description: {cm:CompactInstallation}\r
 166 Name: custom; Description: {cm:CustomInstallation}; Flags: iscustom\r
 167 \r
 168 \r
 169 [Components]\r
 170 ; Executable, libraries, documentation\r
 171 Name: Core; Description: {cm:AppCoreFiles}; Types: full custom typical compact; Flags: fixed\r
 172 \r
 173 Name: filters; Description: {cm:Filters}; Flags: disablenouninstallwarning; Types: full typical\r
 174 Name: Plugins; Description: {cm:Plugins}; Flags: disablenouninstallwarning; Types: full\r
 175 Name: Frhed; Description: {cm:Frhed}; Flags: disablenouninstallwarning; Types: full typical\r
 176 Name: WinIMerge; Description: {cm:WinIMerge}; Flags: disablenouninstallwarning; Types: full typical\r
 177 Name: ArchiveSupport; Description: {cm:ArchiveSupport}; Flags: disablenouninstallwarning; Types: full typical\r
 178 \r
 179 ;Language components\r
 180 Name: Languages; Description: {cm:Languages}; Flags: disablenouninstallwarning\r
 181 Name: Languages\Basque; Description: {cm:BasqueLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Basque\r
 182 Name: Languages\Basque; Description: {cm:BasqueLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Basque\r
 183 \r
 184 Name: Languages\Bulgarian; Description: {cm:BulgarianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Bulgarian\r
 185 Name: Languages\Bulgarian; Description: {cm:BulgarianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Bulgarian\r
 186 \r
 187 Name: Languages\Catalan; Description: {cm:CatalanLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Catalan\r
 188 Name: Languages\Catalan; Description: {cm:CatalanLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Catalan\r
 189 \r
 190 Name: Languages\Chinese_Simplified; Description: {cm:ChineseSimplifiedLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Chinese_Simplified\r
 191 Name: Languages\Chinese_Simplified; Description: {cm:ChineseSimplifiedLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Chinese_Simplified\r
 192 \r
 193 Name: Languages\Chinese_Traditional; Description: {cm:ChineseTraditionalLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Chinese_Traditional\r
 194 Name: Languages\Chinese_Traditional; Description: {cm:ChineseTraditionalLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Chinese_Traditional\r
 195 \r
 196 Name: Languages\Croatian; Description: {cm:CroatianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Croatian\r
 197 Name: Languages\Croatian; Description: {cm:CroatianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Croatian\r
 198 \r
 199 Name: Languages\Czech; Description: {cm:CzechLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Czech\r
 200 Name: Languages\Czech; Description: {cm:CzechLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Czech\r
 201 \r
 202 Name: Languages\Danish; Description: {cm:DanishLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Danish\r
 203 Name: Languages\Danish; Description: {cm:DanishLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Danish\r
 204 \r
 205 Name: Languages\Dutch; Description: {cm:DutchLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Dutch\r
 206 Name: Languages\Dutch; Description: {cm:DutchLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Dutch\r
 207 \r
 208 Name: Languages\French; Description: {cm:FrenchLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not French\r
 209 Name: Languages\French; Description: {cm:FrenchLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: French\r
 210 \r
 211 Name: Languages\Galician; Description: {cm:GalicianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Galician\r
 212 Name: Languages\Galician; Description: {cm:GalicianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Galician\r
 213 \r
 214 Name: Languages\German; Description: {cm:GermanLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not German\r
 215 Name: Languages\German; Description: {cm:GermanLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: German\r
 216 \r
 217 Name: Languages\Greek; Description: {cm:GreekLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Greek\r
 218 Name: Languages\Greek; Description: {cm:GreekLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Greek\r
 219 \r
 220 Name: Languages\Hungarian; Description: {cm:HungarianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Hungarian\r
 221 Name: Languages\Hungarian; Description: {cm:HungarianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Hungarian\r
 222 \r
 223 Name: Languages\Italian; Description: {cm:ItalianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Italian\r
 224 Name: Languages\Italian; Description: {cm:ItalianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Italian\r
 225 \r
 226 Name: Languages\Japanese; Description: {cm:JapaneseLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Japanese\r
 227 Name: Languages\Japanese; Description: {cm:JapaneseLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Japanese\r
 228 \r
 229 Name: Languages\Korean; Description: {cm:KoreanLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Korean\r
 230 Name: Languages\Korean; Description: {cm:KoreanLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Korean\r
 231 \r
 232 Name: Languages\Norwegian; Description: {cm:NorwegianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Norwegian\r
 233 Name: Languages\Norwegian; Description: {cm:NorwegianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Norwegian\r
 234 \r
 235 Name: Languages\Persian; Description: {cm:PersianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Persian\r
 236 Name: Languages\Persian; Description: {cm:PersianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Persian\r
 237 \r
 238 Name: Languages\Polish; Description: {cm:PolishLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Polish\r
 239 Name: Languages\Polish; Description: {cm:PolishLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Polish\r
 240 \r
 241 Name: Languages\Portuguese; Description: {cm:PortugueseLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Portuguese\r
 242 Name: Languages\Portuguese; Description: {cm:PortugueseLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Portuguese\r
 243 \r
 244 Name: Languages\PortugueseBrazilian; Description: {cm:PortugueseBrazilLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not PortugueseBrazilian\r
 245 Name: Languages\PortugueseBrazilian; Description: {cm:PortugueseBrazilLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: PortugueseBrazilian\r
 246 \r
 247 Name: Languages\Romanian; Description: {cm:RomanianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Romanian\r
 248 Name: Languages\Romanian; Description: {cm:RomanianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Romanian\r
 249 \r
 250 Name: Languages\Russian; Description: {cm:RussianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Russian\r
 251 Name: Languages\Russian; Description: {cm:RussianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Russian\r
 252 \r
 253 Name: Languages\Serbian; Description: {cm:SerbianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Serbian\r
 254 Name: Languages\Serbian; Description: {cm:SerbianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Serbian\r
 255 \r
 256 Name: Languages\Slovak; Description: {cm:SlovakLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Slovak\r
 257 Name: Languages\Slovak; Description: {cm:SlovakLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Slovak\r
 258 \r
 259 Name: Languages\Slovenian; Description: {cm:SlovenianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Slovenian\r
 260 Name: Languages\Slovenian; Description: {cm:SlovenianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Slovenian\r
 261 \r
 262 Name: Languages\Spanish; Description: {cm:SpanishLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Spanish\r
 263 Name: Languages\Spanish; Description: {cm:SpanishLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Spanish\r
 264 \r
 265 Name: Languages\Swedish; Description: {cm:SwedishLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Swedish\r
 266 Name: Languages\Swedish; Description: {cm:SwedishLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Swedish\r
 267 \r
 268 Name: Languages\Turkish; Description: {cm:TurkishLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Turkish\r
 269 Name: Languages\Turkish; Description: {cm:TurkishLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Turkish\r
 270 \r
 271 Name: Languages\Ukrainian; Description: {cm:UkrainianLanguage}; Flags: disablenouninstallwarning; Types: full; Languages: not Ukrainian\r
 272 Name: Languages\Ukrainian; Description: {cm:UkrainianLanguage}; Flags: disablenouninstallwarning; Types: full typical compact; Languages: Ukrainian\r
 273 \r
 274 \r
 275 [Tasks]\r
 276 Name: ShellExtension; Description: {cm:ExplorerContextMenu}; GroupDescription: {cm:OptionalFeatures}\r
 277 Name: modifypath; Description: {cm:AddToPath}; GroupDescription: {cm:OptionalFeatures}; Flags: unchecked\r
 278 Name: TortoiseCVS; Description: {cm:IntegrateTortoiseCVS}; GroupDescription: {cm:OptionalFeatures}; Check: TortoiseCVSInstalled\r
 279 Name: TortoiseGit; Description: {cm:IntegrateTortoiseGit}; GroupDescription: {cm:OptionalFeatures}; Check: TortoiseGitInstalled; MinVersion: 0,5.0.2195sp3\r
 280 Name: TortoiseSVN; Description: {cm:IntegrateTortoiseSVN}; GroupDescription: {cm:OptionalFeatures}; Check: TortoiseSVNInstalled; MinVersion: 0,5.0.2195sp3\r
 281 Name: ClearCase; Description: {cm:IntegrateClearCase}; GroupDescription: {cm:OptionalFeatures}; Check: ClearCaseInstalled\r
 282 Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked\r
 283 Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; OnlyBelowVersion: 0,6.1\r
 284 \r
 285 [InstallDelete]\r
 286 ; Diff.txt is a file left over from previous versions of WinMerge (before version 2.0), we just delete it to be nice.\r
 287 Type: files; Name: {app}\Diff.txt\r
 288 \r
 289 ;All of these files are removed so if the user upgrades their operating system or changes their language selections only the\r
 290 ;necessary files will be left in the installation folder\r
 291 ;Another reason these files might be strays is if a user extracted one of the experimental builds such as:\r
 292 ;WinMerge.{#AppVersion}-exe.7z.\r
 293 Name: {app}\WinMerge.exe; Type: files\r
 294 Name: {app}\WinMergeU.exe; Type: files; MinVersion: 0, 4\r
 295 \r
 296 ;Remove manifest files as we don't need them in 2.6.2 / 2.7.1.1 or later\r
 297 Name: {app}\WinMerge.exe.manifest; Type: files\r
 298 Name: {app}\WinMergeU.exe.manifest; Type: files\r
 299 \r
 300 Name: {app}\Merge7z311.dll; Type: files\r
 301 Name: {app}\Merge7z311U.dll; Type: files; MinVersion: 0, 4\r
 302 \r
 303 Name: {app}\Merge7z312.dll; Type: files\r
 304 Name: {app}\Merge7z312U.dll; Type: files; MinVersion: 0, 4\r
 305 \r
 306 Name: {app}\Merge7z313.dll; Type: files\r
 307 Name: {app}\Merge7z313U.dll; Type: files; MinVersion: 0, 4\r
 308 \r
 309 Name: {app}\Merge7z420.dll; Type: files\r
 310 Name: {app}\Merge7z420U.dll; Type: files; MinVersion: 0, 4\r
 311 \r
 312 Name: {app}\Merge7z423.dll; Type: files\r
 313 Name: {app}\Merge7z423U.dll; Type: files; MinVersion: 0, 4\r
 314 \r
 315 Name: {app}\Merge7z431.dll; Type: files\r
 316 Name: {app}\Merge7z431U.dll; Type: files; MinVersion: 0, 4\r
 317 \r
 318 Name: {app}\Merge7z432.dll; Type: files\r
 319 Name: {app}\Merge7z432U.dll; Type: files; MinVersion: 0, 4\r
 320 \r
 321 Name: {app}\Merge7z442.dll; Type: files\r
 322 Name: {app}\Merge7z442U.dll; Type: files; MinVersion: 0, 4\r
 323 \r
 324 Name: {app}\Merge7z457.dll; Type: files\r
 325 Name: {app}\Merge7z457U.dll; Type: files; MinVersion: 0, 4\r
 326 \r
 327 Name: {app}\Merge7z465.dll; Type: files\r
 328 Name: {app}\Merge7z465U.dll; Type: files; MinVersion: 0, 4\r
 329 \r
 330 Name: {app}\Merge7z920.dll; Type: files\r
 331 Name: {app}\Merge7z920U.dll; Type: files; MinVersion: 0, 4\r
 332 \r
 333 ;This won't work, because the file has to be unregistered, and explorer closed, first.\r
 334 ;Name: {app}\ShellExtension.dll; Type: files; Check: TaskDisabled('ShellExtension')\r
 335 \r
 336 ; Remove existing .lang files - we don't need them anymore as we are\r
 337 ; using PO files now.\r
 338 Name: {app}\Languages\MergeBrazilian.lang; Type: files\r
 339 Name: {app}\Languages\MergeBulgarian.lang; Type: files\r
 340 Name: {app}\Languages\MergeCatalan.lang; Type: files\r
 341 Name: {app}\Languages\MergeChineseSimplified.lang; Type: files\r
 342 Name: {app}\Languages\MergeChineseTraditional.lang; Type: files\r
 343 Name: {app}\Languages\MergeCzech.lang; Type: files\r
 344 Name: {app}\Languages\MergeDanish.lang; Type: files\r
 345 Name: {app}\Languages\MergeDutch.lang; Type: files\r
 346 Name: {app}\Languages\MergeFrench.lang; Type: files\r
 347 Name: {app}\Languages\MergeGerman.lang; Type: files\r
 348 Name: {app}\Languages\MergeHungarian.lang; Type: files\r
 349 Name: {app}\Languages\MergeItalian.lang; Type: files\r
 350 Name: {app}\Languages\MergeJapanese.lang; Type: files\r
 351 Name: {app}\Languages\MergeKorean.lang; Type: files\r
 352 Name: {app}\Languages\MergeNorwegian.lang; Type: files\r
 353 Name: {app}\Languages\MergePersian.lang; Type: files\r
 354 Name: {app}\Languages\MergePolish.lang; Type: files\r
 355 Name: {app}\Languages\MergePortuguese.lang; Type: files\r
 356 Name: {app}\Languages\MergeSlovak.lang; Type: files\r
 357 Name: {app}\Languages\MergeSpanish.lang; Type: files\r
 358 Name: {app}\Languages\MergeRussian.lang; Type: files\r
 359 Name: {app}\Languages\MergeSerbian.lang; Type: files\r
 360 Name: {app}\Languages\MergeSwedish.lang; Type: files\r
 361 Name: {app}\Languages\MergeTurkish.lang; Type: files\r
 362 Name: {app}\MergePlugins\list.txt; Type: files; Check: not IsComponentSelected('Plugins')\r
 363 \r
 364 ;Removes the user's guide icon if the user deselects the user's guide component.\r
 365 Name: {group}\{cm:UsersGuide}.lnk; Type: files; Check: not IsComponentSelected('Docs')\r
 366 \r
 367 ;This removes the quick launch icon in case the user chooses not to install it after previously having it installed\r
 368 Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\WinMerge.lnk; Type: files; Check: not IsTaskSelected('QuickLauchIcon')\r
 369 Name: {commonappdata}\Microsoft\Internet Explorer\Quick Launch\WinMerge.lnk; Type: files; Check: not IsTaskSelected('QuickLauchIcon')\r
 370 \r
 371 ;This removes the desktop icon in case the user chooses not to install it after previously having it installed\r
 372 Name: {userdesktop}\WinMerge.lnk; Type: files; Check: not IsTaskSelected('DesktopIcon')\r
 373 Name: {commondesktop}\WinMerge.lnk; Type: files; Check: not IsTaskSelected('DesktopIcon')\r
 374 \r
 375 ;Removes the Uninstall icon from the start menu...\r
 376 Name: {group}\{cm:UninstallProgram,WinMerge}.lnk; Type: files;\r
 377 \r
 378 ;Remove ANSI executable link from start menu for NT-based Windows versions\r
 379 ;This was installed earlier, but not anymore.\r
 380 Name: {group}\WinMerge (ANSI).lnk; Type: files; MinVersion: 0,4\r
 381 Name: {app}\Docs; Type: filesandordirs\r
 382 \r
 383 Name: {app}\MergePlugins\editor addin.sct; Type: Files; Check: not IsComponentSelected('Plugins')\r
 384 Name: {app}\MergePlugins\insert datetime.sct; Type: Files; Check: not IsComponentSelected('Plugins')\r
 385 Name: {app}\MergePlugins\CompareMSExcelFiles.dll; Type: Files; Check: IsComponentSelected('Plugins')\r
 386 Name: {app}\MergePlugins\CompareMSWordFiles.dll; Type: Files; Check: IsComponentSelected('Plugins')\r
 387 Name: {app}\MergePlugins; Type: DirIfEmpty; Check: not IsComponentSelected('Plugins')\r\r
 388 Name: {app}\Filters\ADAMulti.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 389 Name: {app}\Filters\ASPNET.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 390 Name: {app}\Filters\CSharp_loose.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 391 Name: {app}\Filters\Delphi.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 392 Name: {app}\Filters\MASM.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 393 Name: {app}\Filters\Merge_GnuC_loose.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 394 Name: {app}\Filters\Merge_VC_loose.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 395 Name: {app}\Filters\Merge_VB_loose.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 396 Name: {app}\Filters\SourceControl.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 397 Name: {app}\Filters\Symbian.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 398 Name: {app}\Filters\XML_html.flt; Type: Files; Check: not IsComponentSelected('Filters')\r
 399 Name: {app}\Filters\FileFilter.tmpl; Type: Files; Check: not IsComponentSelected('Filters')\r
 400 Name: {app}\Filters; Type: DirIfEmpty; Check: not IsComponentSelected('Filters')\r
 401 \r
 402 \r
 403 \r
 404 [Dirs]\r
 405 ;The always uninstall flag tells the uninstaller to remove the folder if it's empty regardless of whether or not it existed prior to the installation\r
 406 Name: {app}; Flags: uninsalwaysuninstall\r
 407 \r
 408 \r
 409 [Files]\r
 410 ; WinMerge itself\r
 411 Source: ..\..\Build\MergeUnicodeRelease\WinMergeU.exe; DestDir: {app}; Flags: promptifolder; Components: Core\r
 412 \r
 413 ; List of installed files\r
 414 Source: ..\..\Docs\Users\Files.txt; DestDir: {app}; Flags: promptifolder; Components: Core\r
 415 \r
 416 ; Shell extension\r
 417 Source: ..\..\Build\ShellExtensionUnicode Release MinDependency\ShellExtensionU.dll; DestDir: {app}; Flags: regserver uninsrestartdelete restartreplace promptifolder; MinVersion: 0, 4; Check: not IsWin64\r
 418 ; 64-bit version of ShellExtension\r
 419 Source: ..\..\Build\X64\ShellExtensionUnicode Release MinDependency\ShellExtensionX64.dll; DestDir: {app}; Flags: regserver uninsrestartdelete restartreplace promptifolder 64bit; MinVersion: 0,5.01.2600; Check: IsWin64\r
 420 \r
 421 ;Please do not reorder the 7z Dlls by version they compress better ordered by platform and then by version\r
 422 Source: ..\..\Build\MergeUnicodeRelease\Merge7z\Merge7z920U.dll; DestDir: {app}\Merge7z; Flags: promptifolder; MinVersion: 0, 4; Components: ArchiveSupport\r
 423 Source: ..\..\Build\MergeUnicodeRelease\Merge7z\7z.dll; DestDir: {app}\Merge7z; Flags: promptifolder; MinVersion: 0, 4; Components: ArchiveSupport\r
 424 Source: ..\..\Build\MergeUnicodeRelease\Merge7z\*.txt; DestDir: {app}\Merge7z; Flags: promptifolder; MinVersion: 0, 4; Components: ArchiveSupport\r
 425 Source: ..\..\Build\MergeUnicodeRelease\Merge7z\Lang\*.txt; DestDir: {app}\Merge7z\Lang; Flags: promptifolder; MinVersion: 0, 4; Components: ArchiveSupport\r
 426 \r
 427 ; MergeLang.dll - translation helper dll\r
 428 Source: ..\..\Build\MergeUnicodeRelease\MergeLang.dll; DestDir: {app}; Flags: promptifolder ignoreversion; Components: Core\r
 429 \r
 430 ; Language files\r
 431 Source: ..\..\Translations\WinMerge\Basque.po; DestDir: {app}\Languages; Components: Languages\Basque; Flags: ignoreversion comparetimestamp\r
 432 Source: ..\..\Translations\Docs\Readme\ReadMe-Basque.txt; DestDir: {app}\Docs; Components: Languages\Basque\r
 433 Source: ..\..\Translations\WinMerge\Brazilian.po; DestDir: {app}\Languages; Components: Languages\PortugueseBrazilian; Flags: ignoreversion comparetimestamp\r
 434 Source: ..\..\Translations\Docs\Readme\ReadMe-Brazilian.txt; DestDir: {app}\Docs; Components: Languages\PortugueseBrazilian\r
 435 Source: ..\..\Translations\WinMerge\Bulgarian.po; DestDir: {app}\Languages; Components: Languages\Bulgarian; Flags: ignoreversion comparetimestamp\r
 436 Source: ..\..\Translations\Docs\Readme\ReadMe-Bulgarian.txt; DestDir: {app}\Docs; Components: Languages\Bulgarian\r
 437 Source: ..\..\Translations\WinMerge\Catalan.po; DestDir: {app}\Languages; Components: Languages\Catalan; Flags: ignoreversion comparetimestamp\r
 438 Source: ..\..\Translations\Docs\Readme\ReadMe-Catalan.txt; DestDir: {app}\Docs; Components: Languages\Catalan\r
 439 Source: ..\..\Translations\WinMerge\ChineseSimplified.po; DestDir: {app}\Languages; Components: Languages\Chinese_Simplified; Flags: ignoreversion comparetimestamp\r
 440 Source: ..\..\Translations\Docs\Readme\ReadMe-ChineseSimplified.txt; DestDir: {app}\Docs; Components: Languages\Chinese_Simplified\r
 441 Source: ..\..\Translations\WinMerge\ChineseTraditional.po; DestDir: {app}\Languages; Components: Languages\Chinese_Traditional; Flags: ignoreversion comparetimestamp\r
 442 Source: ..\..\Translations\Docs\Readme\ReadMe-ChineseTraditional.txt; DestDir: {app}\Docs; Components: Languages\Chinese_Traditional\r
 443 Source: ..\..\Translations\WinMerge\Croatian.po; DestDir: {app}\Languages; Components: Languages\Croatian; Flags: ignoreversion comparetimestamp\r
 444 Source: ..\..\Translations\Docs\Readme\ReadMe-Croatian.txt; DestDir: {app}\Docs; Components: Languages\Croatian\r
 445 Source: ..\..\Translations\WinMerge\Czech.po; DestDir: {app}\Languages; Components: Languages\Czech; Flags: ignoreversion comparetimestamp\r
 446 Source: ..\..\Translations\WinMerge\Danish.po; DestDir: {app}\Languages; Components: Languages\Danish; Flags: ignoreversion comparetimestamp\r
 447 Source: ..\..\Translations\WinMerge\Dutch.po; DestDir: {app}\Languages; Components: Languages\Dutch; Flags: ignoreversion comparetimestamp\r
 448 Source: ..\..\Translations\Docs\Readme\ReadMe-Dutch.txt; DestDir: {app}\Docs; Components: Languages\Dutch\r
 449 Source: ..\..\Translations\WinMerge\French.po; DestDir: {app}\Languages; Components: Languages\French; Flags: ignoreversion comparetimestamp\r
 450 Source: ..\..\Translations\Docs\Readme\ReadMe-French.txt; DestDir: {app}\Docs; Components: Languages\French\r
 451 Source: ..\..\Translations\WinMerge\Galician.po; DestDir: {app}\Languages; Components: Languages\Galician; Flags: ignoreversion comparetimestamp\r
 452 Source: ..\..\Translations\Docs\Readme\ReadMe-Galician.txt; DestDir: {app}\Docs; Components: Languages\Galician\r
 453 Source: ..\..\Translations\WinMerge\German.po; DestDir: {app}\Languages; Components: Languages\German; Flags: ignoreversion comparetimestamp\r
 454 Source: ..\..\Translations\WinMerge\Greek.po; DestDir: {app}\Languages; Components: Languages\Greek; Flags: ignoreversion comparetimestamp\r
 455 Source: ..\..\Translations\Docs\Readme\ReadMe-Greek.txt; DestDir: {app}\Docs; Components: Languages\Greek\r
 456 Source: ..\..\Translations\WinMerge\Hungarian.po; DestDir: {app}\Languages; Components: Languages\Hungarian; Flags: ignoreversion comparetimestamp\r
 457 Source: ..\..\Translations\WinMerge\Italian.po; DestDir: {app}\Languages; Components: Languages\Italian; Flags: ignoreversion comparetimestamp\r
 458 Source: ..\..\Translations\WinMerge\Japanese.po; DestDir: {app}\Languages; Components: Languages\Japanese; Flags: ignoreversion comparetimestamp\r
 459 Source: ..\..\Build\Docs\ReadMe-Japanese.txt; DestDir: {app}\Docs; Components: Languages\Japanese\r
 460 Source: ..\..\Build\Manual\htmlhelp\WinMerge_ja.chm; DestDir: {app}\Docs; Components: Languages\Japanese\r
 461 Source: ..\..\Translations\WinMerge\Korean.po; DestDir: {app}\Languages; Components: Languages\Korean; Flags: ignoreversion comparetimestamp\r
 462 Source: ..\..\Translations\WinMerge\Norwegian.po; DestDir: {app}\Languages; Components: Languages\Norwegian; Flags: ignoreversion comparetimestamp\r
 463 Source: ..\..\Translations\WinMerge\Persian.po; DestDir: {app}\Languages; Components: Languages\Persian; Flags: ignoreversion comparetimestamp\r
 464 Source: ..\..\Translations\WinMerge\Polish.po; DestDir: {app}\Languages; Components: Languages\Polish; Flags: ignoreversion comparetimestamp\r
 465 Source: ..\..\Translations\WinMerge\Portuguese.po; DestDir: {app}\Languages; Components: Languages\Portuguese; Flags: ignoreversion comparetimestamp\r
 466 Source: ..\..\Translations\WinMerge\Romanian.po; DestDir: {app}\Languages; Components: Languages\Romanian; Flags: ignoreversion comparetimestamp\r
 467 Source: ..\..\Translations\Docs\Readme\ReadMe-Romanian.txt; DestDir: {app}\Docs; Components: Languages\Romanian\r
 468 Source: ..\..\Translations\WinMerge\Russian.po; DestDir: {app}\Languages; Components: Languages\Russian; Flags: ignoreversion comparetimestamp\r
 469 Source: ..\..\Translations\WinMerge\Serbian.po; DestDir: {app}\Languages; Components: Languages\Serbian; Flags: ignoreversion comparetimestamp\r
 470 Source: ..\..\Translations\Docs\Readme\ReadMe-Serbian.txt; DestDir: {app}\Docs; Components: Languages\Serbian\r
 471 Source: ..\..\Translations\WinMerge\Slovak.po; DestDir: {app}\Languages; Components: Languages\Slovak; Flags: ignoreversion comparetimestamp\r
 472 Source: ..\..\Translations\WinMerge\Slovenian.po; DestDir: {app}\Languages; Components: Languages\Slovenian; Flags: ignoreversion comparetimestamp\r
 473 Source: ..\..\Translations\WinMerge\Spanish.po; DestDir: {app}\Languages; Components: Languages\Spanish; Flags: ignoreversion comparetimestamp\r
 474 Source: ..\..\Translations\Docs\Readme\ReadMe-Spanish.txt; DestDir: {app}\Docs; Components: Languages\Spanish\r
 475 Source: ..\..\Translations\WinMerge\Swedish.po; DestDir: {app}\Languages; Components: Languages\Swedish; Flags: ignoreversion comparetimestamp\r
 476 Source: ..\..\Translations\Docs\Readme\ReadMe-Swedish.txt; DestDir: {app}\Docs; Components: Languages\Swedish\r
 477 Source: ..\..\Translations\WinMerge\Turkish.po; DestDir: {app}\Languages; Components: Languages\Turkish; Flags: ignoreversion comparetimestamp\r
 478 Source: ..\..\Translations\Docs\Readme\ReadMe-Turkish.txt; DestDir: {app}\Docs; Components: Languages\Turkish\r
 479 Source: ..\..\Translations\WinMerge\Ukrainian.po; DestDir: {app}\Languages; Components: Languages\Ukrainian; Flags: ignoreversion comparetimestamp\r
 480 Source: ..\..\Translations\Docs\Readme\ReadMe-Ukrainian.txt; DestDir: {app}\Docs; Components: Languages\Ukrainian\r
 481 \r
 482 Source: ..\..\Build\Filters\*.flt; DestDir: {app}\Filters; Flags: sortfilesbyextension comparetimestamp ignoreversion; Components: filters\r
 483 Source: ..\..\Build\Filters\FileFilter.tmpl; DestDir: {app}\Filters; Flags: sortfilesbyextension comparetimestamp ignoreversion; Components: filters\r
 484 \r
 485 ;Documentation\r
 486 Source: ..\..\Build\Docs\ReadMe.txt; DestDir: {app}\Docs; Flags: comparetimestamp ignoreversion promptifolder; Components: Core\r
 487 Source: ..\..\Build\Docs\Contributors.txt; DestDir: {app}; Flags: comparetimestamp ignoreversion promptifolder; Components: Core\r
 488 Source: ..\..\Docs\Users\ReleaseNotes.html; DestDir: {app}\Docs; Flags: comparetimestamp ignoreversion promptifolder; Components: Core\r
 489 Source: ..\..\Build\Docs\ChangeLog.txt; DestDir: {app}\Docs; Flags: comparetimestamp ignoreversion promptifolder; Components: Core\r
 490 Source: ..\..\Build\Manual\htmlhelp\WinMerge.chm; DestDir: {app}\Docs\; Flags: overwritereadonly uninsremovereadonly; Components: Core\r
 491 Source: ..\..\Docs\users\GPL.rtf; DestDir: {app}\Docs\; Flags: comparetimestamp ignoreversion promptifolder; Components: Core\r
 492 \r
 493 ;Plugins\r
 494 ;Please note IgnoreVersion and CompareTimeStamp are to instruct the installer to not not check for version info and go straight to comparing modification dates\r
 495 Source: ..\..\Plugins\dlls\editor addin.sct; DestDir: {app}\MergePlugins; Flags: IgnoreVersion CompareTimeStamp; Components: Plugins\r
 496 Source: ..\..\Plugins\dlls\insert datetime.sct; DestDir: {app}\MergePlugins; Flags: IgnoreVersion CompareTimeStamp; Components: Plugins\r
 497 Source: ..\..\Plugins\dlls\CompareMSExcelFiles.sct; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 498 Source: ..\..\Plugins\dlls\CompareMSWordFiles.sct; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 499 Source: ..\..\Plugins\dlls\IgnoreColumns.dll; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 500 Source: ..\..\Plugins\dlls\IgnoreCommentsC.dll; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 501 Source: ..\..\Plugins\dlls\IgnoreFieldsComma.dll; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 502 Source: ..\..\Plugins\dlls\IgnoreFieldsTab.dll; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 503 Source: ..\..\Plugins\dlls\IgnoreLeadingLineNumbers.dll; DestDir: {app}\MergePlugins; Flags: promptifolder; Components: Plugins\r
 504 \r
 505 ;Frhed\r
 506 Source: ..\..\Externals\frhed\GPL.txt; DestDir: {app}\Frhed; Components: Frhed\r
 507 ;Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\frhed.exe; DestDir: {app}\Frhed; Components: Frhed\r
 508 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\hekseditU.dll; DestDir: {app}\Frhed; Components: Frhed\r
 509 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Docs\ChangeLog.txt; DestDir: {app}\Frhed\Docs; Components: Frhed\r
 510 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Docs\Contributors.txt; DestDir: {app}\Frhed\Docs; Components: Frhed\r
 511 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Docs\History.txt; DestDir: {app}\Frhed\Docs; Components: Frhed\r
 512 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Docs\Links.txt; DestDir: {app}\Frhed\Docs; Components: Frhed\r
 513 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Docs\Sample.tpl  ; DestDir: {app}\Frhed\Docs; Components: Frhed\r
 514 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Languages\de.po; DestDir: {app}\Frhed\Languages; Components: Frhed\r
 515 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Languages\fr.po; DestDir: {app}\Frhed\Languages; Components: Frhed\r
 516 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Languages\ja.po; DestDir: {app}\Frhed\Languages; Components: Frhed\r
 517 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Languages\nl.po; DestDir: {app}\Frhed\Languages; Components: Frhed\r
 518 Source: ..\..\Externals\frhed\Build\FRHED_vc10\Win32\UnicodeRelease\Languages\heksedit.lng; DestDir: {app}\Frhed\Languages; Components: Frhed\r
 519 \r
 520 ;WinIMerge\r
 521 Source: ..\..\Externals\winimerge\GPL.txt; DestDir: {app}\WinIMerge; Components: WinIMerge\r
 522 Source: ..\..\Externals\winimerge\freeimage-license-gplv2.txt; DestDir: {app}\WinIMerge; Components: WinIMerge\r
 523 ;Source: ..\..\Externals\winimerge\Build\Release\WinIMerge.exe; DestDir: {app}\WinIMerge; Components: WinIMerge\r
 524 Source: ..\..\Externals\winimerge\Build\Release\WinIMergeLib.dll; DestDir: {app}\WinIMerge; Components: WinIMerge\r
 525 \r
 526 [Dirs]\r
 527 Name: "{app}\MergePlugins"\r
 528 \r
 529 [Icons]\r
 530 ;Start Menu Icons\r
 531 Name: {group}\WinMerge; Filename: {app}\{code:ExeName}; AppUserModelID: "Thingamahoochie.WinMerge"\r
 532 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe.txt; IconFileName: {win}\NOTEPAD.EXE\r
 533 Name: {group}\{cm:UsersGuide}; Filename: {app}\Docs\WinMerge.chm\r
 534 Name: {group}\{cm:UninstallProgram,WinMerge}; Filename: {uninstallexe}\r
 535 Name: {group}\{cm:ProgramOnTheWeb,WinMerge}; Filename: http://www.geocities.co.jp/SiliconValley-SanJose/8165/\r
 536 \r
 537 ;Link to translated ReadMe in Start Menu\r
 538 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Basque.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Basque\r
 539 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Brazilian.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: PortugueseBrazilian\r
 540 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Bulgarian.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Bulgarian\r
 541 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Catalan.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Catalan\r
 542 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-ChineseSimplified.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Chinese_Simplified\r
 543 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-ChineseTraditional.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Chinese_Traditional\r
 544 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Croatian.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Croatian\r
 545 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Dutch.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Dutch\r
 546 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-French.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: French\r
 547 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Galician.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Galician\r
 548 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Greek.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Greek\r
 549 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Japanese.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Japanese\r
 550 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Romanian.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Romanian\r
 551 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Serbian.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Serbian\r
 552 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Spanish.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Spanish\r
 553 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Swedish.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Swedish\r
 554 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Turkish.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Turkish\r
 555 Name: {group}\{cm:ReadMe}; Filename: {app}\Docs\ReadMe-Ukrainian.txt; IconFileName: {win}\NOTEPAD.EXE; Languages: Ukrainian\r
 556 \r
 557 ;Desktop Icon\r
 558 Name: {commondesktop}\WinMerge; Filename: {app}\{code:ExeName}; Tasks: desktopicon\r
 559 \r
 560 ;Quick Launch Icon\r
 561 Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\WinMerge; Filename: {app}\{code:ExeName}; Tasks: quicklaunchicon\r
 562 \r
 563 [Registry]\r
 564 Root: HKCU; Subkey: Software\Thingamahoochie; Flags: uninsdeletekeyifempty\r
 565 Root: HKCU; Subkey: Software\Thingamahoochie\WinMerge; Flags: uninsdeletekey\r
 566 Root: HKLM; Subkey: Software\Thingamahoochie; Flags: uninsdeletekeyifempty\r
 567 Root: HKLM; Subkey: Software\Thingamahoochie\WinMerge; Flags: uninsdeletekey\r
 568 \r
 569 ;Add Project file extension (.WinMerge) to known extensions and\r
 570 ;set WinMerge to open those files\r
 571 ;set Notepad to edit project files\r
 572 Root: HKCR; Subkey: .WinMerge; ValueType: String; ValueData: WinMerge.Project.File; Flags: uninsdeletekey\r
 573 Root: HKCR; Subkey: WinMerge.Project.File; ValueType: String; ValueData: {cm:ProjectFileDesc}; Flags: uninsdeletekey\r
 574 Root: HKCR; Subkey: WinMerge.Project.File\shell\open\command; ValueType: String; ValueData: """{app}\{code:ExeName}"" ""%1"""; Flags: uninsdeletekey\r
 575 Root: HKCR; Subkey: WinMerge.Project.File\shell\edit\command; ValueType: String; ValueData: """NOTEPAD.EXE"" ""%1"""; Flags: uninsdeletekey\r
 576 Root: HKCR; Subkey: WinMerge.Project.File\DefaultIcon; ValueType: String; ValueData: """{app}\{code:ExeName}"",1"; Flags: uninsdeletekey\r
 577 \r
 578 ; delete obsolete values\r
 579 ;In Inno Setup Version 4.18 ValueData couldn't be null and compile,\r
 580 ;if this is fixed in a later version feel free to remove the parameter\r
 581 Root: HKCU; Subkey: Software\Thingamahoochie\WinMerge\Settings; ValueType: none; ValueName: LeftMax; Flags: deletevalue\r
 582 Root: HKCU; Subkey: Software\Thingamahoochie\WinMerge\Settings; ValueType: none; ValueName: DirViewMax; Flags: deletevalue\r
 583 \r
 584 ;This removes the key that remembers which messageboxes to hide from the user, this is because the text of that message\r
 585 ;can change and make it more clear as to the user why they might want to pay attention to a particular dialog and also\r
 586 ;because a particular message might be added or removed and a new message might occupy a previous message's ID number\r
 587 Root: HKLM; Subkey: Software\Thingamahoochie\WinMerge\MessageBoxes; ValueType: none; Flags: deletekey\r
 588 \r
 589 Root: HKCR; SubKey: Directory\Shell\WinMerge\command; ValueType: none; Flags: deletekey noerror\r
 590 Root: HKCR; SubKey: Directory\Shell\WinMerge; ValueType: none; Flags: deletekey noerror\r
 591 \r
 592 ;Adds "Start Menu" --> "Run" Support for WinMerge\r
 593 Root: HKLM; Subkey: Software\Microsoft\Windows\CurrentVersion\App Paths\WinMerge.exe; ValueType: none; Flags: uninsdeletekey\r
 594 Root: HKLM; Subkey: Software\Microsoft\Windows\CurrentVersion\App Paths\WinMergeU.exe; ValueType: none; Flags: uninsdeletekey\r
 595 Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinMerge.exe; ValueType: string; ValueName: ; ValueData: {app}\{code:ExeName}\r
 596 Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinMergeU.exe; ValueType: string; ValueName: ; ValueData: {app}\{code:ExeName}\r
 597 \r
 598 ;Registry Keys for use by ShellExtension.dll\r
 599 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge; ValueType: string; ValueName: Executable; ValueData: {app}\{code:ExeName}\r
 600 \r
 601 ;Enables or disables the Context Menu preference based on what the user selects during install\r
 602 ;Initially the Context menu is explicitly disabled:\r
 603 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge; ValueType: dword; ValueName: ContextMenuEnabled; ValueData: 0;\r
 604 \r
 605 ;If the user chose to use the context menu then we re-enable it.  This is necessary so it'll turn on and off not just on.\r
 606 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge; ValueType: dword; ValueName: ContextMenuEnabled; ValueData: 1; Tasks: ShellExtension\r
 607 Root: HKCU; SubKey: Software\Thingamahoochie\WinMerge; ValueType: dword; ValueName: ContextMenuEnabled; ValueData: {code:ShellMenuEnabled}\r
 608 \r
 609 ;If WinMerge.exe is installed then we'll automatically configure WinMerge as the differencing application\r
 610 Root: HKCU; SubKey: Software\TortoiseCVS; ValueType: string; ValueName: External Diff Application; ValueData: {app}\{code:ExeName}; Flags: uninsdeletevalue; Tasks: TortoiseCVS\r
 611 Root: HKCU; SubKey: Software\TortoiseCVS; ValueType: dword; ValueName: DiffAsUnicode; ValueData: $00000001; Flags: uninsdeletevalue; Tasks: TortoiseCVS\r
 612 Root: HKCU; SubKey: Software\TortoiseCVS\Prefs\External Diff Application; ValueType: string; ValueName: _; ValueData: {app}\{code:ExeName}; Flags: uninsdeletevalue dontcreatekey; Tasks: TortoiseCVS\r
 613 Root: HKCU; SubKey: Software\TortoiseCVS\Prefs\External Diff2 Params; ValueType: string; ValueName: _; ValueData: """%1"" ""%2"""; Flags: uninsdeletevalue dontcreatekey; Tasks: TortoiseCVS\r
 614 \r
 615 ;Tells TortoiseCVS to use WinMerge as its differencing application (this happens whether or not Tortoise is current installed, that way\r
 616 ;if it is installed at a later date this will automatically support it)\r
 617 Root: HKCU; SubKey: Software\TortoiseCVS; ValueType: string; ValueName: External Merge Application; ValueData: {app}\{code:ExeName}; Flags: uninsdeletevalue; Tasks: TortoiseCVS\r
 618 Root: HKCU; SubKey: Software\TortoiseCVS; ValueType: dword; ValueName: MergeAsUnicode; ValueData: $00000001; Flags: uninsdeletevalue; Tasks: TortoiseCVS\r
 619 Root: HKCU; SubKey: Software\TortoiseCVS\Prefs\External Merge Application; ValueType: string; ValueName: _; ValueData: {app}\{code:ExeName}; Flags: uninsdeletevalue dontcreatekey; Tasks: TortoiseCVS\r
 620 Root: HKCU; SubKey: Software\TortoiseCVS\Prefs\External Merge2 Params; ValueType: string; ValueName: _; ValueData: """%mine"" ""%yours"""; Flags: uninsdeletevalue dontcreatekey; Tasks: TortoiseCVS\r
 621 \r
 622 ;Set WinMerge as TortoiseGit diff tool\r
 623 Root: HKCU; SubKey: Software\TortoiseGit; ValueType: string; ValueName: Diff; ValueData: {app}\{code:ExeName} -e -ub -dl %bname -dr %yname %base %mine; Flags: uninsdeletevalue; Tasks: TortoiseGit\r
 624 Root: HKCU; SubKey: Software\TortoiseGit; ValueType: string; ValueName: Merge; ValueData: {code:TortoiseSVNGITMergeToolCommandLine}; Flags: uninsdeletevalue; Check: UseAs3WayMergeTool\r
 625 \r
 626 ;Set WinMerge as TortoiseSVN diff tool\r
 627 Root: HKCU; SubKey: Software\TortoiseSVN; ValueType: string; ValueName: Diff; ValueData: {app}\{code:ExeName} -e -ub -dl %bname -dr %yname %base %mine; Flags: uninsdeletevalue; Tasks: TortoiseSVN\r
 628 Root: HKCU; SubKey: Software\TortoiseSVN; ValueType: string; ValueName: Merge; ValueData: {code:TortoiseSVNGITMergeToolCommandLine}; Flags: uninsdeletevalue; Check: UseAs3WayMergeTool\r
 629 \r
 630 ;Whatever the user chooses at the [Select Setup Language] dialog should also determine what language WinMerge will start up in\r
 631 ;(unless the user already has a startup language specified)\r
 632 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000042d; Flags: deletevalue; Languages: Basque\r
 633 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000402; Flags: deletevalue; Languages: Bulgarian\r
 634 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000403; Flags: deletevalue; Languages: Catalan\r
 635 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000804; Flags: deletevalue; Languages: Chinese_Simplified\r
 636 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000404; Flags: deletevalue; Languages: Chinese_Traditional\r
 637 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000041a; Flags: deletevalue; Languages: Croatian\r
 638 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000405; Flags: deletevalue; Languages: Czech\r
 639 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000406; Flags: deletevalue; Languages: Danish\r
 640 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000413; Flags: deletevalue; Languages: Dutch\r
 641 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000409; Flags: deletevalue; Languages: English\r
 642 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000040c; Flags: deletevalue; Languages: French\r
 643 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000456; Flags: deletevalue; Languages: Galician\r
 644 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000407; Flags: deletevalue; Languages: German\r
 645 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000408; Flags: deletevalue; Languages: Greek\r
 646 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000040e; Flags: deletevalue; Languages: Hungarian\r
 647 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000410; Flags: deletevalue; Languages: Italian\r
 648 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000411; Flags: deletevalue; Languages: Japanese\r
 649 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000412; Flags: deletevalue; Languages: Korean\r
 650 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000414; Flags: deletevalue; Languages: Norwegian\r
 651 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000429; Flags: deletevalue; Languages: Persian\r
 652 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000415; Flags: deletevalue; Languages: Polish\r
 653 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000816; Flags: deletevalue; Languages: Portuguese\r
 654 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000416; Flags: deletevalue; Languages: PortugueseBrazilian\r
 655 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000418; Flags: deletevalue; Languages: Romanian\r
 656 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000419; Flags: deletevalue; Languages: Russian\r
 657 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000c1a; Flags: deletevalue; Languages: Serbian\r
 658 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000041b; Flags: deletevalue; Languages: Slovak\r
 659 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000424; Flags: deletevalue; Languages: Slovenian\r
 660 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000c0a; Flags: deletevalue; Languages: Spanish\r
 661 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000041D; Flags: deletevalue; Languages: Swedish\r
 662 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $0000041f; Flags: deletevalue; Languages: Turkish\r
 663 Root: HKLM; SubKey: Software\Thingamahoochie\WinMerge\Locale; ValueType: dword; ValueName: LanguageId; ValueData: $00000422; Flags: deletevalue; Languages: Ukrainian\r
 664 \r
 665 \r
 666 [Run]\r
 667 ;This will no longer appear unless the user chose to make a start menu group in the first place\r
 668 Filename: {win}\Explorer.exe; Description: {cm:ViewStartMenuFolder}; Parameters: """{group}"""; Flags: waituntilidle postinstall skipifsilent unchecked; Check: GroupCreated\r
 669 \r
 670 Filename: {app}\{code:ExeName}; Description: {cm:LaunchProgram, WinMerge}; Flags: nowait postinstall skipifsilent runmaximized\r
 671 \r
 672 \r
 673 [UninstallDelete]\r
 674 ;Remove 7-zip integration dlls possibly installed (by hand or using separate installer)\r
 675 Name: {app}\Merge7z*.dll; Type: files\r
 676 Name: {app}\7zip_pad.xml; Type: files\r
 677 Name: {app}\Codecs; Type: filesandordirs\r
 678 Name: {app}\Formats; Type: filesandordirs\r
 679 Name: {app}\Lang; Type: filesandordirs\r
 680 \r
 681 Name: {group}; Type: dirifempty\r
 682 Name: {app}; Type: dirifempty\r
 683 \r
 684 \r
 685 [Code]\r
 686 Var\r
 687     g_CheckListBox: TNewCheckListBox;\r
 688 \r
 689 {Determines whether or not the user chose to create a start menu}\r
 690 Function GroupCreated(): boolean;\r
 691 Var\r
 692     {Stores the path of the start menu group Inno Setup may have created}\r
 693     strGroup_Path: string;\r
 694 Begin\r
 695     {Saves the path that Inno Setup intended to create the start menu group at}\r
 696     strGroup_Path := ExpandConstant('{group}');\r
 697 \r
 698     {If the start menu path isn't blank then..}\r
 699     if strGroup_Path <> '' Then\r
 700         Begin\r
 701             {If the user choose to create the start menu then this folder will exist.\r
 702             If the folder exists then GroupCreated = True otherwise it does not.}\r
 703             Result := DirExists(strGroup_Path)\r
 704         end\r
 705     else\r
 706         {Since the start menu path is null, we know that the user chose not to create a\r
 707         start menu group (note in Inno Setup 4.18 this didn't yet work, but I'm sure it will in the future}\r
 708         Result := False;\r
 709 \r
 710      {Debug\r
 711 \r
 712     If DirExists(strGroup_Path) = True Then\r
 713         Msgbox('The group "' + ExpandConstant('group') + '" was found', mbInformation, mb_ok)\r
 714     Else\r
 715         Msgbox('The group "' + ExpandConstant('group') + '" doesn''t exist.', mbInformation, mb_ok); }\r
 716 End;\r
 717 \r
 718 \r
 719 {Returns the appropriate name of the .EXE being installed}\r
 720 Function ExeName(Unused: string): string;\r
 721 Begin\r
 722   Result := 'WinMergeU.exe';\r
 723 End;\r
 724 \r
 725 Function FixVersion(strInput: string): string;\r
 726 {Returns a version with four segments A.B.C.D}\r
 727 Var\r
 728   {Stores the number of periods found within the version string}\r
 729   intPeriods: integer;\r
 730 \r
 731   {Creates a counter}\r
 732   i: integer;\r
 733 \r
 734   {Generates the string to be returned to the user}\r
 735   strVersion: string;\r
 736 Begin\r
 737 \r
 738   {Creates a copy of the input string before we tear it apart}\r
 739   strVersion := strInput;\r
 740 \r
 741   {Until strInput is empty do..}\r
 742   While Length(strInput) > 0 do\r
 743     Begin\r
 744       {if the first character of the input string is a period then}\r
 745       If Copy(strInput, 1, 1) = '.' Then\r
 746 \r
 747         {Incriment the number of periods found}\r
 748         intPeriods := intPeriods + 1;\r
 749 \r
 750       {Remove the first character from the Input string}\r
 751       strInput := Copy(strINput, 2, length(strINput));\r
 752     End;\r
 753 \r
 754   {For every period shy of 3 do..}\r
 755   For i := 1 to 3 - intperiods do\r
 756 \r
 757     {Add a '.0' to the version string}\r
 758     strVersion := strVersion + '.0';\r
 759 \r
 760   {Returns the Version string with the correct number of segments}\r
 761   Result := strVersion;\r
 762 \r
 763 End;\r
 764 \r
 765 Function RemoveLeadingZeros(strInput: string): string;\r
 766 {Removes the leading zeros if any from a numeric string}\r
 767 Begin\r
 768 \r
 769   {While the first character of the string is a zero}\r
 770   While Copy(strInput, 1, 1) = '0' Do\r
 771     begin\r
 772 \r
 773     {Removes one leading zero from the input string}\r
 774       strInput := Copy(strInput, 2, Length(strINput));\r
 775     end;\r
 776 \r
 777   {Returns the formatted string}\r
 778   Result := strInput;\r
 779 \r
 780 End;\r
 781 \r
 782 \r
 783 {Returns whether or not the version string detected is meets the version number requirement}\r
 784 Function VersionAtLeast(strVersion_Installed: string; intMajor: integer; intMinor: integer; intRevision: integer; intBuild: integer): boolean;\r
 785 Var\r
 786 \r
 787   {Stores the Major of the Version installed (X.0.0.0)}\r
 788   intMajor_Installed: Integer;\r
 789 \r
 790   {Stores the Minor of the Version installed (1.X.0.0)}\r
 791   intMinor_Installed: Integer;\r
 792 \r
 793   {Stores the Revision of the Version installed (1.0.X.0)}\r
 794   intRevision_Installed: Integer;\r
 795 \r
 796   {Stores the Revision of the Version installed (1.0.0.X)}\r
 797   intBuild_Installed: Integer;\r
 798 \r
 799   {Stores the last valid character of a particular segment (Major, Minor, Revision) of the Version string}\r
 800   intEnd_Pos: Integer;\r
 801 \r
 802 begin\r
 803   {Debug\r
 804   Msgbox('The version installed is ' + strVersion_Installed + ' and the required version is ' + IntToStr(intMajor) + '.' + IntToStr(intMinor) + '.' + IntToStr(intRevision) + '.' + IntToStr(intBuild), mbINformation, mb_OK)\r
 805         }\r
 806 \r
 807   {Makes sure the version string contains four numberic segments 5.2 ---> 5.2.0.0}\r
 808   strVersion_Installed := FixVersion(strVersion_Installed);\r
 809 \r
 810   {If the version number is empty then quit the function}\r
 811   if strVersion_Installed = '' Then\r
 812     begin\r
 813       Result := False;\r
 814 \r
 815       {Stops analyzing the version installed and returns that the version installed was inadequate}\r
 816       exit;\r
 817     end;\r
 818 \r
 819   {Starts detecting the Major value of the Version Installed}\r
 820 \r
 821   {Sets the end position equal to one character before the first period in the version number}\r
 822   intEnd_Pos := Pos('.', strVersion_Installed) -1\r
 823 \r
 824   {Sets the major version equal to all character before the first period }\r
 825   intMajor_installed := StrToIntDef(RemoveLeadingZeros(Copy(strVersion_Installed, 1, intEnd_Pos)), 0);\r
 826 \r
 827   {Debug\r
 828   msgbox('The Major version installed is ' + IntToStr(intMajor_installed) + ' and the required Major is ' + IntToStr(intMajor) + '.', mbInformation, MB_OK)\r
 829         }\r
 830 \r
 831   {If the Major Version Installed is greater than the required value then...}\r
 832   if intMajor_Installed > intMajor Then\r
 833     begin\r
 834       {Returns that the version number was adequate, since it actually exceeded the requirement}\r
 835       Result := True;\r
 836 \r
 837         {Debug\r
 838         msgbox(IntToStr(intMajor_installed) + ' > ' +  IntToStr(intMajor), mbInformation, MB_OK)\r
 839         }\r
 840 \r
 841       {Stops analyzing the version number since we already know it met the requirement}\r
 842       exit;\r
 843     end;\r
 844 \r
 845   {If the Major version installed is less than the requirement then...}\r
 846   If intMajor_Installed < intMajor Then\r
 847     begin\r
 848       {Debug\r
 849        msgbox(IntToStr(intMajor_installed) + ' < ' +  IntToStr(intMajor), mbInformation, MB_OK)\r
 850        }\r
 851 \r
 852       Result := False;\r
 853 \r
 854       {Stops analyzing the version number since we already know it's inadequate and returns False (inadequate)}\r
 855       exit;\r
 856     end;\r
 857 \r
 858 \r
 859   {Starts detecting the Minor version of the Version Installed}\r
 860 \r
 861   {Modifies strVersion_Installed removing the first period and everything prior to it (Removes the Major Version)}\r
 862   strVersion_Installed := Copy(strVersion_Installed, intEnd_Pos + 2, Length(strVersion_Installed));\r
 863 \r
 864   {Sets the end position equal to one character before the first period in the version number}\r
 865   intEnd_Pos := Pos('.', strVersion_Installed) -1\r
 866 \r
 867   {Sets the Minor version equal to all character before the first period }\r
 868         intMinor_installed := StrToIntDef(RemoveLeadingZeros(Copy(strVersion_Installed, 1, intEnd_Pos)), 0)\r
 869 \r
 870         {Debug\r
 871   msgbox('The Minor version installed is ' + IntToStr(intMinor_installed) + ' and the required Minor is ' + IntToStr(intMinor) + '.', mbInformation, MB_OK)\r
 872         }\r
 873 \r
 874         {If the Minor Version Installed is greater than the required value then...}\r
 875         If intMinor_Installed > intMinor Then\r
 876     begin\r
 877       {Returns that the version number was adequate}\r
 878       Result := True;\r
 879 \r
 880       {Stops further analyzation of the version number}\r
 881       exit\r
 882     end;\r
 883 \r
 884   {If the minor installed is less than what was required}\r
 885   If intMinor_Installed < intMinor Then\r
 886     Begin\r
 887       Result := False;\r
 888 \r
 889       {Returns that the version installed did not meet the required value and stops analyzing the version number}\r
 890       exit;\r
 891     end;\r
 892 \r
 893 \r
 894   {Starts Detecting the Revision of the Version Installed}\r
 895 \r
 896         {Modifies strVersion_Installed removing the first period and everything prior to it (Removes the Minor Version)}\r
 897         strVersion_Installed := Copy(strVersion_Installed, intEnd_Pos + 2, Length(strVersion_Installed));\r
 898 \r
 899         {Sets the last character of the Revision to last character before the first period}\r
 900         intEnd_Pos := Pos('.', strVersion_Installed) -1\r
 901 \r
 902         {Sets the Revision Installed equal to everything before the first period}\r
 903         intRevision_Installed := strToIntDef(RemoveLeadingZeros(Copy(strVersion_Installed, 1, intEnd_Pos)), 0);\r
 904 \r
 905         {Debug\r
 906   msgbox('The Revision version installed is ' + IntToStr(intRevision_installed) + ' and the required Revision is ' + IntToStr(intRevision) + '.', mbInformation, MB_OK)\r
 907         }\r
 908 \r
 909         {If the Revision Installed is greater than the required value then...}\r
 910   If intRevision_Installed > intRevision Then\r
 911     begin\r
 912       {Return that the version installed was adequate}\r
 913       Result := True;\r
 914 \r
 915       {Stops further analyzation of the version number}\r
 916       exit\r
 917     end;\r
 918 \r
 919   {If the revision installed did not meet the requirement then...}\r
 920   If intRevision_Installed < intRevision Then\r
 921     begin\r
 922       Result := False;\r
 923 \r
 924     {Return that the version number failed to meet the requirement and stops further analyzation of the version number}\r
 925       exit;\r
 926     end;\r
 927 \r
 928   {Start Detection the Build Installed}\r
 929 \r
 930         {Modifies strVersion_Installed removing the first period and everything prior to it (Removes the Revision) leaving behind only the build number}\r
 931         strVersion_Installed := Copy(strVersion_Installed, intEnd_Pos + 2, Length(strVersion_Installed));\r
 932 \r
 933         {Set the build installed = to what's left of the strVersion_Installed text}\r
 934         intBuild_installed := strToIntDef(RemoveLeadingZeros(strVersion_Installed), 0);\r
 935 \r
 936         {Debug\r
 937   msgbox('The Build version installed is ' + IntToStr(intBuild_installed) + ' and the required Build is ' + IntToStr(intBuild) + '.', mbInformation, MB_OK)\r
 938         }\r
 939 \r
 940         {If the build installed is greater than or equal to the requirement then...}\r
 941         if intBuild_installed >= intBuild Then\r
 942 \r
 943          {Report that the version installed was adequate}\r
 944     Result := True\r
 945   else\r
 946 \r
 947     {Reports the inadequacy of the version installed and seases processing }\r
 948     Result := False;\r
 949 end;\r
 950 \r
 951 \r
 952 {Determines whether or not TortoiseCVS is installed}\r
 953 Function TortoiseCVSInstalled(): boolean;\r
 954 Begin\r
 955         {This absolutely must remain as \CustomIcons, because our application used to create some TortoiseCVS keys even if the application wasn't installed!}\r
 956     Result := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\TortoiseCVS\CustomIcons') or RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\TortoiseCVS\Icons');\r
 957 End;\r
 958 \r
 959 {Determines whether or not TortoiseGit is installed}\r
 960 Function TortoiseGitInstalled(): boolean;\r
 961 Begin\r
 962     Result := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\TortoiseGit') or RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\TortoiseGit');\r
 963 End;\r
 964 \r
 965 {Determines whether or not TortoiseSVN is installed}\r
 966 Function TortoiseSVNInstalled(): boolean;\r
 967 Begin\r
 968     Result := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\TortoiseSVN') or RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\TortoiseSVN');\r
 969 End;\r
 970 \r
 971 Function OldGroup(): string;\r
 972 Begin\r
 973     {Stores where in \All Users\Programs\ our start menu used to be located}\r
 974      RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinMerge_is1', 'Inno Setup: Icon Group', Result)\r
 975 End;\r
 976 \r
 977 Procedure DeletePreviousStartMenu();\r
 978 Var\r
 979         strOld: string;\r
 980         strNew: string;\r
 981         strMessage: string;\r
 982         strShortcut: string;\r
 983 Begin\r
 984     {Detects the previous start menu group's path, if any}\r
 985     strOld := OldGroup();\r
 986 \r
 987     {Detects the current start menu group's path, if any (not creating a group is a valid option)}\r
 988     strNew := ExpandConstant('{group}');\r
 989 \r
 990     {removes the start menu portion of the path from the group path making it match the format of strOld}\r
 991     StringChange(strNew, ExpandConstant('{commonprograms}\'), '')\r
 992 \r
 993     {if the user does have a previous start menu location then..}\r
 994     If strOld <> '' Then\r
 995         Begin\r
 996             {If the current and previous start menu locations are different then...}\r
 997             If Uppercase(strOld) <> UpperCase(strNew) Then\r
 998                 Begin\r
 999                     strMessage := ExpandConstant('{cm:DeletePreviousStartMenu}');\r
1000                     strMessage := Format(strMessage, [strOld, strNew]);\r
1001 \r
1002                     {Display a dialog asking the user if they'd like to delete the previous start menu group}\r
1003                     {If they'd like to delete the previous start menu group then...}\r
1004                     If Msgbox(strMessage, mbConfirmation, mb_YesNo) = mrYes Then\r
1005                         Begin\r
1006                             strOld := ExpandConstant('{commonprograms}\') + strOld;\r
1007                             {Remove old start menu}\r
1008                             DelTree(strOld, True, True, True);\r
1009                         End;\r
1010                 End;\r
1011         End;\r
1012 End;\r
1013 \r
1014 {This event procedure is queed each time the user changes pages within the installer}\r
1015 Procedure CurPageChanged(CurPage: integer);\r
1016 Begin\r
1017     {if the installer reaches the file copy page then...}\r
1018     If CurPage = wpInstalling Then\r
1019             {Delete the previous start menu group if the location has changed since the last install}\r
1020             DeletePreviousStartMenu;\r
1021 End;\r
1022 \r
1023 // Checks if context menu is already enabled for shell extension\r
1024 // If so, we won't overwrite its existing value in [Registry] section\r
1025 Function ShellMenuEnabled(Unused: string): string;\r
1026 Var\r
1027   ContextMenuEnabled: DWORD;\r
1028 Begin\r
1029   ContextMenuEnabled := 0;\r
1030   RegQueryDWORDValue(HKCU, 'Software\Thingamahoochie\WinMerge', 'ContextMenuEnabled', ContextMenuEnabled);\r
1031   if IsTaskSelected('ShellExtension') then\r
1032     Result := inttostr(ContextMenuEnabled or 1)\r
1033   else\r
1034     Result := '0';\r
1035 End;\r
1036 \r
1037 {Replace one occurrence of OldStr in Str with NewStr}\r
1038 Function ReplaceSubString(Src: string; OldStr: string; NewStr: string) : string;\r
1039 Var\r
1040     OldStrStartAt: Integer;\r
1041 \r
1042 Begin\r
1043     OldStrStartAt := Pos(OldStr, Src);\r
1044     if OldStrStartAt > 0 then\r
1045     begin\r
1046         {Remove old string}\r
1047         Delete(Src, OldStrStartAt, Length(OldStr));\r
1048         {Insert new string}\r
1049         Insert(NewStr, Src, OldStrStartAt);\r
1050     end;\r
1051     Result := Src;\r
1052 End;\r
1053 \r
1054 {Returns WinMerge installed exeutable file name}\r
1055 Function WinMergeExeName(): string;\r
1056 Var\r
1057         Unused: String;\r
1058 \r
1059 Begin\r
1060     Result := ExpandConstant('{app}\') + ExeName(Unused);\r
1061 End;\r
1062 \r
1063 {Returns ClearCase external tools configuration file name}\r
1064 Function ClearCaseMapFile(): string;\r
1065 Begin\r
1066     if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Rational Software\', 'RSINSTALLDIR', Result) then\r
1067     begin\r
1068         Result := {pf} + '\Rational\';\r
1069     end;\r
1070     Result := Result + 'ClearCase\lib\mgrs\map';\r
1071 End;\r
1072 \r
1073 {Determines whether or not Rational ClearCase is installed}\r
1074 Function ClearCaseInstalled(): boolean;\r
1075 Begin\r
1076     Result := FileExists(ClearCaseMapFile());\r
1077 End;\r
1078 \r
1079 {Intergrate WinMerge as ClearCase external diff tool}\r
1080 Procedure IntegrateClearCase(OldExe: String; NewExe: String);\r
1081 Var\r
1082     MapFile: TStringList;\r
1083     FileName: String;\r
1084     I: Integer;\r
1085     BakFile: String;\r
1086 \r
1087 Begin\r
1088     FileName := ClearCaseMapFile();\r
1089     {Create a backup file of the original file first time it gets modified}\r
1090     BakFile := FileName + '.original';\r
1091     if not FileExists(BakFile) then\r
1092     begin\r
1093         FileCopy(FileName, BakFile, True);\r
1094     end;\r
1095     MapFile := TStringList.Create();\r
1096     {Read the entire map file to a string list}\r
1097     MapFile.LoadFromFile(FileName);\r
1098     if MapFile.Count > 0 then\r
1099     begin\r
1100         for I := 0 to MapFile.Count do\r
1101         begin\r
1102             {Search for the 'text_file_delta xcompare ...' line}\r
1103                         if (MapFile.Strings[I][1] <> ';') and (Pos('text_file_delta', MapFile.Strings[I]) > 0) and (Pos('xcompare', MapFile.Strings[I]) > 0) then\r
1104                         begin\r
1105                                 {Replace old executable name with a new executable name}\r
1106                                 MapFile.Strings[I] := ReplaceSubString(MapFile.Strings[I], OldExe, NewExe);\r
1107                             break;\r
1108                         end;\r
1109                 end;\r
1110                 { Save the modified file. }\r
1111                 MapFile.SaveToFile(FileName);\r
1112         end;\r
1113 End;\r
1114 \r
1115 // Add WinMerge to system path.\r
1116 // This requires certain order of things to work:\r
1117 // #1 ModPathDir function must be first (it gets called by others)\r
1118 // #2 include of modpath.iss so modpath code gets included\r
1119 // #3 CurStepChanged and CurUninstallStepChanged procedures as they call\r
1120 //    ModPath (in modpath.iss)\r
1121 function ModPathDir(): TArrayOfString;\r
1122 var\r
1123     Dir:        TArrayOfString;\r
1124 begin\r
1125     setArrayLength(Dir, 1)\r
1126         Dir[0] := ExpandConstant('{app}');\r
1127         Result := Dir;\r
1128 end;\r
1129 \r
1130 function UseAs3WayMergeTool(): Boolean;\r
1131 begin\r
1132     Result := g_CheckListBox.Checked[0];\r
1133 end;\r
1134 \r
1135 function TortoiseSVNGITMergeToolCommandLine(Unused: string): string;\r
1136 var\r
1137     lmr: string;\r
1138     Args: string;\r
1139 begin\r
1140     if g_CheckListBox.Checked[1] then begin\r
1141         lmr := 'r';\r
1142         Args := '/e /ub /fr /wl /wm /dl %bname /dm %tname /dr %yname  %base %theirs %mine /o %merged';\r
1143     end else if g_CheckListBox.Checked[2] then begin\r
1144         lmr := 'm';\r
1145         Args := '/e /ub /fm /wl /wr /dl %tname /dm %bname /dr %yname  %theirs %base %mine /o %merged';\r
1146     end else begin\r
1147         lmr := 'l';\r
1148         Args := '/e /ub /fl /wm /wr /dl %yname /dm %tname /dr %bname  %mine %theirs %base /o %merged';\r
1149     end;\r
1150     if g_CheckListBox.Checked[4] then begin\r
1151         Args := Args + ' /a' + lmr;\r
1152     end;\r
1153     Result := WinMergeExeName() + ' ' + Args;\r
1154 end;\r
1155 \r
1156 function ThreeWayMergePage_ShouldSkipPage(Page: TWizardPage): Boolean;\r
1157 begin\r
1158     Result := not (IsTaskSelected('TortoiseSVN') or IsTaskSelected('TortoiseGIT'));\r
1159 end;\r
1160 \r
1161 #include "modpath.iss"\r
1162 \r
1163 procedure CurStepChanged(CurStep: TSetupStep);\r
1164 Begin\r
1165     if CurStep = ssPostInstall then\r
1166     begin\r
1167                 if IsTaskSelected('modifypath') then\r
1168                         ModPath();\r
1169         if IsTaskSelected('ClearCase') then\r
1170         begin\r
1171             IntegrateClearCase('..\..\bin\cleardiffmrg.exe', WinMergeExeName());\r
1172         end;\r
1173     end;\r
1174 End;\r
1175 \r
1176 Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);\r
1177 var\r
1178         appdir:                 String;\r
1179         selectedTasks:  AnsiString;\r
1180 Begin\r
1181         appdir := ExpandConstant('{app}')\r
1182         if CurUninstallStep = usUninstall then begin\r
1183                 if LoadStringFromFile(appdir + '\uninsTasks.txt', selectedTasks) then\r
1184                         if Pos('modifypath', selectedTasks) > 0 then\r
1185                                 ModPath();\r
1186                 DeleteFile(appdir + '\uninsTasks.txt')\r
1187         end;\r
1188 \r
1189     if CurUninstallStep = usPostUninstall then\r
1190     begin\r
1191       if ClearCaseInstalled() then\r
1192         IntegrateClearCase(WinMergeExeName(), '..\..\bin\cleardiffmrg.exe');\r
1193     end;\r
1194 End;\r
1195 \r
1196 function BooleanToString(Value : Boolean) : String; \r
1197 begin\r
1198   if Value then\r
1199     Result := 'true'\r
1200   else\r
1201     Result := 'false';\r
1202 end;\r
1203 \r
1204 function StringToBoolean(Value : String) : Boolean; \r
1205 begin\r
1206   if Value = 'true' then\r
1207     Result := true\r
1208   else\r
1209     Result := false;\r
1210 end;\r
1211 \r
1212 procedure RegisterPreviousData(PreviousDataKey: Integer);\r
1213 begin\r
1214   SetPreviousData(PreviousDataKey, 'UseAs3WayMergeTool', BooleanToString(g_CheckListBox.Checked[0]));\r
1215   SetPreviousData(PreviousDataKey, 'MergeAtRightPane', BooleanToString(g_CheckListBox.Checked[1]));\r
1216   SetPreviousData(PreviousDataKey, 'MergeAtCenterPane', BooleanToString(g_CheckListBox.Checked[2]));\r
1217   SetPreviousData(PreviousDataKey, 'MergeAtLeftPane', BooleanToString(g_CheckListBox.Checked[3]));\r
1218   SetPreviousData(PreviousDataKey, 'AutoMergeAtStartup', BooleanToString(g_CheckListBox.Checked[4]));\r
1219 end;\r
1220 \r
1221 function GetSysColor(ColorType: Integer): Integer;\r
1222 external 'GetSysColor@user32.dll';\r
1223 \r
1224 procedure InitializeWizard();\r
1225 var\r
1226   Page: TWizardPage;\r
1227 begin\r
1228   Page := CreateCustomPage(wpSelectTasks, ExpandConstant('{cm:ThreeWayMergeWizardPageCaption}'), ExpandConstant('{cm:ThreeWayMergeWizardPageDescription}'));\r
1229   Page.OnShouldSkipPage := @ThreeWayMergePage_ShouldSkipPage;\r
1230 \r
1231   g_CheckListBox := TNewCheckListBox.Create(Page);\r
1232   g_CheckListBox.Width := Page.SurfaceWidth;\r
1233   g_CheckListBox.Height := ScaleY(128);\r
1234   g_CheckListBox.Flat := True;\r
1235   g_CheckListBox.BorderStyle := bsNone;\r
1236   g_CheckListBox.Color := GetSysColor(15);\r
1237   g_CheckListBox.Parent := Page.Surface;\r
1238   g_CheckListBox.AddCheckBox(ExpandConstant('{cm:RegisterWinMergeAs3WayMergeTool}'), '', 0, StringToBoolean(GetPreviousData('UseAs3WayMergeTool', 'true')), True, False, True, nil);\r
1239   g_CheckListBox.AddRadioButton(ExpandConstant('{cm:MergeAtRightPane}'), '', 1, StringToBoolean(GetPreviousData('MergeAtRightPane', 'true')), True, nil);\r
1240   g_CheckListBox.AddRadioButton(ExpandConstant('{cm:MergeAtCenterPane}'), '', 1, StringToBoolean(GetPreviousData('MergeAtCenterPane', 'false')), True, nil);\r
1241   g_CheckListBox.AddRadioButton(ExpandConstant('{cm:MergeAtLeftPane}'), '', 1, StringToBoolean(GetPreviousData('MergeAtLeftPane', 'false')), True, nil);\r
1242   g_CheckListBox.AddCheckBox(ExpandConstant('{cm:AutoMergeAtStartup}'), '', 1, StringToBoolean(GetPreviousData('AutoMergeAtStartup', 'true')), True, False, True, nil);\r
1243 end;\r