build: implement smart upgrade detection and English UI notice (v6.0.1.11)

Author: justnullname

QuickView/QuickView.rc

@@ -10,8 +10,8 @@
 
 // Version Information - This sets the display name in Windows
 VS_VERSION_INFO VERSIONINFO
- FILEVERSION 6,0,1,10
- PRODUCTVERSION 6,0,1,10
+ FILEVERSION 6,0,1,11
+ PRODUCTVERSION 6,0,1,11
 FILEFLAGSMASK 0x3fL
 FILEFLAGS 0x0L
 FILEOS VOS_NT_WINDOWS32
@@ -24,11 +24,11 @@ BEGIN
         BEGIN
             VALUE "CompanyName", "QuickView"
             VALUE "FileDescription", "QuickView"
-            VALUE "FileVersion", "6.0.1.10"
+            VALUE "FileVersion", "6.0.1.11"
             VALUE "InternalName", "QuickView"
             VALUE "OriginalFilename", "QuickView.exe"
             VALUE "ProductName", "QuickView"
-            VALUE "ProductVersion", "6.0.1.10"
+            VALUE "ProductVersion", "6.0.1.11"
         END
     END
     BLOCK "VarFileInfo"

installer/QuickView.iss

@@ -83,3 +83,21 @@ Filename: "{app}\{#MyAppExeName}"; Parameters: "--uninstall"; Flags: runhidden
 Type: files; Name: "{app}\QuickView.ini"
 Type: files; Name: "{app}\*.old"
 Type: filesandordirs; Name: "{userappdata}\QuickView"
+
+[Code]
+procedure InitializeWizard;
+var
+  ExistingPath: String;
+  UpgradeMsg: String;
+begin
+  // Check if QuickView is already installed
+  // The AppId is {D175135F-5C7A-4E7B-B41E-C638E75C421A}
+  if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{D175135F-5C7A-4E7B-B41E-C638E75C421A}_is1', 'InstallLocation', ExistingPath) or
+     RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{D175135F-5C7A-4E7B-B41E-C638E75C421A}_is1', 'InstallLocation', ExistingPath) then
+  begin
+    UpgradeMsg := 'QuickView has detected an existing installation on your system.' + #13#10#13#10 +
+                  'The installer will now update your current version to the latest one while preserving your settings.' + #13#10#13#10 +
+                  'Click Next to continue with the update.';
+    WizardForm.WelcomeLabel2.Caption := UpgradeMsg;
+  end;
+end;