如何获取文件尺寸
同题
[解决办法]
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
