ForceDirectories无法在MacOS应用程序支持中创建文件夹

Question

Delphi XE7

var
  theFolder: String;
...
theFolder := System.IOUtils.TPath.Combine(GetMacApplicationSupportDir, 'com.bookup.mychessapp' + Pathfinder;

ShowMessage(theFolder);

if ForceDirectories(theFolder)
  then ShowMessage('It worked.')
  else ShowMessage('It failed.');

ShowMessage now says it worked.

theFolder is '/Users/mike/Library/Application Support/com.bookup.chessopeningswizardprofessional/'

That reverse URL matches the Bundle identifier in the app's info.plist.

However, even though ForceDirectories() reports success, the folder does not appear in Macintosh HD | Library | Application Support (which has the folders for all the other apps).

Answer 1

You want the Application Support directory under the System's Library directory, not the User's.

Your GetMacApplicationSupportDir function is probably passing NSUserDomainMask and is thus retrieving the Application Support directory under the User's Library directory.

You should use NSSystemDomainMask if you want the Application Support directory under the System's Library directory.

---

If ForceDirectories is still failing using the System level Application Support directory then you may not have appropriate admin (root) rights to create directories and files there. This operation would typically be performed by and install process (which would have prompted for elevated admin/root rights.)

Have a look at this question; it seems to be addressing a similar issue:

Is /Library/Application Support Library accessible to all users?