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.