Подскажите, как программно создать .zip-архив файла? вводится путь к файлу, и путь к папке, где должен появиться его архив

http://forum.vingrad.ru/index.php?showtopic=67456&hl=zip

Скачал компонент tpabbrevia, но установить не получается ни черта

Цитата

Installation To install TurboPower Abbrevia into your IDE, take the following steps:   1. Unzip the release files into a directory (e.g., d:\abbrevia).   2. Start Delphi or C++Builder.   3. Add the source subdirectory (e.g., d:\abbrevia\source) to the     IDE's library path.   4. Open & compile the runtime package specific to the IDE being     used.   5. Open & install the designtime package specific to the IDE being     used. The IDE should notify you the components have been     installed.   6. Make sure the PATH environmental variable contains the directory     in which the compiled packages (i.e., BPL or DPL files) were     placed..

Не совсем понимаю пункты 4-6.
Пробую просто открыть файлы .dpk; нажимаю Compile (появляется файл .dcu); потом нажимаю Install - выдаётся ошибка, требуется файл .bpl Но никаких файлов .bpl нету


А может как-то проще можно, без всяких компонентов? То есть, например, при правом клике на файл filename один из пунктов открывающегося меню - Add to filename.zip. А программно можно вызвать? Или как-нибудь командной строкой...

Это сообщение отредактировал(а) Atos - 21.10.2005, 05:22

Почему бы не воспользоваться Winzip или winrar?
При помощи командной строки передать параметры и получить
готовый архив.

Да, вот это бы и подошло, только подскажите, pls, точный формат командной строки

Если есть WinRar то посмотри файл
Rar.txt
там исчерпывающая информация о всех ключах и параметрах

Попробую разобраться. Спасибо

вот выдрал кусок кода из своей проги...может поможет

Код

//Определение пути к winrar.exe function get_rar_exe:string; var   REGISTRY_PATH:pchar;   Key: HKey;   Buffer: array[0..256] of char;   rc: dword;   rt: integer;   ok_res:boolean; begin   ok_res:=true;   REGISTRY_PATH:='Software\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe';   rt := REG_SZ; rc := 255;   RegCreateKey (HKEY_LOCAL_MACHINE,REGISTRY_PATH,Key);   if not(RegOpenKeyEx(HKEY_LOCAL_MACHINE,REGISTRY_PATH, 0, KEY_QUERY_VALUE, Key) = NO_ERROR)     then ok_res:=false;   if RegQueryValueEx(Key,'',nil,@rt,@Buffer,@rc) <>ERROR_SUCCESS     then ok_res:=false;   RegCloseKey(Key);   if ok_res then     result:= Buffer   else result:=''; end; //Создание резервной копии базы данных procedure TForm1.Button1Click(Sender: TObject); var s:String; begin   if MessageDlg('Вы точно хотите сохранить резервную копию баз данных???', mtConfirmation,[mbYes, mbNo],0)=mrNo then exit;   s:=get_rar_exe;   if s='' then begin showmessage('Для возможности сохранения резервных копий установите в систему архиватор WinRAR!!!');exit; end;   s:=s+' a -r -ag_YYYY.MM.DD-HH.MM.SS -ep1 ';   s:=s+'"'+extractfilepath(paramstr(0))+'\BackUp\backup.rar"';   s:=s+' "'+extractfilepath(paramstr(0))+'\bbases\*"';   WinExec( pchar(s) ,SW_RESTORE); end; //Восстановление данных из резервной копии procedure TForm1.Button2Click(Sender: TObject); var s:String;     sh : SHFILEOPSTRUCT; begin   if OpenDialog1.Execute then   begin     if MessageDlg('Вы точно хотите восстановить базы данных из резервной копии???'+#13+'Все изменения, сделанные вами позже '+ copy(ExtractFileName(OpenDialog1.FileName),8,19)+' будут потеряны!!! ', mtConfirmation,[mbYes, mbNo],0)=mrNo then exit;     Query1.Close;     //Удаление каталога баз данных     try       sh.Wnd := Application.Handle;       sh.wFunc := FO_DELETE;       sh.pFrom := pCHar(extractfilepath(paramstr(0))+'bbases');       sh.pTo := nil;       sh.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;       sh.hNameMappings := nil;       sh.lpszProgressTitle := nil;       SHFileOperation (sh);     except end;     s:=get_rar_exe;   if s='' then begin showmessage('Для возможности восстановления резервных копий установите в систему архиватор WinRAR!!!');exit; end;   s:=s+' x ';   s:=s+'"'+OpenDialog1.FileName+'"';   s:=s+' "'+extractfilepath(paramstr(0))+'\bbases\"';   WinExec( pchar(s) ,SW_RESTORE);   end; end;

UnRar delphi component

Если нужно распаковать rar архив, то можно использовать разархиватор UnRar

В архиве есть runtime компонент(исходник) и dll файл unrar.dll

Разумеется, pas и dll вместе использовать не надо

http://www.rarlab.com/rar/TDFUnRar.zip

Это сообщение отредактировал(а) Alex - 23.10.2005, 23:12