Delphi 获得文件大小的五种方法

Delphi 获得文件大小的方法 大概有这些：

• 　　FileSizeByName（需要引用IdGlobal单元 ，XE版本已取消） 
• 　　GetFileSize （use Windows ，仅支持windows）
• 　　FileSize（不能获得正在使用的文件大小） 
• 　　FileSeek 
• 　　TFileStream.Size 

使用例子 ：
1、FileSizeByName（需要引用IdGlobal单元，XE版本已取消） 

?

1 2 3 4

if OpenDialog1.Execute then begin   ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename))); end;

2、GetFileSize （use Windows ，仅支持windows）

?

1 2 3 4 5 6 7 8 9

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（不能获得正在使用的文件大小） 

?

1 2 3 4 5 6 7 8 9 10

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 

?

1 2 3 4 5 6 7 8 9 10

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 

?

1 2 3 4 5 6 7 8 9

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()的函数。

 

 

创建时间：2015-05-01　　更新时间：2020.01.02、2022.08.25

来源于：https://www.cnblogs.com/guorongtao/p/4470185.html