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;