delphi 中获取文件大小

delphi 中获取文件大小  

大概有这些方法可以获得文件大小  
FileSizeByName（需要引用IdGlobal单元）  
GetFileSize  
FileSize（不能获得正在使用的文件大小）  
FileSeek  
TFileStream.Size  

下面是使用例子  
1。FileSizeByName（需要引用IdGlobal单元）  
begin  
if OpenDialog1.Execute then  
begin  
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;  

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;  

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;  

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;

另在IdGlobalProtocols中有个FileSizeByName()的函数。