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;