unit2.pas

ziptv为delphi控件

Unit Unit2;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls;

Type
   TForm2 = Class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Label4: TLabel;
      Label5: TLabel;
      Label6: TLabel;
      Label7: TLabel;
      Label8: TLabel;
      Label9: TLabel;
      Label10: TLabel;
      Label11: TLabel;
      Label12: TLabel;
      Label13: TLabel;
      Label14: TLabel;
      Label15: TLabel;
      Label16: TLabel;
      Label17: TLabel;
      Label18: TLabel;
      Label19: TLabel;
      Label20: TLabel;
      Button1: TButton;
      Procedure FormActivate(Sender: TObject);
   Private
      { Private declarations }
   Public
      { Public declarations }
   End;

Var
   Form2: TForm2;

Implementation

Uses Unit1;

{$R *.DFM}

Procedure TForm2.FormActivate(Sender: TObject);
Begin
   With Form1 Do
   Begin
      ZipTV1.GetFileInfo(ListBox1.Items[ListBox1.ItemIndex]);
      Label11.Caption := ZipTV1.ArchiveFile;
      Label12.Caption := ListBox1.Items[ListBox1.ItemIndex];
      Label13.Caption := FormatDateTime('mm-dd-yy', ZipTV1.Date);
      Label14.Caption := FormatDateTime('hh:mm', ZipTV1.Date);
      Label15.Caption := IntToStr(ZipTV1.PackedSize);
      Label16.Caption := IntToStr(ZipTV1.UnpackedSize);
      Label17.Caption := IntToStr(ZipTV1.Ratio) + '%';
      Label18.Caption := IntToStr(ZipTV1.CRC);
      Label19.Caption := ZipTV1.sCompressionMethod;
      Label20.Caption := IntToStr(ZipTV1.wCompressionMethod);
   End;
End;

End.