Delphi 中擷取檔案大小

大概有這些方法可以獲得檔案大小
FileSizeByName（需要引用IdGlobal單元）
GetFileSize
FileSize（不能獲得正在使用的檔案大小）
FileSeek
TFileStream.Size

下面是使用例子
1. FileSizeByName（需要引用IdGlobal單元）
begin
 if OpenDialog1.Execute then
   ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));
end;

2. GetFileSize
var
  FileHandle:integer;
begin
  if OpenDialog1.Execute then begin
    FileHandle := FileOpen(OpenDialog1.FileName, 0);
    ShowMessage(IntToStr(GetFileSize(FileHandle, nil)));
    FileClose(FileHandle);
  end;
end;

3. FileSize（不能獲得正在使用的檔案大小）
var
  f: file;
begin
  if OpenDialog1.Execute then begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f, 1);
    ShowMessage(IntToStr(FileSize(f)));
    CloseFile(f);
  end;
end;

4. FileSeek
var
  FileHandle:integer;
begin
  if OpenDialog1.Execute then begin
    FileHandle := FileOpen(OpenDialog1.FileName, 0);
    ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));
    FileClose(FileHandle);
  end;
end;

5. TFileStream.Size
var
  FS: TFileStream;
begin
  if OpenDialog1.Execute then begin
    FS := TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone);
    ShowMessage(IntToStr(FS.Size));
    FS.Free;
  end;
end;

另在IdGlobalProtocols中有個FileSizeByName()的函數。