unit1.pas

ziptv为delphi控件

Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   ztvRegister,
   ztvBase,
   ztvUnZip,
   ztvStreams,
   StdCtrls,
   ExtCtrls;

Type
   TForm1 = Class(TForm)
      Button1: TButton;
      UnZip1: TUnZip;
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Procedure Button1Click(Sender: TObject);
   Private
      { Private declarations }
   Public
      { Public declarations }
   End;

Var
   Form1: TForm1;

Implementation

{$R *.DFM}

//-------------------------------------------------------------

Procedure TForm1.Button1Click(Sender: TObject);
Var
   Success: Boolean;
   FileStream: TFileStream32;
Begin
   UnZip1.OverwriteMode := omOverwrite;
   UnZip1.ArchiveFile := Edit1.Text;
   UnZip1.ConfirmOverwrites := False;
   UnZip1.RecurseDirs := True;

   FileStream := TFileStream32.Create(Edit3.Text, fmCreate Or fmShareExclusive);
   Try
      // If the ExtractToFileStream method is successful the returned
      // result will be 1.
      Success := UnZip1.ExtractToFileStream('calc.exe', FileStream) = 1;
      If Success Then
         ShowMessage('Output file size: ' + IntToStr(FileStream.Size))
      Else
         ShowMessage('Extraction failed');
   Finally
      FileStream.Free();
   End;
End;
//-------------------------------------------------------------


End.