有人可以使用Delphi XE4指出或帮助我获取IPHONE / IPAD设备的总磁盘大小。
我只需要一个起点,我试图使用:
Device : UIDevice;
但它没有参考。
谢谢
答案 0 :(得分: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;