anchor.diff:        if Pos('\\', ArchiveName) = 1 then begin  {path is UNC; must refer to network }
           { check OS version }
           if OSOK then begin
  -          Size := GetRemoteDiskFree(DrvStr);                             {!!.02}
  +          Size := GetDiskFree(DrvStr);                             {!!.02}
           end
           else begin {OS < Win95b }
             {GetDiskFreeSpaceEx isn't available and
              GetDiskFreeSpace and DiskFree fail on UNC paths,
              about all we can do is hope the server isn't full}
  -            Size := MaxLongInt;
  +            Size := High(Int64);
           end; {if}
         end
         else begin { path is not UNC}
  
positive.code:   Found : Integer;
    NameMask: string;
  begin
    Found := FindFirst( FileMask, SearchAttr, SR );
    if Found = 0 then begin
      try
        NameMask := UpperCase(ExtractFileName(FileMask));
        while Found = 0 do begin
          NewFile := ExtractFilePath( FileMask ) + SR.Name;
          if AbPatternMatch(UpperCase(SR.Name), 1, NameMask, 1) then
          FileList.Add( NewFile );
          Found := FindNext( SR );
        end;
      finally
  
negative.code:   returns -1 if fails for some reason }
  
  {$IFDEF MSWINDOWS }
  
  function GetDiskFree(const Path : string) : Int64;
  var
    FreeAvailable, TotalSpace, TotalFree: Int64;
    Succeeded : BOOL;
  