Delphi判斷文件大小

Delphi判斷文件大小
Delphi自身提供了FileSize函數，例如：
    var
     f: file of Byte;
     size : Longint;
    begin
     AssignFile(f, 'f:/t.exe');
     Reset(f);
     size := FileSize(f);
     edit1.text := IntToStr(size);
     CloseFile(f);
    end;
這一種如果判斷的文件被其它程序使用，則會報錯 I/O Error

 

     下面這種方法相對更好一些
    也可以使用下面的方法：
    function GetFileSize(const FileName: String): LongInt;
    var SearchRec: TSearchRec;
    begin
    if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
     Result := SearchRec.Size
    else
     Result := -1;
    end;