ios - XE4 で合計ディスク サイズを取得する

Question

Delphi XE4を使用してIPHONE / IPADデバイスの合計ディスクサイズを取得する際に、誰かが指摘したり助けたりできますか。

私はちょうど開始点が必要です、私は使用しようとしました:

Device : UIDevice;

しかし、それには参照がありません。

ありがとうございました

Answer 1

uses
  iOSapi.Foundation, Macapi.ObjectiveC;

function GetTotalDiskSize(FolderName: string): Int64;
var
  Dict: NSDictionary;
  P: Pointer;
const
  FoundationFwk: string = '/System/Library/Frameworks/Foundation.framework/Foundation';
begin
  Result := 0;
  Dict := TNSFileManager.Wrap(TNSFileManager.OCClass.defaultManager).attributesOfFileSystemForPath(NSStr(FolderName), nil);
  if Dict = nil then
    Exit;
  P := Dict.objectForKey((CocoaNSStringConst(FoundationFwk, 'NSFileSystemSize') as ILocalObject).GetObjectID);
  if Assigned(P) then
    Result := TNSNumber.Wrap(P).unsignedLongLongValue;
end;