КАК програмно заархивировать папку с под коталогами

[VIR1435]

КАК програмно заархивировать папку с под коталогами
Скажите кто знает как программно заархивировать папку с подкоталогами на Delphi 7.
заранее спасибо

[Hollander]

http://www.programmersforum.ru/showthread.php?t=31075

[VIR1435]

Я конечно нашел как зделать архив но суть такова что без винрара не прет. ( мне такое решение не подходит )
кому требуется такое решение вот читайте:
WinRar должен присутствовать на компе.

//где объявляются переменные формы
var
sFileNameRar,sPathWinRAR,sPathRar, s:String;
sFileName,sRarPsw:String;

//это для обработчика кнопки
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
sRarPsw:='PASSWORD'; //пароль для архива
sFileName:='TextOut.txt'; //имя архивируемого файла
sPathWinRAR := 'e:\Program Files\WinRAR\winRAR.exe';//где находиться WinRar.exe
sFileNameRar:='TextOut'; //имя архива без .rar
sPathRar:='e:\Archiv\'; //куда писать архивный файл

FillChar( Si, SizeOf( Si ) , 0 );
with Si do
begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
s:=sPathWinRAR+' a -ep1 -hp'+sRarPsw+' '+sPathRar+sFileNameRar+' '+sPathRar+sFileName;
Createprocess(nil,PChar(s),nil,nil,false,Create_default_error_mode,nil,nil,si,p);//запускаем процесс архивировангия
Waitforsingleobject(p.hProcess,infinite); //и ждем его окончания
sFileName:='TextOut.rar'; //имя архивного файла
end;

[Serge_Bliznykov]

VIR1435, ага, заархивировать без архиватора хотите?! и в какой архив, если не секрет, конечно?

p.s. есть компоненты под Delphi, которые позволяют паковать в ZIP
для остальных широкоизвестных архивов потребуется наличие архиватора (или нужных библиотек от него)
Кстати, Winrar не обязательно должен быть установлен.
Достаточно иметь rar.exe в папке с программой. а ещё его можно переименовать (например, в dll.bmp - чтобы никто не догадался )

[Пепел Феникса]

в принципе если организовать структуру то можно и через zlib сделать.