Portal Melhores Rádios Estereogramas Guia de Programação MDV Max Converter MDV Player
Duas funções para retornar o tamanho em bytes de um arquivo (Delphi)

Duas funções para retornar o tamanho em bytes de um arquivo (Delphi)

Duas funções para retornar o tamanho em bytes de um arquivo (Delphi)

//Incluir no uses a unit: SysUtils
function funRetornaTamanhoArquivo(pStrArquivo: String): Integer;
var
  SR: TSearchRec;
  lIntAux: Integer;
begin
  lIntAux := FindFirst(pStrArquivo, faArchive, SR);
  try
    if lIntAux = 0 then
      Result := SR.Size
    else
      Result := -1;
  finally
    FindClose(SR);
  end;
end;

//Para essa função, o arquivo não pode estar aberto
function funRetornaTamanhoArquivo2(pStrArquivo: String): Integer;
begin
  with TFileStream.Create(pStrArquivo, fmOpenRead or fmShareExclusive) do
  begin
    try
      Result := Size;
    finally
      Free;
    end;
  end;
end;