[Delphi] 로컬 파일 크기 가져오기

// 파일크기 반환. 파일이 없으면 -1
function GetFileSize(FilePath: String): Int64;
var SR: TSearchRec;
begin
  if FindFirst(FilePath, faAnyFile, SR)=0 then
    Result:=Int64(SR.FindData.nFileSizeHigh) shl Int64(32)+Int64(SR.FindData.nFileSizeLow)
  else
    Result:=-1;

  FindClose(SR);
end;