|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#2
|
||||
|
||||
вот:
Код:
procedure TForm2.Button1Click(Sender: TObject); var Zip: TZippit; i: integer; begin try Zip := TZippit.Create; for i:=0 to ListBox1.Items.Count-1 do begin if FileExists(ListBox1.Items.Strings[i]) then Zip.AddFile(ListBox1.Items.Strings[i]); end; Zip.SaveToFile('ZippedByZippit.zip'); finally Zip.Free; end; end; уволен в запас!!! Последний раз редактировалось RusMaXXX, 31.05.2013 в 20:21. |
Этот пользователь сказал Спасибо RusMaXXX за это полезное сообщение: | ||
Elza (31.05.2013)
|
#3
|
|||
|
|||
Спасибо огромное милый человек
|