Função para formatar Bytes como no explorer

[LuizVaz]

Função de para formatar o tamanho em bytes igual ao Explorer.
Basta adicionar a unit shlwapi para a sua unit antes.

Uses shlwapi;


//Retorna o tamanho com sufixo: bytes, KB, MB, GB
function ByteSize(Value: Int64): String;
var buf: array[0..20] of Char;
begin
  if StrFormatByteSizeW(Value, @buf, Length(buf)) = nil then
    raise EConvertError.CreateFmt('Error converting %d', [Value]);
  Result := WideCharToString(@buf);
end;

Luiz Vaz