function GetBytesPerCluster(const ADrive: String): Int64;

var

  SectorsPerCluster: DWORD;

  BytesPerSector: DWORD;

  Dummy: DWORD;

begin

  if GetDiskFreeSpace(PChar(ADrive), SectorsPerCluster, BytesPerSector, Dummy, Dummy) = 0 then

    Exit(0);

  Result := SectorsPerCluster * BytesPerSector;

end;



+ Recent posts