Fórum tamanho de arquivos #154285

var f: file of Byte;
    T: Longint;
begin
    AssignFile(f, ´C:\AUTOEXEC.BAT´);
    Reset(f);
    try
      t := FileSize(f);
      ShowMessage(´Tamnho do arquivo em bytes: ´ + IntToStr(t));
    finally
      CloseFile(f);
    end;
end;

var iFileHandle: Integer;
    iFileLength: Integer;
begin
    iFileHandle := FileOpen(´C:\AUTOEXEC.BAT´, fmOpenRead);
    iFileLength := FileSeek(iFileHandle,0,2);
    FileClose(iFileHandle);
    ShowMessage(IntToStr(iFileLength));
end;