Easy Backuping Program with WinZip in Delphi

After a long time I’m writing again.  I think this program will be useful for Delphi  programmers. Logic of program very easy .

 In orginal program I used  Directoryedit component which is in the rx library, but for nonusers rx library  I wrote it with standard Delphi component .

Program algorithm based on calling WinZip with the basic parameters.

The codes are as follows .

procedure TForm1.BitBtn3Click(Sender: TObject);

var

PrgParamli:String;

ii:Integer;

begin

PrgParamli:='-a -p -r "'+ EditSave.Text + ComboBox1.Text+EditDate.Text+'.zip" ';

   for ii:=0 to GroupBox1.ControlCount -1

       do begin

        if (GroupBox1.Controls[ii] is TCheckBox) then

            begin

              if TCheckBox(GroupBox1.Controls[ii]).Checked then

                PrgParamli:=PrgParamli+'"'+EditBackUp.Text+'\'+TCheckBox(GroupBox1.Controls[ii]).Caption+'"';

            end;

      end;

ShellExecute(Handle,'open',PWideChar(EditWinZip.Text),PChar(PrgParamli), nil,SW_SHOW);

end;

Download codes.