Delphi Dahili Hafıza Boyutu Öğrenme

[codder71]

(07-01-2018, Saat: 22:55)hyperxman Adlı Kullanıcıdan Alıntı:

  {$IFDEF ANDROID}
  aStatFS := TJALStatFs.JavaClass.init(StringToJstring(aDir));
 if (TJBuild_VERSION.JavaClass.SDK_INT < 18 {Android 4.3 - JELLY_BEAN_MR2}) then aTmpAvailableSpace := aStatFS.getBlockSize * aStatFS.getAvailableBlocks
 else aTmpAvailableSpace := aStatFS.getAvailableBytes;
 aStatFS := nil;
 {$ELSEIF defined(IOS) or defined(_MACOS)}
 aFileManager := TNSFileManager.Wrap(TNSFileManager.OCClass.defaultManager);
 aDict := aFileManager.attributesOfFileSystemForPath(StrToNSStr(aDir), nil);
 if aDict = nil then aTmpAvailableSpace := 0
 else begin
   aPointer := aDict.objectForKey((CocoaNSStringConst(FoundationFwk, 'NSFileSystemFreeSize') as ILocalObject).GetObjectID);
   if Assigned(aPointer) then aTmpAvailableSpace := TNSNumber.Wrap(aPointer).unsignedLongLongValue
   else aTmpAvailableSpace := 0;
 end;
 {$ELSEIF defined(MSWINDOWS)}


 aDiskDrive := ALupperCaseU(AlStringReplaceU(ExtractFileDrive(aDir), ':', '', []));
 if length(aDiskDrive) = 1 then aTmpAvailableSpace := DiskFree(ord(aDiskDrive[low(aDiskDrive)]) - $40)
 else aTmpAvailableSpace := 0;
 {$ENDIF}

--loki

Üstat dene bir istersen; 

Detay


Saygılarımla,
İyi çalışmalar.

Hocam cevabın için teşekkürler fakat kodlar hata veriyor apkyı derlemeyi başaramadım. Sitede detaylı bir açıklama da bulamadım maalesef