stub.dpr

来自「用于Delphi和BCB的高速压缩组件库」· DPR 代码 · 共 35 行

{$I VER.INC}

program Stub;

{$APPTYPE CONSOLE}

uses
  SysUtils, FlexCompress;
var
  {$IFDEF FC}
  Archiver : TFlexCompress;
  {$ENDIF}
  {$IFDEF ZF_int}
  Archiver : TZipForge;
  {$ENDIF}
  {$IFDEF ZF}
  Archiver : TZipForge;
  {$ENDIF}
begin
 {$IFDEF FC}
 Archiver := TFlexCompress.Create(nil);
 {$ENDIF}
 {$IFDEF ZF}
 Archiver := TZipForge.Create(nil);
 {$ENDIF}
 {$IFDEF ZF_int}
 Archiver := TZipForge.Create(nil);
 {$ENDIF}
 Archiver.FileName := ExtractFileName(ParamStr(0));
 Archiver.BaseDir := ExtractFilePath(ParamStr(0));
 Archiver.OpenArchive(fmOpenRead + fmShareDenyNone);
 Archiver.ExtractFiles('*.*');
 Archiver.CloseArchive;
end.