Add separate ufAdminInstallMode.

Projects/Install.pas

@@ -3030,9 +3030,11 @@ begin
       UninstLog.InstallMode64Bit := Is64BitInstallMode;
       UninstLog.AppName := ExpandedAppName;
       UninstLog.AppId := ExpandedAppId;
+      if IsAdminInstallMode then
+        Include(UninstLog.Flags, ufAdminInstallMode);
       if IsWin64 then
         Include(UninstLog.Flags, ufWin64);
-      if IsAdmin then { Setup or [Code] might have done administrative actions, so using IsAdmin here and not IsAdminInstallMode }
+      if IsAdmin then { Setup or [Code] might have done administrative actions, even if IsAdminInstallMode is False }
         Include(UninstLog.Flags, ufAdminInstalled)
       else if IsPowerUserOrAdmin then
         { Note: This flag is only set in 5.1.9 and later }

Projects/Undo.pas

@@ -107,7 +107,7 @@ type
 
   TUninstallLogFlags = set of (ufAdminInstalled, ufDontCheckRecCRCs,
     ufModernStyle, ufAlwaysRestart, ufChangesEnvironment, ufWin64,
-    ufPowerUserInstalled);
+    ufPowerUserInstalled, ufAdminInstallMode);
 
   TUninstallLog = class
   private

Projects/Uninstall.pas

@@ -559,7 +559,7 @@ begin
     ConstLeadBytes := @UninstLeadBytes;
 {$ENDIF}
 
-    InitializeAdminInstallMode(ufAdminInstalled in UninstLog.Flags);
+    InitializeAdminInstallMode(ufAdminInstallMode in UninstLog.Flags);
 
     { Initialize install mode }
     if UninstLog.InstallMode64Bit then begin