已经知道文件的路径和文件名,如何获得文件大小,文件类型任意

解决方案 »

  1.   

    var
      f:Longint;
      FSize:integer;
      FDateTime:TDateTime;f:=FileOpen(FileName,fmOpenRead);
    FSize:=FileSeek(PFile,0,2);
    FileClose(f);
      

  2.   

    function GetMyFileSize(const AFilename: string): DWORD;
    var
      HFILE: THandle;
    begin
      HFILE := CreateFile(PChar(AFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
      if HFILE <> INVALID_HANDLE_VALUE then
      begin
        Result := GetFileSize(HFILE, nil);
        CloseHandle(HFILE);
      end
      else
        Result := 0;
    end;