[函数] Firemonkey iOS 指定目录不要备份到 iCloud

uses iOSapi.Foundation, Macapi.Helpers;

// 不要备份到 iCloud by Aone
function addSkipBackupAttributeToItemAtPath(const Path1: String): Boolean;
var Dir: NSString;
Url: NSURL;
ErrorPtr: Pointer;
begin
Dir := StrToNSStr(Path1);
Url := TNSURL.Wrap(TNSURL.OCClass.fileURLWithPath(Dir));
Result := Url.setResourceValue(TNSNumber.OCClass.numberWithBool(True), NSURLIsExcludedFromBackupKey, @ErrorPtr);
end;