Add version to the uninstall page

Author: bclothier

Rubberduck.Deployment/InnoSetup/Installer Build Script.iss

@@ -66,7 +66,7 @@ PrivilegesRequired=lowest
 
 UninstallFilesDir={app}\Installers
 UninstallDisplayName={code:GetUninstallDisplayName}
-UninstallDisplayIcon={app}\Ducky.ico
+UninstallDisplayIcon={group}\Ducky.ico
 Uninstallable=ShouldCreateUninstaller()
 CreateUninstallRegKey=ShouldCreateUninstaller()
 
@@ -92,7 +92,7 @@ Source: "{#BuildDir}{#AddinDLL}"; DestDir: "{app}"; Flags: ignoreversion replace
 
 ; Used for customizing the Start menu folder appearance
 Source: "desktop.ini"; DestDir: "{group}"; Attribs: hidden system; Flags: ignoreversion replacesameversion; Check: CheckShouldInstallFiles;
-Source: "ducky.ico"; DestDir: "{group}"; Attribs: hidden system; Flags: ignoreversion replacesameversion; Check: CheckShouldInstallFiles;
+Source: "Ducky.ico"; DestDir: "{group}"; Attribs: hidden system; Flags: ignoreversion replacesameversion; Check: CheckShouldInstallFiles;
 
 ; Makes it easier to fix VBE registration issues
 Source: "{#IncludesDir}Rubberduck.RegisterAddIn.bat"; DestDir: "{app}"; Flags: ignoreversion replacesameversion;
@@ -1033,6 +1033,21 @@ begin
   result := output;
 end;
 
+///<remarks>
+///Allow customization of the uninstall form
+///Specificallly, show the version in the form
+///</remarks>
+procedure InitializeUninstallProgressForm();
+var
+  TempString: string;
+begin
+  TempString := UninstallProgressForm.Caption;
+  Log('Original Uninstall caption: ' + TempString);
+  StringChange(TempString, '{#AppName}', '{#AppName} {#AppVersion}');
+  Log('Modified Uninstall caption: ' + TempString);
+  UninstallProgressForm.Caption := TempString;
+end;
+
 ///<remarks>
 ///Called during uninstall, once for each step but for our purpose, we are 
 ///interested in only one step doing the actual uninstall.