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;
