Add code to remove redundant UserInfo section from config file in first run code

Author: delphidabbler

Src/FirstRun.UConfigFile.pas

@@ -102,6 +102,8 @@   TUserConfigFileUpdater = class(TConfigFileUpdater)
     procedure DeleteUpdatingPrefs;
     ///  <summary>Deletes unused UpdateChecks section.</summary>
     procedure DeleteUpdateChecks;
+    ///  <summary>Deletes unused UserInfo section.</summary>
+    procedure DeleteUserInfo;
     ///  <summary>Effectively renames MainWindow section used prior to version
     ///  11 as WindowState:MainForm.</summary>
     procedure RenameMainWindowSection;
@@ -330,6 +332,13 @@ procedure TUserConfigFileUpdater.DeleteUpdatingPrefs;
   DeleteIniSection('Prefs:Updating', CfgFileName);
 end;
 
+procedure TUserConfigFileUpdater.DeleteUserInfo;
+begin
+  if not TFile.Exists(CfgFileName, False) then
+    CreateNewFile;
+  DeleteIniSection('UserInfo', CfgFileName);
+end;
+
 class function TUserConfigFileUpdater.GetFileVersion: Integer;
 begin
   Result := FileVersion;

Src/FirstRun.UMain.pas

@@ -242,6 +242,7 @@ procedure TFirstRun.UpdateUserCfgFile(out Changes: TFirstRunCfgChangeSet);
     fUserConfigFile.DeleteProxyServerSection;
     fUserConfigFile.DeleteUpdatingPrefs;
     fUserConfigFile.DeleteUpdateChecks;
+    fUserConfigFile.DeleteUserInfo;
   end;
 
   {$IFNDEF PORTABLE}