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.

Delphi’de Winzip ile Kolay Yedekleme Programı

Uzun bir aradan sonra yeniden arkadaşların hatırlatması ile yazıyorum. Yazımın programlarını yedeklemeye üşenen Delphi Programcıları için faydalı olacağını düşünüyorum .:)  .Programın orjnalinde klasör isimlerini almak için rx kütüphanesinin directoryedit componentini kullanmıştım. Fakat rx kullanmayanlar olabilir diye programı standart Delphi componentleri ile yazdım.

Programın temeli winzipi parametreleri ile çağırıp işaretli dosyaları yedeklemeye dayanıyor. Aslında winrarın parametrelerini bilenler bunu winrara da uygulayabilir.

Kodlar aşağıdaki gibidir.

procedure TForm1.BitBtn3Click(Sender: TObject);

var

PrgParamli:String;

ii:Integer;

begin

PrgParamli:='-a -p -r "'+ EditKayitKlasoru.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+'"'+EditYedeklenenKlasor.Text+'\'+TCheckBox(GroupBox1.Controls[ii]).Caption+'"';

            end;

      end;

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

end;

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

 Programı indirin.