如何获取文件尺寸
同题

[解决办法]
F: TFileStream;

F := TFileStream.Create( 'c:\a.txt ', fmOpenRead);

F.Size //文件大小
[解决办法]
var
SearchRec: TSearchRec;
begin
if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
Result := SearchRec.Size
else
Result := -1;
end;
[解决办法]
用api GetFileSize