Merge pull request #39 from sitiom/patch-1

Use ForceDirectories() instead of CreateDir()

Author: FMXExpress

Source/devcpp.dpr

@@ -147,15 +147,15 @@ begin
     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
+    if (not devData.IsPortable) and ((AppData <> '') and (DirectoryExists(AppData + DevCppDir) or ForceDirectories(AppData + DevCppDir))) then
       devData.INIFileName := AppData + DevCppDir + INIFileName
     else
     begin
         // 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
+        if (not devData.IsPortable) and ((AppData <> '') and (DirectoryExists(AppData + DevCppDir) or ForceDirectories(AppData + DevCppDir))) then
           devData.INIFileName := AppData + DevCppDir + INIFileName
         else
         begin