Added a tiered config file location to address permission issues.

Author: FMXExpress

Source/devcpp.dpr

@@ -141,17 +141,28 @@ begin
     else
       devData.INIFileName := IncludeTrailingBackslash(ParamStr(2)) + INIFileName;
   end else begin
-    // default dir should be C:\Users\<username>\Documents\Embarcadero\Dev-Cpp
-    AppData := IncludeTrailingBackslash(TPath.GetDocumentsPath);
+    // default dir should be %APPDATA%\Embarcadero\Dev-Cpp
+    AppData := IncludeTrailingBackslash(TPath.GetHomePath);
 
-    // Store the INI file in C:\Users\<username>\Documents or if we are not allowed to do so, in the exe directory
-    if (not devData.IsPortable) and ((AppData <> '') and (DirectoryExists(AppData + 'Embarcadero\Dev-Cpp') or CreateDir(AppData + 'Embarcadero\Dev-Cpp'))) then
-      devData.INIFileName := AppData + 'Embarcadero\Dev-Cpp\' + INIFileName
+    const DevCppDir = 'Embarcadero\Dev-Cpp';
+
+    // Store the INI file in %APPDATA% or if we are not allowed to do so, in the exe directory
+    if (not devData.IsPortable) and ((AppData <> '') and (DirectoryExists(AppData + DevCppDir) or CreateDir(AppData + DevCppDir))) then
+      devData.INIFileName := AppData + DevCppDir + INIFileName
     else
     begin
-      // store it in the default portable config folder anyways...
-      devData.INIFileName := ExeFolder + 'config\' + INIFileName;
-      TDirectory.CreateDirectory(TPath.GetDirectoryName(devData.INIFileName));
+        // default dir should be C:\Users\<username>\Documents\Embarcadero\Dev-Cpp
+        AppData := IncludeTrailingBackslash(TPath.GetDocumentsPath);
+
+        // Store the INI file in C:\Users\<username>\Documents or if we are not allowed to do so, in the exe directory
+        if (not devData.IsPortable) and ((AppData <> '') and (DirectoryExists(AppData + DevCppDir) or CreateDir(AppData + DevCppDir))) then
+          devData.INIFileName := AppData + DevCppDir + INIFileName
+        else
+        begin
+          // store it in the default portable config folder anyways...
+          devData.INIFileName := ExeFolder + 'config\' + INIFileName;
+          TDirectory.CreateDirectory(TPath.GetDirectoryName(devData.INIFileName));
+        end;
     end;
   end;