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现在说它有效。

theFolder是＆＃39; / Users / mike / Library / Application Support / com.bookup.chessopeningswizardprofessional /＆＃39;

该反向网址与应用的info.plist中的Bundle标识符相匹配。

但是，即使ForceDirectories（）报告成功，该文件夹也不会出现在Macintosh HD |中图书馆|应用程序支持（包含所有其他应用程序的文件夹）。