how to solve this error?

[stickyman]

Thanks.

[lycj]

Readme.txt

Code: Select all

Please note that if you dont need all listed archvie support you can remove them
from uses list and AddArchiver in line 190, then you dont have to install the component.

Cakdir2.pas

Code: Select all

uses CakDelphiZip, CakRtDunAce, CakRtDunRar, CakCmArc, CakCabinet,
     CakQuakePak, CakDescentHog, CakSqxSdk, CakReSource,{ CakIndy,}
///////////here!!///////////////
     CakAbbrevia, CakCryptoZip, CakQuickZipEncode, CakExtension,
     Masks, CakUtils2, Graphics, Dialogs, Shellapi,
     CakListView2, CakTreeView2, CakTreeList2, CakTreeComboBox2;

procedure TCakdir2.Prepare_Archiver;
begin
    Add_Archiver(TCakArchiver  ,_WIT,'---------------',sNone);
    Add_Archiver(TCakExtension ,_EXT,'---------------',sAllExceptSfx);
    Add_Archiver(TCakCryptoZip ,_CZIP,DefaultTreatAsCzip ,sAllExceptSfx);
    Add_Archiver(TCakDelphiZip ,_ZIP,DefaultTreatAsZip,sAll);
    Add_Archiver(TCakRtDunAce  ,_ACE,DefaultTreatAsAce,sExtractOnly);
    Add_Archiver(TCakRtDunRar  ,_RAR,DefaultTreatAsRar,sExtractOnly);
    Add_Archiver(TCakCabinet   ,_CAB,DefaultTreatAsCab,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_LHA,DefaultTreatAsLha,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_ARJ,DefaultTreatAsArj,sExtractOnly);
    Add_Archiver(TCakCmArc     ,_TAR,DefaultTreatAsTar,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_TGZ,DefaultTreatAsTGZ,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_BZ2,DefaultTreatAsBz2,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_BZA,DefaultTreatAsBza,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_7Z ,DefaultTreatAs7z ,sAllExceptSfx);
    Add_Archiver(TCakCmArc     ,_GCA,DefaultTreatAsGca,sExtractOnly);
    Add_Archiver(TCakCmArc     ,_BEL,DefaultTreatAsBel,sExtractOnly);
    Add_Archiver(TCakSqxSdk    ,_SQX,DefaultTreatAsSqx,sAllExceptSfx);
    Add_Archiver(TCakQuakePak  ,_PAK,DefaultTreatAsPak,sExtractOnly);
    Add_Archiver(TCakDescentHog,_HOG,DefaultTreatAsHog,sExtractOnly);
    Add_Archiver(TCakReSource  ,_RS ,DefaultTreatAsRs ,sAllExceptSfx);


///////////here!!///////////////
    Add_Archiver(TCakAbbrevia  ,_ZIP,DefaultTreatAsZip,sAllExceptSfx);
    Add_Archiver(TCakAbbrevia  ,_TAR,DefaultTreatAsTar,sAllExceptSfx);
    Add_Archiver(TCakAbbrevia  ,_TGZ,DefaultTreatAsTGZ,sAllExceptSfx);

  //Add_Archiver(TCakIndy      ,_UUE,DefaultTreatAsUUE,sExtractOnly);
  //Add_Archiver(TCakIndy      ,_XXE,DefaultTreatAsXXE,sExtractOnly);
  //Add_Archiver(TCakIndy      ,_B64,DefaultTreatAsB64,sExtractOnly);
    Add_Archiver(TCakQuickZipEncode,_QZE,DefaultTreatAsQze,sAll);


Abbrevia can be found in sourceforge, you can use DelphiZip instead.