delphi如何取文件的大小

function FileSizeEx(const FileName: string): Int64;
var
Info: TWin32FindData;
Hnd: THandle;
begin
Result := -1;
Hnd := FindFirstFile(PChar(FileName), Info);
if (Hnd <> INVALID_HANDLE_VALUE) then
begin
Windows.FindClose(Hnd);
Int64Rec(Result).Lo := Info.nFileSizeLow;
Int64Rec(Result).Hi := Info.nFileSizeHigh;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(FileSizeEx('c:\1.txt'));
end;

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

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

2。GetFileSize