Compactar

[marcio.theis 3]

Precisa se ter somente um componente TSaveDialog, TOpenDialog, 2 TLabel, 2 TEdit, 2TSpeedButton e 1 TBitBtn...

Ficando:

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons, StdCtrls, OpenDir, ShellApi;type  TForm1 = class(TForm)	Label1: TLabel;	edtArquivo: TEdit;	Label2: TLabel;	edtSalvar: TEdit;	btnZipar: TBitBtn;	OpenDialog: TOpenDialog;	btnArquivo: TSpeedButton;	btnSalvar: TSpeedButton;	SaveDialog: TSaveDialog;	procedure btnZiparClick(Sender: TObject);	procedure btnArquivoClick(Sender: TObject);	procedure btnSalvarClick(Sender: TObject);  private	{ Private declarations }  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnZiparClick(Sender: TObject);beginShellExecute(Application.Handle,'OPEN', 'winzip32.exe',PChar('-min -a -ex -hs "' + edtSalvar.Text + '" ' + '"' + edtArquivo.Text + '"'), PChar(ExtractFilePath('winzip32.exe')),sw_Maximize);end;procedure TForm1.btnArquivoClick(Sender: TObject);beginif OpenDialog.Execute then	edtArquivo.Text:=OpenDialog.FileName;end;procedure TForm1.btnSalvarClick(Sender: TObject);beginif SaveDialog.Execute then	edtSalvar.Text:=SaveDialog.FileName;end;end.

Imagem da tela:

 

[Rodrigo Miss 1]

Aki naum funciono Marcio .... naum acontece nda...

[marcio.theis 3]

Ele não mostra tela e nada, somente compacta e gera o arquivo onde você expecificar....