![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заархивировать... [D6]
comp © (2002-10-02 09:37:00)Как в Delphi заархивировать файл
Poirot (2002-10-02 19:43:00) [1]
> ну молодец, спасибо что подробно объяснил доступным языком....
А ты вопрос корректнее задать мог, тебе бы и ответ был корректный!!!
Jeer (2002-10-02 15:45:00) [2]>comp (02.10.02 10:02)
>ну молодец, спасибо что подробно объяснил доступным языком....
А собственно, что тебя так расстроило ?
Вполне нормальное решение использовать внешний архиватор и такой, какой захочется.
function RunZip(const Dir, Params: string): Boolean;
begin
Result := ShellExecute(Application.Handle, PChar("Open"), PChar("7zip.exe"), PChar(Params), PChar(Dir), SW_SHOW) > 32;
end;
..
if RunZip("C:\Tmp","a arch *.*") then ShowMessage("Zip it !");
**************
Всех делов-то.
comp (2002-10-02 10:51:00) [3]Спасибо kerk. Кстати я на этом форуме впервые, да програмирую не так давно
kerk (2002-10-02 10:32:00) [4]Посмотри на torry там куча компонетов на эту тему. Я использую длл-ки от http://www.info-zip.org.Скачать можно с http://www.mirror.ac.uk/sites/ftp.info-zip.org/pub/infozip/src.
Кстати эта тема многократно обсуждалась на этом форуме.
Best regards.
comp (2002-10-02 10:02:00) [5]ну молодец, спасибо что подробно объяснил доступным языком....
Jeer (2002-10-02 09:53:00) [6]архиватором