anchor.diff:    FTargetDir: string;
     FFlags: TCopyFileFlags;
     FCopyFailedCount: integer;
  +  FCopyAsHardlinks: boolean;
   protected
     procedure DoFileFound; override;
     procedure DoDirectoryFound; override;
  
positive.code:   NewLoc := StringReplace(FileName, FSourceDir, FTargetDir, []);
    NewF := StringReplace(FileName, FSourceDir, '', []);
    WriteLn('  ',newf);
    if not CopyFile(FileName, NewLoc, FFlags) then
      Inc(FCopyFailedCount);
  end;
  
negative.code:   end;
  end;
  
  initialization
  {$IFDEF MSWINDOWS}
    Pointer(pfnCreateHardLinkW):= GetProcAddress(SafeLoadLibrary(KernelDLL), 'CreateHardLinkW');
  {$ENDIF}
  end.
  
  