Update to Update Pack. Config file is in common location for all OSes

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5685 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazautoupdate/latest_stable/updatepack/umainform.pas

@@ -840,6 +840,12 @@ begin
     ShowMessageFmt('Zipfile ''%s'' is OK', [ProfileRec.ZipFileName])
   else
     ShowMessage('Unable to create Zipfile. Is the App path and/or WhatsNew path valid?');
+  // Save the current Profile
+  AppConfig.WriteString('Current', 'Profilename', szCurrentProfileName);
+  ReadFromGUI(szCurrentProfileName);
+  WriteProfileToINI(szCurrentProfileName);
+  bCurrentProfileSaved := True;
+  // Make up the text for the memo
   sz := 'Zipfile and INI file are located at:' + LineEnding;
   sz += ProfileRec.Outdir + LineEnding + LineEnding;
 

components/lazautoupdate/latest_stable/updatepack/updatepack.lpi

@@ -22,8 +22,8 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
-      <MinorVersionNr Value="1"/>
+      <MinorVersionNr Value="2"/>
-      <RevisionNr Value="1"/>
+      <RevisionNr Value="2"/>
       <StringTable Comments="Updated Jan 2017" FileDescription="Companion to LazAutoUpdate component" InternalName="updatepack" LegalCopyright="(c)2015 minesadorada@charcodelvalle.com" OriginalFilename="updatepack" ProductName="Lazarus/FPC" ProductVersion="2.6.4"/>
     </VersionInfo>
     <BuildModes Count="5">
@@ -159,6 +159,9 @@
             </Optimizations>
           </CodeGeneration>
           <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+            </Debugging>
             <LinkSmart Value="True"/>
             <Options>
               <Win32>

components/lazautoupdate/latest_stable/updatepack/updatepack.lpr

@@ -34,7 +34,8 @@ Const
   C_PFX = C_OS + C_BITNESS;
 begin
   Application.Title:='LazAutoUpdate Update Pack';
-  Application.Title:=Application.Title + ' (' + C_PFX + ' edition)';
+  // Line below gives unique folders in GetAppConfig call
+  // Application.Title:=Application.Title + ' (' + C_PFX + ' edition)';
   RequireDerivedFormResource := True;
   Application.Initialize;
   Application.CreateForm(Tmainform, mainform);