Chip 2002 March/Chip_2002-03_cd1.bin/zkuste/delphi/kompon/d5/cak/CAKINST.ZIP/cmarc139.lzh/BGA32.PAS

Pascal/Delphi Source File | 2001-07-16 | 11.4 KB | 258 lines

// ô¥ìçâAü[âJâCâoâRâôâ|ü[âlâôâg for Delphi/C++Builder
// Common Archivers Component for Delphi/C++Builder
// Copyright(C) NORG1964/M.Yoneda 1997,1998,1999,2000
//
// BGA32è╓ÿAâéâWâàü[âï    BGA32.PAS
//
// v1.31:BGA32.DLLé╔éµéΘGZA/BZAî`Ä«é╓é╠æ╬ë₧é≡èJÄn
// v1.32:IsBgaArchive é╠Ä└æòé≡ò╧ìX
//       IsSetOwnerWinow/KillOwnerWindow é╠Ä└æòé≡ò╧ìX
//       Bga è╓Éöé╔âEâBâôâhâEânâôâhâïé≡ôné╡é─éóé╚é⌐é┴é╜é╠é≡ÅCÉ│
//       Lha32 âåâjâbâgé╠ÄQÅ╞é≡èOé╡é╜
// v1.35:TBGA32.Bga é¬ CmdLine ê°Éöé≡î⌐é─éóé╚é⌐é┴é╜òsï∩ìçé╠ÅCÉ│
// v1.38:DLL é⌐éτé╠âGâôâgâèâ|âCâôâgé╠ĵô╛ò√û@é≡ò╧ìXé╡é╜
//
unit BGA32;

interface

uses Windows,SysUtils,Classes,Archives;

type
    TBGA32 = class( TArchiver )
    protected
        class procedure LoadDll; override;
        class procedure FreeDll; override;

    protected
        function  BuildCmdLine( Cmd,ArchiveFileName:string;Options:TArchiverOptions;Path:String;FileList:array of const;UseResFile:boolean ):String;

        function  FindOpen ( Handle:HWND;ArchiveFileName:string;dwMode:DWORD ):THARC; override;
        function  FindFirst( hArc:THArc;var IndivisualInfo:TIndivisualInfo;FileMask:string ):integer; override;
        function  FindNext ( hArc:THArc;var IndivisualInfo:TIndivisualInfo                   ):integer; override;
        function  FindClose( hArc:THArc                                                       ):integer; override;

    public
        function Bga( Handle:HWND;CmdLine:string;var Output:string ):integer;
        function UnpackFiles  ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; override;
        function PackFiles    ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; override;
        function RemoveItems  ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; override;
        function MakeSfx      ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String                                           ;var Output:string ):Integer; override;
//        function UnpackToMem  ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;FileName:string;lpvBuffer:LPVOID;dwSize:DWORD;lpdwWriteSize:LPDWORD   ):Integer; override;
        function CheckArchive ( ArchiveFileName:string;CheckMode:integer;CheckOptions:integer ):DWORD; override;

        function SetOwnerWindowEx ( Handle:HWND;lpArcProc:LPARCHIVERPROC ):boolean; override;
        function KillOwnerWindowEx( Handle:HWND                          ):boolean; override;
    end;

    function IsBgaArchive( ArchiveFileName:string ):boolean;

implementation

//---------------------------------------------------------------------
var
    FArchiver:        TArchiverDLL;

procedure LoadDll;
begin
    if Assigned( FArchiver ) then exit;
    FArchiver := TArchiverDll.Create( 'BGA î`Ä«Åæî╔','BGA32.DLL','Bga' );
    FArchiver.LoadDLL;
end;

procedure FreeDll;
begin
    FArchiver.Free;
    FArchiver := nil;
end;

//---------------------------------------------------------------------
class procedure TBGA32.LoadDll;
begin
    BGA32.LoadDll;
end;

class procedure TBGA32.FreeDll;
begin
    BGA32.FreeDll;
end;

function TBGA32.UnpackFiles( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer;
begin
    FCmdLine := BuildCmdLine( 'x',ArchiveFileName,Options,DstPath,FileList,UseResFile );
    result := Bga( Handle,FCmdLine,Output );
end;

function TBGA32.PackFiles( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer;
begin
    FCmdLine := BuildCmdLine( 'a',ArchiveFileName,Options,BaseDir,FileList,UseResFile );
    result := Bga( Handle,FCmdLine,Output );
end;

function TBGA32.RemoveItems( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer;
begin
    FCmdLine := BuildCmdLine( 'd',ArchiveFileName,Options,'',FileList,ruOnRemoveItem in Options.ResFileUsage );
    result := Bga( Handle,FCmdLine,Output );
end;

function TBGA32.MakeSfx( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String;var Output:string ):Integer;
begin
    FCmdLine := BuildCmdLine( 's',ArchiveFileName,Options,DstPath,[nil],ruOnRemoveItem in Options.ResFileUsage );
    result := Bga( Handle,FCmdLine,Output );
end;

function TBGA32.CheckArchive( ArchiveFileName:string;CheckMode:integer;CheckOptions:integer ):DWORD;
begin
    if CheckMode=CHECKARCHIVE_FULLCRC then CheckMode := CHECKARCHIVE_BASIC;
    result := FArchiver.CheckArchive( PChar( ArchiveFileName ),CheckMode+CheckOptions );
end;

function TBGA32.SetOwnerWindowEx ( Handle:HWND;lpArcProc:LPARCHIVERPROC ):boolean;
begin
    inherited SetOwnerWindowEx( Handle,lpArcProc );
    result := FArchiver.SetOwnerWindowEx( Handle,lpArcProc );
end;

function TBGA32.KillOwnerWindowEx( Handle:HWND ):boolean;
begin
    result := FArchiver.KillOwnerWindowEx( Handle );
    inherited KillOwnerWindowEx( Handle );
end;

function TBGA32.Bga( Handle:HWND;CmdLine:string;var Output:string ):integer;
begin
    result := FArchiver.ArchiverProc( Handle,PChar( CmdLine ),PAnsiChar( Output ),Length( Output ));
end;

function TBGA32.BuildCmdLine( Cmd,ArchiveFileName:string;Options:TArchiverOptions;Path:String;FileList:array of const;UseResFile:boolean ):String;
var
    CmdLine:    TCmdOpt;
begin
    with Options do begin
        CmdLine := TCmdOpt.Create;

//        CmdLine.Add( '-+' );            //    Åφé╔âîâWâXâgâèé╠É▌ÆΦé≡û│Äïé╖éΘ

        CmdLine.AddBolOpt( 'a'    ,a > 0 );    //    a[0|1|2]                æ«É½é╠ì─î╗üB

        if c > 0
        then CmdLine.Add( '-o' )
        else CmdLine.Add( '-n' );                //    c[0|1]                â^âCâÇâXâ^âôâvîƒì╕é≡Å╚ù¬

////    CmdLine.AddIntOpt( 'd'    ,d     );        //    d[0|1]                âfâBâîâNâgâèû╝é╠èiö[
//        CmdLine.AddIntOpt( 'e'    ,e     );        //    e[0|1]                ĽÅæâTâCâYé≡ö╝ò¬é╔é╡é─ê│Åk
//        CmdLine.AddIntOpt( 'f'    ,f     );        //    f[0|1]                âfâBâXâNÄcù╩â`âFâbâNé╠ÆåÄ~
//        CmdLine.AddIntOpt( 'h'    ,h     );        //    h[0|1|2|3]            âwâbâ_é╠î`Ä«é≡ÄwÆΦ
//        CmdLine.AddIntOpt( 'i'    ,i     );        //    i[0|1|2]                âtâ@âCâïæIæ≡é┼æσò╢ÄÜé╞żò╢ÄÜé≡ïµò╩
//        CmdLine.AddIntOpt( 'l'    ,l     );        //    l[0|1|2]                ôWèJâìâOé╠âtâ@âCâïû╝é╠ò\Īû@é╠ò╧ìX
//        CmdLine.AddIntOpt( 'm'    ,m     );        //    m[0|1|2]                Ä┐ûΓé╔ yes é╞ë╝ÆΦ
        CmdLine.AddBolOpt( 'i',( n > 0 )or( CallbackEnabled ));
                                                        //    n[0|1]                ôWèJÅ≤ï╡â_âCâAâìâOò\Īé╠ù}Ä~
//        CmdLine.AddIntOpt( 'o'    ,o     );        //    o[0|1|2]                ïîî`Ä«é┼Åæî╔é≡ì∞ɼ
//        CmdLine.AddIntOpt( 'p'    ,p     );        //    p[0|1|2]                æSâpâXû╝é┼ìçÆv
        CmdLine.AddBolOpt( 'r'    ,r    > 0 );    //    r[0|1|2]                ì─ïAôIîƒì⌡
//        CmdLine.AddIntOpt( 's'    ,s     );        //    s[0|1]                âXâLâbâvò\Īé╠ù}ɺ
//        CmdLine.AddIntOpt( 't'    ,t     );        //    t[0|1]                Åæî╔é╠ìXÉVô·Ä₧é╠ÄwÆΦ
//
//        CmdLine.AddIntOpt( 'u'    ,u      );        //    u[0|1]                âtâ@âCâïé╠ìXÉVüiÉVé╡éóéαé╠üj
//        CmdLine.AddPath1 ( 'w'  ,w   );        //    w[0|1|<Dirû╝>]        ì∞ï╞ùpâfâBâîâNâgâèé╠ÄwÆΦ
        CmdLine.AddBolOpt( 'j'    ,x < 1 );    //    x[0|1]                âfâBâîâNâgâèû╝é≡ùLî°é╔é╖éΘ
//        CmdLine.AddIntOpt( 'y'    ,y      );        //    y[0|1]                æSé─é╠Ä┐ûΓé╔ yes é╞ë╝ÆΦ
//        CmdLine.AddIntOpt( 'z'    ,z      );        //    z[0|1|2|<ègÆúÄq>]    ûóê│Åkâtâ@âCâïé╠ÄwÆΦ            ###ègÆúÄqé═âTâ|ü[âgé╡é╚éó###
//        CmdLine.AddIntOpt( 'jc' ,jc  );        //    jc[0|1]                öjæ╣âwâbâ_é≡û│Äï
//        CmdLine.AddIntOpt( 'jd' ,jd  );        //    jd[<âTâCâY>]        âfâBâXâNé╠ï≤é½ùeù╩é≡èmöF
//        CmdLine.AddIntOpt( 'je' ,je  );        //    je[<âTâCâY>]        Huffman âoâbâtâ@é╠æσé½é│é≡ÄwÆΦ
//        CmdLine.AddIntOpt( 'jf' ,jf  );        //    jf[0|1]                âïü[âgïLìåé╠ìφÅ£
//        CmdLine.AddIntOpt( 'jh' ,jh  );         //    jh[0|1]                WindowsNT/95 ÉΩùpé╠â}ü[âNé≡Åæî╔é╔òtë┴
//        CmdLine.AddIntOpt( 'ji' ,ji  );        //    ji[0|1]                ÆZéóâtâ@âCâïû╝é┼èiö[
        CmdLine.AddIntOpt( 'l'  ,jm  );        //    jm[0|1|2|3|4]        ê│Åkî`Ä«é≡ÄwÆΦ
//        CmdLine.AddIntOpt( 'jn' ,jn  );        //    jn[0|1]                ÉVïKâtâ@âCâïé╠é▌
//        CmdLine.AddStrOpt( 'jo' ,jo  );        //    jo[<Ä₧ìÅÄwÆΦ>]        YYMMDDHHMMSS é╠ô·òtê╚ì~
//        CmdLine.AddStrOpt( 'job',job );        //    job[<Ä₧ìÅÄwÆΦ>]    YYMMDDHHMMSS é╠ô·òtê╚æO
//        CmdLine.AddIntOpt( 'jp' ,jp  );        //    jp[0|1]                ÉiÆ╗âoü[é≡âvâìâOâîâXüEâoü[é┼ò\Ī
//        CmdLine.AddIntOpt( 'jr' ,jr  );        //    jr[0|1]                âtâ@âCâïé╠Æué½è╖éª
//        CmdLine.AddIntOpt( 'jss',jss );        //    jss[0|1]                ê│Åkâtâ@âCâïâIü[âvâôâGâëü[é≡û│ÄïüBÆ╩ÅφüCê│ÅkÄ₧é╔ê│Åkæ╬Å█âtâ@
//        CmdLine.AddIntOpt( 'jw' ,jw  );        //    jw[0|1|2|3|4]        WinSFX/WinSFXM é≡ì∞ɼ
//        CmdLine.AddFList2( 'jx' ,[jx] );        //    jx[<âtâ@âCâïû╝>]    Å£èOé╖éΘâtâ@âCâïû╝
//        CmdLine.AddIntOpt( 'jyc',jyc );        //    jyc[0|1]                âfâBâîâNâgâèì∞ɼé╠èmöFé≡Å╚ù¬
//        CmdLine.AddIntOpt( 'jyd',jyd );        //    jyd[0|1]                âtâ@âCâïìφÅ£é╠èmöFé≡Å╚ù¬
//        CmdLine.AddIntOpt( 'jyk',jyk );        //    jyk[0|1]                Ägùpé┼é½éΘâfâBâXâNùeù╩é╠èmöFé╠Å╚ù¬
//        CmdLine.AddIntOpt( 'jyn',jyn );        //    jyn[0|1]                ÉVâtâ@âCâïû╝é╠ùvïüé╠Å╚ù¬
//        CmdLine.AddIntOpt( 'jyo',jyo );        //    jyo[0|1]                è∙æ╢âtâ@âCâïé╓é╠ÅπÅæé½èmöFé╠Å╚ù¬
//        CmdLine.AddStrOpt( 'jz' ,jz  );        //    jz[<âtâ@âCâïû╝>]    âtâ@âCâïÆìÄ▀é╠âtâ@âCâïé≡ïƒïï
//        CmdLine.AddIntOpt( 'ga' ,ga  );        //    ga[0|1]                Åæé½ì₧é▌òsë┬æ«É½é≡û│Äï
//        CmdLine.AddIntOpt( 'gd' ,gd  );        //    gd[0|1]                ù]ò¬é╚âfü[â^é╠ìφÅ£
//        CmdLine.AddIntOpt( 'ge' ,ge  );        //    ge[0|1]                ì┼Åëé╠ègÆúÄqé≡öFÄ»
//        CmdLine.AddIntOpt( 'gf' ,gf  );        //    gf[0|1|2]            é╖é┼é╔éáéΘâtâ@âCâïé╠ìXÉV
//        CmdLine.AddIntOpt( 'gj' ,gj  );        //    gj[0|1]                x û╜ù▀é≡ e û╜ù▀é╞ô»ùlé╞î⌐é╚é╖
//        CmdLine.AddIntOpt( 'gm' ,gm  );        //    gm[0|1]                âGâëü[âüâbâZü[âWò\Īé╠ù}Ä~
//        CmdLine.AddIntOpt( 'gn' ,gn  );        //    gn[0|1|2]            ôWèJâtâ@âCâïé╠ìçîvâTâCâYé≡ 100% é╞é╡é╜ÉiÆ╗âOâëâté╠ò\Ī
//        CmdLine.AddIntOpt( 'go' ,go  );        //    go[0|1]                â_âCâAâìâOé╠âIü[âiü[âEâBâôâhâEé╠ÄwÆΦ
//        CmdLine.AddIntOpt( 'gp' ,gp  );        //    gp[0|1]                âEâBâôâhâEé≡ Disable é╔é╡é╚éó
//        CmdLine.AddStrOpt( 'gr' ,gr  );        //    gr[<âtâ@âCâïû╝>]    ò╧ìXâtâ@âCâïû╝é≡ïƒïï
//        CmdLine.AddIntOpt( 'gs' ,gs  );        //    gs[<âTâCâY>]        âwâbâ_îƒì⌡âTâCâYé╠ÄwÆΦ
//        CmdLine.AddIntOpt( 'gu' ,gu  );        //    gu[0|1]                WinSFXüCDosSFX é╔æSé─é╠âtâ@âCâïé≡èiö[
//        CmdLine.AddIntOpt( 'gw' ,gw  );        //    gw[0|1|2|3|4]        WinSFX32/WinSFX32M é≡ì∞ɼ

        CmdLine.Add( UserOptions );

        AddFileSpec1( CmdLine,ArchiveFileName,Path );
        AddFileSpec2( CmdLine,Options,FileList,UseResFile );

        result := cmd + CmdLine.Str;
        CmdLine.Free;
    end;
end;

function TBGA32.FindOpen( Handle:HWND;ArchiveFileName:string;dwMode:DWORD ):THARC;
begin
    result := FArchiver.OpenArchive( Handle,PChar( ExpandFileName( ArchiveFileName )),dwMode );
end;

function TBGA32.FindClose( hArc:THArc ):integer;
begin
    result := FArchiver.CloseArchive( hArc );
end;

function TBGA32.FindFirst( hArc:THArc;var IndivisualInfo:TIndivisualInfo;FileMask:string ):integer;
begin
    result := FArchiver.FindFirst( hArc,PChar( FileMask ),@IndivisualInfo );
end;

function TBGA32.FindNext( hArc:THArc;var IndivisualInfo:TIndivisualInfo ):integer;
begin
    result := FArchiver.FindNext( hArc,@IndivisualInfo )
end;

//    function IsBgaArchive( ArchiveFileName:string ):boolean;
//    var
//        SfxType:    integer;
//    begin
//        try
//            LoadDll;
//            SfxType:= BgaCheckArchive( PChar( ExpandFileName( ArchiveFileName )),CHECKARCHIVE_SFX+CHECKARCHIVE_ALL );
//            result := ( SfxType <> -1 );
//        except
//            result := false;
//        end;
//    end;

function IsBgaArchive( ArchiveFileName:string ):boolean;
var
    hArc:        THARC;
begin
    try
        LoadDLL;
        ArchiveFileName := ExpandFileName( ArchiveFileName );
        result := false;
        if not FileExists( ArchiveFileName ) then exit;
        hArc := FArchiver.OpenArchive( 0,PAnsiChar( ArchiveFileName ),M_REGARDLESS_INIT_FILE+M_ERROR_MESSAGE_OFF );
        FArchiver.CloseArchive( hArc );
        result := ( hArc <> 0 );
    except
        result := false;
    end;
end;

end.