پسورد گذاری بر روی فایل zip

[h_mohamadi]

سلام دوستان من می خواهم یک فایل zip را که با ziptv دارم می سازم را پسورد بگذارم ولی جواب نمی دهد
کد من

Procedure ZIP(dir,name:String);
begin
min_f.Zip1.Password:='1234'; // default
min_f.Zip1.ArchiveFile :=dir+'\'+name1+'.zip'; // archive filename curdir
min_f.Zip1.DateAttribute := daFileDate; // default value
min_f.Zip1.StoredDirNames := sdRelative; // default value
min_f.Zip1.CompressMethod := cmDeflate; // default value
min_f.Zip1.Switch := swAdd; // default value
min_f.Zip1.StoreEmptySubDirs := False; // default value
min_f.Zip1.ExcludeSpec.Clear();
min_f.Zip1.FileSpec.Clear();
min_f.Zip1.FileSpec.Add(dir+'\*.*'); // test with c:\windows\*.txt //'
min_f.Zip1.SetAttribute(fsZeroAttr, True); // default
min_f.Zip1.SetAttribute(fsArchive, True); // default
min_f.Zip1.SetAttribute(fsDirectory, True); // default = False
min_f.Zip1.SetAttribute(fsHidden, True); // default = False
min_f.Zip1.SetAttribute(fsReadOnly, True); // default
min_f.Zip1.SetAttribute(fsSysFile, True); // default = False
min_f.Zip1.SetAttributeEx(fsZeroAttr, False); // default
min_f.Zip1.SetAttributeEx(fsArchive, False); // default
min_f.Zip1.SetAttributeEx(fsDirectory, False); // default
min_f.Zip1.SetAttributeEx(fsHidden, False); // default
min_f.Zip1.SetAttributeEx(fsReadOnly, False); // default
min_f.Zip1.SetAttributeEx(fsSysFile, False); // default
min_f.Zip1.Passwords.Clear;
min_f.Zip1.Passwords.Insert(0,'1234');
min_f.Zip1.Compress();
end;


راستی مسیر فایل های من داخلش چند تا فولدر است چطوری می توانم بگم که مسیر را با تمام فولدرها و فایل های داخلش zip کن