[DiAm]

а каким образом программно можно запаковать папку в архив?

[Yurk@]

например с помощью:

Код:

ShellExecute(0,open,<файл>,<параметры упаковки>)

параметры упаковки смотри в хелпе к архиватору

или воспользоваться спец компонентом: ZipTV например

[PhoeniX]

напишу в стиле автора:
а каким образом ты это собираешься делать?
Много вариантов есть, от ручной реализации метода до вызова команды внешней программы.
//опоздал

[DiAm]

В обшем то без разницы как, лишь бы работало.)

[Karsh]

В самой Delphi уже есть поддержка архивирования методом Zlib.
Вот пример ее использования.
Или можно воспользоваться сторониим архиватором.
Вот пример как это примерно выглядит.