projectzip.~dpr

一个delphi下压缩成zip文件的例子

program ProjectZip;

uses
  Forms,
  UnitZip in 'UnitZip.pas' {FormZip},
  ZLib in 'Zlib\ZLib.pas',
  UnitZipModule in 'UnitZipModule.pas' {DataModuleZip: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormZip, FormZip);
  Application.CreateForm(TDataModuleZip, DataModuleZip);
  Application.Run;
end.