25 Mart 2014 Salı

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;


1 yorum:

Unknown dedi ki...

Kullanışlı. Teşekkürler.

ALLAH GÜZEL İSİMLERİ(ESMAÜL HÜSNA) VE KAİNAT VE KORONA VİRÜSÜNÜN HAYIRLI TARAFLARI

Kuranı kerimde Bakara 180 de"En güzel isimler Allah’ındır; bu güzel isimlerle O’na dua edin, O’nun isimleri hakkında doğru inançtan sap...