A:

{  Borland

function FindFirst(const Path: string; Attr: Integer;
  var  F: TSearchRec): Integer;
const
  faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
{$IFDEF MSWINDOWS}
begin
  F.ExcludeAttr := not Attr and faSpecial;
  F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Result := FindMatchingFile(F);
    if Result <> 0 then FindClose(F);
  end else
    Result := GetLastError;
end;

}

function MyGetFileSize(Filename : String) : Integer;
var
  SearchRecA : TSearchRec;
  StartTime, EndTime:   integer;
begin
  StartTime:=GetTickCount;
  if Sysutils.FindFirst(Filename, faAnyFile, SearchRecA) = 0 then
  begin
  Result:= SearchRecA.Size;
  Sysutils.FindClose(SearchRecA);
  end else Result:=0;
  EndTime:=GetTickCount;
  showmessage('文件大小是: ' + Inttostr(Result) + '总共花了'+ Inttostr(EndTime-StartTime)+'ms');
end;

B:

function MyGetFileSizeA(Filename :PChar) : Integer;
var
  SearchRecA : TSearchRec;
  StartTime, EndTime:   integer;
  fhadle : THANDLE;
begin
  StartTime:=GetTickCount;
  fhadle := CreateFile(Filename,           //文件名或路径
                        0,
                        0,
                        0,
                        OPEN_EXISTING, //文件存在则打开并读取
                        0,
                        0);
  Result := GetFileSize(fhadle, 0);
  EndTime:=GetTickCount;
  showmessage('文件大小是: ' + Inttostr(Result) + '总共花了'+ Inttostr(EndTime-StartTime)+'ms');
end;

结果都不能分出谁快, 用谁好?
请大家指点下!!!

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课