怎样在不打开文件的情况下获取文件长度(50分)

文件很大,打开的时候很耗时,能不能不打开而获得文件长度?

用Windows API: GetFileSize

function MyGetFileSize(const FileName: string): LongInt;
var
SearchRec: TSearchRec;
begin
if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
begin
Result := SearchRec.Size;
FindClose(SearchRec);
end
else Result := -1;
end;

接受答案了.